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 <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 ;