steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix [wlet after recent locals refactoring broke it

db4
Slava Pestov 2008-12-03 06:13:05 -06:00
parent c49cbe5d9c
commit 90409502e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/locals/locals.factor
View File

@ -346,7 +346,7 @@ SYMBOL: in-lambda?
: (parse-wbindings) ( end -- ) : (parse-wbindings) ( end -- )
dup parse-binding dup [ dup parse-binding dup [
first2 [ make-local-word ] dip 2array , first2 [ make-local-word ] keep 2array ,
(parse-wbindings) (parse-wbindings)
] [ 2drop ] if ; ] [ 2drop ] if ;