locals: Allow comments in binding forms

db4
Eduardo Cavazos 2008-11-22 06:45:12 -06:00
parent b5a51224c2
commit e53d02bc5e
1 changed files with 12 additions and 8 deletions

View File

@ -289,14 +289,18 @@ SYMBOL: in-lambda?
\ ] (parse-lambda) <lambda> ;
: parse-binding ( -- pair/f )
scan dup "|" = [
drop f
] [
scan {
{ "[" [ \ ] parse-until >quotation ] }
{ "[|" [ parse-lambda ] }
} case 2array
] if ;
scan {
{ [ dup "|" = ] [ drop f ] }
{ [ dup "!" = ] [ drop lexer get next-line parse-binding ] }
{ [ t ]
[
scan {
{ "[" [ \ ] parse-until >quotation ] }
{ "[|" [ parse-lambda ] }
} case 2array
]
}
} cond ;
: (parse-bindings) ( -- )
parse-binding [