change ERROR: words from throw-foo back to foo.

[factor.git] / core / lexer / lexer.factor

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 1676b8acf7d0491d2d6c544e359f44b799211f11..55ae061633b9e3d3eaf0da6dc5aa20d078ebe01c 100644 (file)
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -18,7 +18,7 @@ TUPLE: lexer-parsing-word word line line-text column ;
 ERROR: not-a-lexer object ;
 
 : check-lexer ( lexer -- lexer )
-    dup lexer? [ throw-not-a-lexer ] unless ; inline
+    dup lexer? [ not-a-lexer ] unless ; inline
 
 : next-line ( lexer -- )
     check-lexer