small fix for lexer

Doug Coleman 2009-08-18 00:10:23 -05:00
parent 25b8cbd16b
commit c995d5daff
1 changed files with 1 additions and 1 deletions

View File

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