diff options
| -rw-r--r-- | parser.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/parser.lisp b/parser.lisp index 37abb75..30c68fd 100644 --- a/parser.lisp +++ b/parser.lisp @@ -54,7 +54,9 @@ `(new (progn ,@body)) (let ((v (first (car bindings))) (p (second (car bindings)))) - `(bind ,p (lambda (,v) (comp ,(cdr bindings) ,@body)))))) + (if (eq v '_) + `(bind ,p (lambda () (comp ,(cdr bindings) ,@body))) + `(bind ,p (lambda (,v) (comp ,(cdr bindings) ,@body))))))) (defparameter nothing (new nil)) |