locals: Allow comments in binding forms

2008-11-22 06:45:12 -06:00 · 2008-11-22 06:45:12 -06:00 · e53d02bc5e
parent b5a51224c2
commit e53d02bc5e
1 changed files with 12 additions and 8 deletions
--- a/basis/locals/locals.factor
+++ b/basis/locals/locals.factor
@ -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 [