 : skip ( i seq ? -- n )
     over length [
         [ swap forbid-tab CHAR: \s eq? xor ] curry find-from drop
-    ] dip or ;
+    ] dip or ; inline
 
 : change-lexer-column ( lexer quot -- )
-    [ [ column>> ] [ line-text>> ] bi ] prepose keep
-    column<< ; inline
+    [ [ column>> ] [ line-text>> ] bi ] prepose keep column<< ; inline
 
 GENERIC: skip-blank ( lexer -- )
 
-M: lexer skip-blank ( lexer -- )
+M: lexer skip-blank
     [ t skip ] change-lexer-column ;
 
 GENERIC: skip-word ( lexer -- )


: simple-lexer-dump ( error -- )
    [ line>> number>string ": " append ]
    [ line-text>> "" or ]
    [ column>> 0 or ] tri
    pick length + CHAR: \s <string>
    [ write ] [ print ] [ write "^" print ] tri* ;


        over line>> number>string length
        CHAR: \s pad-head
        ": " append write
    ] [ line-text>> print ] bi
    simple-lexer-dump ;

: parsing-word-lexer-dump ( error parsing-word -- )
