parser: use ?first.
parent
447e30ad41
commit
64d835e2bf
|
@ -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 ]
|
||||||
|
|
Loading…
Reference in New Issue