From 2c760a29e4d688dc33dbbb546c038e9de29b95d5 Mon Sep 17 00:00:00 2001
From: Justine Tunney <jtunney@gmail.com>
Date: Sat, 13 Nov 2021 15:16:37 -0800
Subject: [PATCH] Fix extra arg in LISP evaluator

Fixes #12 reported by @derhexenmeister
---
 lisp.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp.lisp b/lisp.lisp
index aeb3e29..25a57ab 100644
--- 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)