small fix for lexer

db4
Doug Coleman 2009-08-18 00:10:23 -05:00
parent aa39423509
commit 308d383ccd
1 changed files with 1 additions and 1 deletions

View File

@ -49,7 +49,7 @@ M: lexer skip-word ( lexer -- )
] change-lexer-column ;
: still-parsing? ( lexer -- ? )
[ line>> ] [ text>> ] bi length <= ;
[ line>> ] [ text>> length ] bi <= ;
: still-parsing-line? ( lexer -- ? )
[ column>> ] [ line-length>> ] bi < ;