Fix [wlet after recent locals refactoring broke it

2008-12-03 06:13:05 -06:00 · 2008-12-03 06:13:05 -06:00 · 90409502e3
parent c49cbe5d9c
commit 90409502e3
1 changed files with 1 additions and 1 deletions
--- a/basis/locals/locals.factor
+++ b/basis/locals/locals.factor
@ -346,7 +346,7 @@ SYMBOL: in-lambda?

 : (parse-wbindings) ( end -- )
    dup parse-binding dup [
-        first2 [ make-local-word ] dip 2array ,
+        first2 [ make-local-word ] keep 2array ,
        (parse-wbindings)
    ] [ 2drop ] if ;