migrate to new version
[mTask.git] / mTaskInterpret.dcl
index 67a6857..fe68463 100644 (file)
@@ -121,8 +121,8 @@ derive gEq BCValue
        }
 
 :: BCState = {
-               freshl :: [Int],
-               freshs :: [Int],
+               freshl :: Int,
+               freshs :: Int,
                sdss :: [BCShare]
        }
 instance zero BCState