From 95e22f6d8eea51ad7e01a5509b7ce5a20b40f453 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 9 May 2008 20:18:59 -0500 Subject: [PATCH] Fix load error; with-locals no longer exists --- extra/lisp/lisp.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor index 7630889570..7d4b9af02a 100644 --- a/extra/lisp/lisp.factor +++ b/extra/lisp/lisp.factor @@ -46,7 +46,7 @@ PRIVATE> : convert-lambda ( s-exp -- quot ) split-lambda dup "&rest" swap member? [ rest-lambda-vars ] [ dup length ] if [ localize-lambda ] dip - [ , cut [ dup length firstn ] dip dup empty? [ drop ] when , with-locals ] bake ; + [ , cut [ dup length firstn ] dip dup empty? [ drop ] when , ] bake ; : convert-quoted ( s-exp -- quot ) second [ , ] bake ;