X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.icl;h=697ce50da46fc200d6d9b8b0d73d13b47189e69d;hb=17aaf6797b3dd4e820b186a55335a36a89ea92cb;hp=f1eeedc1793e44bb5ae314bee21e7264fa4a8be9;hpb=b845b58e2d90207476029812179f81968cd45108;p=mTask.git

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index f1eeedc..697ce50 100644
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -270,6 +270,8 @@ instance sds ByteCode where
 			addSDS sds v s = {s & sdss=[{sds & sdsval=BCValue v}:s.sdss]}
 
 	con f = undef
+
+instance sdspub ByteCode where
 	pub (BC x) = BC $ censor (\[BCSdsFetch s]->[BCSdsPublish s]) x
 
 instance assign ByteCode where