Fixing 'begin' macro definition

diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index a9d73cf97ced3403a6bcc6dc7ff329921fbaf915..976cc930b495904ec44d2d349529ee9f4d571923 100644 (file)
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -66,7 +66,7 @@ IN: lisp.test
     ] unit-test
 
     { T{ lisp-symbol f "begin" } } [
-        "(defmacro begin (&rest body) (list (list (quote lambda) (list) body)))" lisp-eval
+        "(defmacro begin (&rest body) (list (cons (quote lambda) (cons (list) body))))" lisp-eval
     ] unit-test
     
     { t } [