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

use reject instead of [ ... not ] filter.

char-rename
John Benediktsson 2017-01-05 13:29:58 -08:00
parent ca08bfd4b0
commit 48c69cb8ea
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/files/windows/windows.factor
View File

@ -396,7 +396,7 @@ M: windows home
] if ; ] if ;
: alternate-file-streams ( path -- streams ) : alternate-file-streams ( path -- streams )
file-streams [ cStreamName>> alien>native-string "::$DATA" = not ] filter ; file-streams [ cStreamName>> alien>native-string "::$DATA" = ] reject ;
: alternate-file-streams? ( path -- streams ) : alternate-file-streams? ( path -- streams )
alternate-file-streams empty? not ; alternate-file-streams empty? not ;

2
basis/peg/ebnf/ebnf.factor
View File

@ -86,7 +86,7 @@ C: <ebnf> ebnf
: filter-hidden ( seq -- seq ) : filter-hidden ( seq -- seq )
! Remove elements that produce no AST from sequence ! Remove elements that produce no AST from sequence
[ ebnf-ensure-not? ] reject [ ebnf-ensure? not ] filter ; [ ebnf-ensure-not? ] reject [ ebnf-ensure? ] reject ;
: syntax ( string -- parser ) : syntax ( string -- parser )
! Parses the string, ignoring white space, and ! Parses the string, ignoring white space, and