Dynamic only in BCShare

[mTask.git] / mTaskInterpret.dcl

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index f476232..999d734 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -85,7 +85,8 @@ derive class gCons BC
 :: BCShare = {
                sdsi :: Int,
                sdspub :: Bool,
-               sdsval :: String
+               sdsval :: Dynamic,
+               sdsbc :: String
        }
 
 :: BCState = {
@@ -97,7 +98,7 @@ instance zero BCState
 
 class toByteCode a :: a -> String
 class fromByteCode a :: String -> a
-class mTaskType a | toByteCode, fromByteCode a
+class mTaskType a | toByteCode, fromByteCode, TC a
 
 instance toByteCode Int, Bool, Char, Long, String, Button, UserLED
 instance fromByteCode Int, Bool, Char, Long, String, Button, UserLED