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

ugly accessor

db4
Doug Coleman 2008-08-29 16:52:10 -05:00
parent 0f929ba85a
commit 4d8f64822a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/lexer/lexer.factor
View File

@ -30,7 +30,7 @@ TUPLE: lexer text line line-text line-length column ;
: change-lexer-column ( lexer quot -- ) : change-lexer-column ( lexer quot -- )
swap swap
[ [ column>> ] [ line-text>> ] bi rot call ] keep [ [ column>> ] [ line-text>> ] bi rot call ] keep
swap >>column drop ; inline (>>column) ; inline
GENERIC: skip-blank ( lexer -- ) GENERIC: skip-blank ( lexer -- )