parser: use ?first.

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 2e7540c0c677ea898353b6fc019cb1e1f36eaeb5..a6ddb9beb6d38e5005805ccba4328209c9e7b851 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -1,10 +1,10 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs classes combinators
-compiler.units continuations definitions effects io
-io.encodings.utf8 io.files kernel lexer math.parser namespaces
-parser.notes quotations sequences sets slots source-files
-vectors vocabs vocabs.parser words words.symbol ;
+USING: accessors arrays classes combinators compiler.units
+continuations definitions effects io io.encodings.utf8 io.files
+kernel lexer math.parser namespaces parser.notes quotations
+sequences sets slots source-files vectors vocabs vocabs.parser
+words words.symbol ;
 IN: parser
 
 : location ( -- loc )
@@ -180,7 +180,7 @@ print-use-hook [ [ ] ] initialize
 : filter-moved ( set1 set2 -- seq )
     swap diff members [
         {
-            { [ dup where dup [ first ] when current-source-file get path>> = not ] [ f ] }
+            { [ dup where ?first current-source-file get path>> = not ] [ f ] }
             { [ dup reader-method? ] [ f ] }
             { [ dup writer-method? ] [ f ] }
             [ t ]