Handbook
Glossary
(skip-blank) ( col line -- newcol )
Vocabulary
lexer
.
private
Inputs
col
an
object
line
an
object
Outputs
newcol
an
object
Definition
USING:
kernel
lexer
sequences
;
IN:
lexer.private
:
(skip-blank)
( col line -- newcol )
[
[
forbid-tab
32
eq?
not
]
find-from
drop
]
[
length
or
]
bi
;