lexer-subseq ( i lexer -- before )

Vocabulary

strings.parser.private

Inputs

i	an object
lexer	an object

Outputs

before

an object

Definition

USING: accessors kernel kernel.private lexer math sequences ;

IN: strings.parser.private

: lexer-subseq ( i lexer -- before )
    { fixnum lexer } declare
    [ [ column>> ] [ line-text>> ] bi swapd subseq ]
    [ column<< ] 2bi ;