lexer: change skip back to public interface.

diff --git a/basis/html/templates/fhtml/fhtml.factor b/basis/html/templates/fhtml/fhtml.factor
index ed5a1ea48a746a7d71a7e0592f1c81bef776639b..b6d960841ede0b892aa4e3b8548e99bf2b86cfe5 100644 (file)
--- a/basis/html/templates/fhtml/fhtml.factor
+++ b/basis/html/templates/fhtml/fhtml.factor
@@ -2,9 +2,8 @@
 ! Copyright (C) 2006, 2010 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors combinators compiler.units html.templates io
-io.encodings.utf8 io.files kernel lexer lexer.private math
-namespaces parser parser.notes quotations sequences splitting
-vocabs.parser ;
+io.encodings.utf8 io.files kernel lexer math namespaces parser
+parser.notes quotations sequences splitting vocabs.parser ;
 IN: html.templates.fhtml
 
 ! We use a custom lexer so that %> ends a token even if not

diff --git a/core/lexer/lexer-docs.factor b/core/lexer/lexer-docs.factor
index 01ed6828c23068e1a372964f0354c2454c76e72a..61f0b717e4598fe9435b668fcd92e9f74ea837ad 100644 (file)
--- a/core/lexer/lexer-docs.factor
+++ b/core/lexer/lexer-docs.factor
@@ -1,5 +1,5 @@
-USING: help.markup help.syntax kernel lexer.private math
-sequences strings words quotations ;
+USING: help.markup help.syntax kernel math sequences strings
+words quotations ;
 IN: lexer
 
 HELP: lexer

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index ffccd7694c2dc4027cd7567c2513c8eb57478335..f60babccc0c56dc2f50adbb7df2d12f3abb0f764 100644 (file)
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -52,18 +52,14 @@ ERROR: unexpected want got ;
 : forbid-tab ( c -- c )
     [ CHAR: \t eq? [ "[space]" "[tab]" unexpected ] when ] keep ; inline
 
-<PRIVATE
-
 : skip ( i seq ? -- n )
-    { fixnum string boolean } declare
     over length [
         [ swap forbid-tab CHAR: \s eq? xor ] curry find-from drop
-    ] dip or ;
-
-PRIVATE>
+    ] dip or ; inline
 
 : change-lexer-column ( lexer quot -- )
-    [ [ column>> ] [ line-text>> ] bi ] prepose keep column<< ; inline
+    [ check-lexer [ column>> ] [ line-text>> ] bi ] prepose
+    keep column<< ; inline
 
 GENERIC: skip-blank ( lexer -- )