unicode.flags: adding FLAG: syntax, why not

[factor.git] / extra / unicode / flags / flags.factor

diff --git a/extra/unicode/flags/flags.factor b/extra/unicode/flags/flags.factor
index 05e62a61cf12afc598860b9124c46b97b1a2012a..530248215d7bf1ccfd204654d26a417c52e17bee 100644 (file)
--- a/extra/unicode/flags/flags.factor
+++ b/extra/unicode/flags/flags.factor
@@ -1,4 +1,4 @@
-USING: accessors ascii assocs biassocs sequences ;
+USING: accessors ascii assocs biassocs lexer sequences ;
 
 IN: unicode.flags
 
@@ -36,3 +36,5 @@ MEMO: flag-codes ( -- biassoc ) H{
 
 : flag>unicode ( flag -- country-code )
     [ flag-codes to>> at ] map ;
+
+SYNTAX: FLAG: scan-token unicode>flag suffix! ;