2008-10-15 05:44:18 -04:00
|
|
|
|
2008-12-08 21:13:04 -05:00
|
|
|
USING: kernel parser lexer locals.parser locals.types ;
|
2008-10-15 05:44:18 -04:00
|
|
|
|
|
|
|
|
IN: bind-in
|
|
|
|
|
|
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
|
|
|
|
|
|
: ->
|
|
|
|
|
"[" parse-tokens make-locals dup push-locals
|
|
|
|
|
\ ] (parse-lambda) <lambda>
|
|
|
|
|
parsed-lambda
|
|
|
|
|
\ call parsed ; parsing
|
