sequences: move last2 to the sequences vocab

[factor.git] / extra / lint / vocabs / vocabs.factor

diff --git a/extra/lint/vocabs/vocabs.factor b/extra/lint/vocabs/vocabs.factor
index f13678935a87a68ba551d704f2c2b18caf026639..8eba730353bfbd1e9b7d97040b620efa431321bb 100644 (file)
--- a/extra/lint/vocabs/vocabs.factor
+++ b/extra/lint/vocabs/vocabs.factor
@@ -73,8 +73,7 @@ DEFER: next-token
 
 ! Words for removing syntax that should be ignored
 : ends-with-quote? ( token -- ? )
-    2 tail* [ first CHAR: \ = not ] 
-            [ second CHAR: " =    ] bi and ;
+    last2 [ CHAR: \ = not ] [ CHAR: " = ] bi* and ;
 
 : end-string? ( token -- ? )
     dup length 1 = [ quotation-mark? ] [ ends-with-quote? ] if ;