strings.parser: simplify next-escape.

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index cdf95244bf68e0b38c768d4a836326f16239ea05..1d01cf8c569e25dfce41cdecc13d66e22268d4cc 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -43,10 +43,10 @@ name>char-hook [
     ] if ;
 
 : next-escape ( str -- ch str' )
-    dup first {
-        { CHAR: u [ rest-slice unicode-escape ] }
-        { CHAR: x [ rest-slice hex-escape ] }
-        [ drop unclip-slice escape swap ]
+    unclip-slice {
+        { CHAR: u [ unicode-escape ] }
+        { CHAR: x [ hex-escape ] }
+        [ escape swap ]
     } case ;
 
 <PRIVATE