X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fxmode%2Floader%2Fsyntax%2Fsyntax.factor;h=a26fa6be716a838462187d4f802edec2f64bd01e;hp=e626d230da3a8600ecb6520c88fba9c9be2cd791;hb=b0badd157101d4b6b184f06726b456a00171b801;hpb=c0f0342d9ae9197401af909d86204c2d1f89559a

diff --git a/basis/xmode/loader/syntax/syntax.factor b/basis/xmode/loader/syntax/syntax.factor
index e626d230da..a26fa6be71 100644
--- a/basis/xmode/loader/syntax/syntax.factor
+++ b/basis/xmode/loader/syntax/syntax.factor
@@ -65,11 +65,11 @@ SYNTAX: RULE:
 ! XXX: check HASH_CHAR for full prefix, not just first character
 
 : char<< ( value object -- )
-    [ ?first ] dip chars<< ;
+    '[ 1 head _ chars<< ] unless-empty ;
 
 : regexp-attr ( -- )
-    { "HASH_CHAR" f char<< } ,
-    { "HASH_CHARS" f chars<< } , ;
+    { "HASH_CHARS" f chars<< } ,
+    { "HASH_CHAR" f char<< } , ;
 
 : match-type-attr ( -- )
     { "MATCH_TYPE" string>match-type match-token<< } , ;