]> gitweb.factorcode.org Git - factor.git/commitdiff
strings.parser: use rest-slice.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Apr 2013 13:26:36 +0000 (06:26 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Apr 2013 13:26:36 +0000 (06:26 -0700)
core/strings/parser/parser.factor

index 99178e985833607afddf8c5d23374e26d60ec6ad..fa373406971b5372b384e26e2170b0e996bc0f34 100644 (file)
@@ -40,8 +40,8 @@ name>char-hook [
 
 : next-escape ( str -- ch str' )
     dup first {
-        { CHAR: u [ 1 tail-slice unicode-escape ] }
-        { CHAR: x [ 1 tail-slice hex-escape ] }
+        { CHAR: u [ rest-slice unicode-escape ] }
+        { CHAR: x [ rest-slice hex-escape ] }
         [ drop unclip-slice escape swap ]
     } case ;