strings.parser: allow "\u{snowman}" or "\u{2603}".

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index e70f9498ff999bd916baec64addc2e1554b1fd2b..056d6527c41069a78cdc67e795161e88abb901f6 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -35,9 +35,13 @@ name>char-hook [
 
 : unicode-escape ( str -- ch str' )
     "{" ?head-slice [
-        CHAR: } over index cut-slice
-        [ >string name>char-hook get call( name -- char ) ] dip
-        rest-slice
+        CHAR: } over index cut-slice [
+            dup hex> [
+                nip
+            ] [
+                >string name>char-hook get call( name -- char )
+            ] if*
+        ] dip rest-slice
     ] [
         6 cut-slice [ hex> ] dip
     ] if ;