         over line>> number>string length
         CHAR: \s pad-head
         ": " append write
-    ] [ line-text>> "" or print ] bi
+    ] [ line-text>> print ] bi
     simple-lexer-dump ;
 
 : parsing-word-lexer-dump ( error parsing-word -- )

    nth CHAR: " eq? ; inline

: shebang? ( column text -- ? )
    swap zero? [ "#!" head? ] [ drop f ] if ; inline

PRIVATE>

M: lexer skip-word ( lexer -- )
    [
        {
            { [ 2dup quote? ] [ drop 1 + ] }

! Copyright (C) 2008, 2010 Slava Pestov, Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays combinators continuations io kernel
math math.parser namespaces sequences sequences.private
source-files.errors strings vectors ;
IN: lexer

TUPLE: lexer
{ text array }
{ line fixnum }
{ line-text string }
{ line-length fixnum }
{ column fixnum }
{ parsing-words vector } ;
