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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/locals/locals.factor
View File

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