steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/strings/parser/parser.factor
View File

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