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. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes combinators USING: accessors arrays classes combinators compiler.units
compiler.units continuations definitions effects io continuations definitions effects io io.encodings.utf8 io.files
io.encodings.utf8 io.files kernel lexer math.parser namespaces kernel lexer math.parser namespaces parser.notes quotations
parser.notes quotations sequences sets slots source-files sequences sets slots source-files vectors vocabs vocabs.parser
vectors vocabs vocabs.parser words words.symbol ; words words.symbol ;
IN: parser IN: parser
: location ( -- loc ) : location ( -- loc )
@ -180,7 +180,7 @@ print-use-hook [ [ ] ] initialize
: filter-moved ( set1 set2 -- seq ) : filter-moved ( set1 set2 -- seq )
swap diff members [ 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 reader-method? ] [ f ] }
{ [ dup writer-method? ] [ f ] } { [ dup writer-method? ] [ f ] }
[ t ] [ t ]