Fix (zero) to emit proper closure.

Ramarren · Feb 2, 2011 · ece08c2 · ece08c2
1 parent 1120d31
commit ece08c2
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/primitives.lisp b/primitives.lisp
@@ -15,7 +15,10 @@
 
 (defun zero ()
   "Primitive parser: parsing failure"
-  (constantly nil))
+  #'(lambda (inp)
+      (declare (ignore inp))
+      #'(lambda ()
+          nil)))
 
 (def-cached-parser item
   "Primitive parser: consume item from input and return it."