X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=3e7513fde7354c920e5656ecfc3e9351695d21db;hb=3fe035b92e9bc0b745c57db64e78461b2f36b6d1;hp=7e8d4b4edf761d3496d495bbf6bd63fa5387c120;hpb=ccf50ec9be06bc1b418b25225ca76d6e6ce743ac;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 7e8d4b4..3e7513f 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -118,9 +118,10 @@ derive gEq BCValue
 
 :: ByteCode a p = BC (RWS () [BC] BCState ())
 
-:: BCShare = {
-		sdsi :: Int,
-		sdsval :: BCValue
+:: BCShare =
+	{ sdsi :: Int
+	, sdsval :: BCValue
+	, sdsname :: String
 	}
 
 :: BCState = {