extra/bind-in/bind-in.factor

   1
   2 USING: kernel parser lexer locals.parser locals.types ;
   3
   4 IN: bind-in
   5
   6 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   7
   8 : ->
   9   "[" parse-tokens make-locals dup push-locals
  10   \ ] (parse-lambda) <lambda>
  11   parsed-lambda
  12   \ call parsed ; parsing