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

lexer: more clear code.

db4
John Benediktsson 2011-09-16 21:54:17 -07:00
parent 499778d808
commit 842327f3df
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/lexer/lexer.factor
View File

@ -10,8 +10,8 @@ TUPLE: lexer text line line-text line-length column parsing-words ;
TUPLE: lexer-parsing-word word line line-text column ; TUPLE: lexer-parsing-word word line line-text column ;
: next-line ( lexer -- ) : next-line ( lexer -- )
dup [ line>> ] [ text>> ] bi ?nth >>line-text dup [ line>> ] [ text>> ] bi ?nth
dup line-text>> length >>line-length [ >>line-text ] [ length >>line-length ] bi
[ 1 + ] change-line [ 1 + ] change-line
0 >>column 0 >>column
drop ; drop ;