steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

parser: use ?first.

windows-drag
John Benediktsson 2019-03-16 20:33:40 -07:00
parent 447e30ad41
commit 64d835e2bf
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/parser/parser.factor
View File

@ -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 ]