Fix extra arg in LISP evaluator

Fixes #12 reported by @derhexenmeister
jart · Nov 13, 2021 · 2c760a2 · 2c760a2
1 parent df9c01c
commit 2c760a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lisp.lisp b/lisp.lisp
@@ -99,7 +99,7 @@ NIL
  (QUOTE (LAMBDA (M A)
           (COND ((EQ M ()) ())
                 ((QUOTE T) (CONS (EVAL (CAR M) A)
-                                 (EVLIS (CDR M) A A))))))
+                                 (EVLIS (CDR M) A))))))
  (QUOTE (LAMBDA (FN X A)
           (COND
             ((ATOM FN)