.p

[mTask.git] / gCons.icl

diff --git a/gCons.icl b/gCons.icl
index 6ed064d..e34909a 100644 (file)
--- a/gCons.icl
+++ b/gCons.icl
@@ -36,8 +36,6 @@ consIndex{|Bool|} b = if b 1 0
 consIndex{|Char|} c = toInt c
 consIndex{|String|} _ = 0
 
-import StdMisc, StdDebug
-
 conses :: [a] | gconses{|*|} a
 conses = gconses{|*|} True
 
@@ -62,3 +60,4 @@ gconses{|[!!]|} _ _ = [[!!]]
 gconses{|{}|} _ _ = [{}]
 gconses{|{!}|} _ _ = [{!}]
 gconses{|()|} _ = [()]
+gconses{|(->)|} _ _ _ = [const undef]