strings.parser: use rest-slice.

db4
John Benediktsson 2013-04-22 06:26:36 -07:00
parent 35e23dc547
commit cead10cfb6
1 changed files with 2 additions and 2 deletions

View 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 ;