]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/literals/literals.factor
Use flags{ instead of flags all over the place
[factor.git] / basis / literals / literals.factor
index 3e541a80ceba02e7945753fa6221ae479214905d..42a7ab9668a68dc2fb5912d28a6c3b4f56f0a83b 100644 (file)
@@ -25,6 +25,7 @@ SYNTAX: $ scan-word expand-literal >vector ;
 SYNTAX: $[ parse-quotation with-datastack >vector ;
 SYNTAX: ${ \ } [ expand-literals ] parse-literal ;
 SYNTAX: flags{
-    "}" [ parse-word ] map-tokens
-    expand-literals
-    0 [ bitor ] reduce suffix! ;
+    \ } [
+        expand-literals
+        0 [ bitor ] reduce
+    ] parse-literal ;