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

rename a couple more words

db4
Doug Coleman 2009-09-24 19:47:44 -05:00
parent c0294195e6
commit 9963213900
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,7 +74,7 @@ name>char-hook [
<PRIVATE <PRIVATE
: lexer-before ( i -- before ) : lexer-subseq ( i -- before )
[ [
[ [
lexer get lexer get
@ -102,7 +102,7 @@ ERROR: escaped-char-expected ;
escaped-char-expected escaped-char-expected
] if ; ] if ;
: rest-begins? ( string -- ? ) : lexer-head? ( string -- ? )
[ [
lexer get [ line-text>> ] [ column>> ] bi tail-slice lexer get [ line-text>> ] [ column>> ] bi tail-slice
] dip head? ; ] dip head? ;
@ -141,11 +141,11 @@ ERROR: escaped-char-expected ;
DEFER: (parse-multiline-string) DEFER: (parse-multiline-string)
: parse-found-token ( i string token -- ) : parse-found-token ( i string token -- )
[ lexer-before % ] dip [ lexer-subseq % ] dip
CHAR: \ = [ CHAR: \ = [
lexer get [ next-char , ] [ next-char , ] bi (parse-multiline-string) lexer get [ next-char , ] [ next-char , ] bi (parse-multiline-string)
] [ ] [
dup rest-begins? [ dup lexer-head? [
end-string-parse end-string-parse
] [ ] [
lexer get next-char , (parse-multiline-string) lexer get next-char , (parse-multiline-string)