From 64d835e2bfe2dc2f4a070b31be1add2c62fef19e Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 16 Mar 2019 20:33:40 -0700 Subject: [PATCH] parser: use ?first. --- core/parser/parser.factor | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/core/parser/parser.factor b/core/parser/parser.factor index 2e7540c0c6..a6ddb9beb6 100644 --- 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 ]