sequences.parser: rename and redefine `next`

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

diff --git a/extra/lint/vocabs/vocabs.factor b/extra/lint/vocabs/vocabs.factor
index ab1d4dffb73635398df8bfe4f69116694c971c1f..1bc7ca9537c5dd37ec40bbec2e845c4bb2fd8a0e 100644 (file)
--- a/extra/lint/vocabs/vocabs.factor
+++ b/extra/lint/vocabs/vocabs.factor
@@ -167,14 +167,14 @@ DEFER: next-token
 ! Words for finding the words used in a program
 ! and stripping out import statements
 : skip-imports ( sequence-parser -- sequence-parser string/? )
-    dup next { 
+    dup consume { 
         { "USING:"  [ ";" skip-after* f ] }
         { "USE:"    [        advance  f ] }
         [ ]
     } case ;
 
 : take-imports ( sequence-parser -- vector )
-    dup next {
+    dup consume {
         { "USING:" [ ";" take-until-object ] }
         { "USE:"   [  1  take-n ] }
         [ 2drop f ]