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

Fix typo

db4
Slava Pestov 2008-12-02 00:24:08 -06:00
parent 192a164ef4
commit 1c382605b2
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

@ -373,7 +373,7 @@ M: wlet local-rewrite*
let-rewrite ; let-rewrite ;
: parse-locals ( -- vars assoc ) : parse-locals ( -- vars assoc )
scan ")" parse-effect ")" parse-effect
word [ over "declared-effect" set-word-prop ] when* word [ over "declared-effect" set-word-prop ] when*
in>> [ dup pair? [ first ] when ] map make-locals dup push-locals ; in>> [ dup pair? [ first ] when ] map make-locals dup push-locals ;