소스 검색

Fix extra arg in LISP evaluator

Fixes #12 reported by @derhexenmeister
Justine Tunney 3 년 전
부모
커밋
2c760a29e4
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      lisp.lisp

+ 1 - 1
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)