Fix extra arg in LISP evaluator

Fixes #12 reported by @derhexenmeister
This commit is contained in:
Justine Tunney 2021-11-13 15:16:37 -08:00
parent df9c01c46c
commit 2c760a29e4

View file

@ -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)