From c0b810f970a49fea5dea0e891133f38dc9bacd5f Mon Sep 17 00:00:00 2001 From: James Cash Date: Thu, 3 Jul 2008 21:13:57 -0400 Subject: [PATCH] Fixing 'begin' macro definition --- extra/lisp/lisp-tests.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor index a9d73cf97c..976cc930b4 100644 --- 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 } [