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

xml.traversal: use filter-as words.

db4
John Benediktsson 2012-07-11 14:19:07 -07:00
parent c22fcb8e2b
commit ab9b1ef25d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/xml/traversal/traversal.factor
View File

@ -28,7 +28,7 @@ IN: xml.traversal
assure-name '[ _ swap tag-named? ] find nip ; assure-name '[ _ swap tag-named? ] find nip ;
: tags-named ( tag name/string -- tags-seq ) : tags-named ( tag name/string -- tags-seq )
assure-name '[ _ swap tag-named? ] filter { } like ; assure-name '[ _ swap tag-named? ] { } filter-as ;
<PRIVATE <PRIVATE
@ -41,7 +41,7 @@ PRIVATE>
prepare-deep '[ _ swap tag-named? ] deep-find ; prepare-deep '[ _ swap tag-named? ] deep-find ;
: deep-tags-named ( tag name/string -- tags-seq ) : deep-tags-named ( tag name/string -- tags-seq )
prepare-deep '[ _ swap tag-named? ] deep-filter { } like ; prepare-deep '[ _ swap tag-named? ] { } deep-filter-as ;
: tag-with-attr? ( elem attr-value attr-name -- ? ) : tag-with-attr? ( elem attr-value attr-name -- ? )
rot dup tag? [ swap attr = ] [ 3drop f ] if ; rot dup tag? [ swap attr = ] [ 3drop f ] if ;