X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=gCons.icl;h=e34909aa6f0b8d5c7e1456bcdc4398b0a0f4876f;hb=ff56601fe3bbca4a5d507de43f31de10a11dfdb5;hp=6ed064d4d966d43d432313dc91ee82273d823a87;hpb=fe2e0f56c77de00d25686ab0b583a40595b35ab8;p=mTask.git

diff --git a/gCons.icl b/gCons.icl
index 6ed064d..e34909a 100644
--- 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]