From dc0a9218668f5a25ffc8d979d07baf35bcb37dc6 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Oct 2011 01:11:19 -0700
Subject: [PATCH] Remove the lexer-factory because nothing uses it. Update
 usages.

---
 basis/tools/deploy/shaker/shaker.factor | 1 -
 core/lexer/lexer-docs.factor            | 4 ----
 core/lexer/lexer.factor                 | 4 ----
 core/parser/parser.factor               | 2 +-
 4 files changed, 1 insertion(+), 10 deletions(-)

diff --git a/basis/tools/deploy/shaker/shaker.factor b/basis/tools/deploy/shaker/shaker.factor
index 348bc3be0e..23bc7f4df3 100755
--- a/basis/tools/deploy/shaker/shaker.factor
+++ b/basis/tools/deploy/shaker/shaker.factor
@@ -364,7 +364,6 @@ IN: tools.deploy.shaker
                 compiler.crossref:generic-call-site-crossref
                 compiler-impl
                 compiler.errors:compiler-errors
-                lexer-factory
                 print-use-hook
                 root-cache
                 require-when-vocabs
diff --git a/core/lexer/lexer-docs.factor b/core/lexer/lexer-docs.factor
index c5ce3a39ad..9d3a43223b 100644
--- a/core/lexer/lexer-docs.factor
+++ b/core/lexer/lexer-docs.factor
@@ -104,10 +104,6 @@ HELP: with-lexer
 { $values { "lexer" lexer } { "quot" quotation } { "newquot" quotation } }
 { $description "Calls the quotation with the " { $link lexer } " variable set to the given lexer. The quotation can make use of words such as " { $link scan-token } ". Any errors thrown by the quotation are wrapped in " { $link lexer-error } " instances." } ;
 
-HELP: lexer-factory
-{ $var-description "A variable holding a quotation with stack effect " { $snippet "( lines -- lexer )" } ". This quotation is called by the parser to create " { $link lexer } " instances. This variable can be rebound to a quotation which outputs a custom tuple delegating to " { $link lexer } " to customize syntax." } ;
-
-
 ARTICLE: "parser-lexer" "The lexer"
 "A variable that encapsulate internal parser state:"
 { $subsections lexer }
diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index ad755003cb..af3d7813c6 100644
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -150,7 +150,3 @@ M: lexer-error error-line [ error>> error-line ] [ line>> ] bi or ;
 
 : with-lexer ( lexer quot -- newquot )
     [ lexer set ] dip [ <lexer-error> rethrow ] recover ; inline
-
-SYMBOL: lexer-factory
-
-[ <lexer> ] lexer-factory set-global
diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index c3af80eb75..f402d84941 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -125,7 +125,7 @@ M: f parse-quotation \ ] parse-until >quotation ;
     [ f parse-until >quotation ] with-lexer ;
 
 : parse-lines ( lines -- quot )
-    lexer-factory get call( lines -- lexer ) (parse-lines) ;
+    <lexer> (parse-lines) ;
 
 : parse-literal ( accum end quot -- accum )
     [ parse-until ] dip call suffix! ; inline