Using "same?" in more places.

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

diff --git a/core/lexer/lexer.factor b/core/lexer/lexer.factor
index 123f2a5a71b1c7a82b7a1e2bdc3946e0a74a65db..ea156efc00756585dc488d643a0d20521806487b 100644 (file)
--- a/core/lexer/lexer.factor
+++ b/core/lexer/lexer.factor
@@ -153,7 +153,7 @@ M: lexer-error error-line [ error>> error-line ] [ line>> ] bi or ;
     simple-lexer-dump ;
 
 : parsing-word-lexer-dump ( error parsing-word -- )
-    2dup [ line>> ] bi@ =
+    2dup [ line>> ] same?
     [ drop simple-lexer-dump ]
     [ (parsing-word-lexer-dump) ] if ;