locals: Allow comments in binding forms

basis/locals/locals.factor

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