added sds operators, timing and task deletion

[mTask.git] / gCons.icl

diff --git a/gCons.icl b/gCons.icl
index b54c8e0..a7ce132 100644 (file)
--- a/gCons.icl
+++ b/gCons.icl
@@ -36,10 +36,8 @@ consIndex{|Bool|} b = if b 1 0
 consIndex{|Char|} c = toInt c
 consIndex{|String|} _ = 0
 
-import StdMisc, StdDebug
-
 generic conses a :: [a]
-conses{|CONS|} f = map CONS f
+conses{|CONS|} f = [CONS (hd f)]
 conses{|UNIT|} = [UNIT]
 conses{|PAIR|} f g = []
 conses{|EITHER|} f g = map LEFT f ++ map RIGHT g
@@ -58,3 +56,4 @@ conses{|[!!]|} _ = [[!!]]
 conses{|{}|} _ = [{}]
 conses{|{!}|} _ = [{!}]
 conses{|()|} = [()]
+conses{|(->)|} _ _ = [const undef]