From 45f29f736a19cb00819541d0000b4e67c2e84788 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 28 Jan 2022 08:45:18 -0800 Subject: [PATCH] unicode.flags: adding FLAG: syntax, why not FLAG: US . --- extra/unicode/flags/flags.factor | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/extra/unicode/flags/flags.factor b/extra/unicode/flags/flags.factor index 05e62a61cf..530248215d 100644 --- 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! ; -- 2.34.1