slight core fix

KMahoney · Aug 15, 2009 · b19c7be · b19c7be
1 parent 1c4b420
commit b19c7be
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/core.chi b/core.chi
@@ -34,9 +34,9 @@ module list
 def uncons [head] [tail] bi
 
 def each (l q)
-    l uncons (hd tl)
-    hd q call
-    tl [tl q each] when
+    l [ l uncons (hd tl)
+        hd q call
+        tl [tl q each] when ] [l] if
 
 def 2each (l1 l2 q)
     l1 uncons (hd1 tl1)