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

fix bootstrap (tag-matches? -> tag-named?)

db4
Doug Coleman 2007-12-18 16:14:47 -06:00
parent 4ee0f7bcf1
commit 8aed4d6b26
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/xml/utilities/utilities.factor
View File

@ -120,18 +120,18 @@ M: xml xml-inject >r delegate >r xml-inject ;
dup tag? [ names-match? ] [ 2drop f ] if ; dup tag? [ names-match? ] [ 2drop f ] if ;
: tag-named* ( tag name/string -- matching-tag ) : tag-named* ( tag name/string -- matching-tag )
assure-name swap [ dupd tag-matches? ] xml-find nip ; assure-name swap [ dupd tag-named? ] xml-find nip ;
: tags-named* ( tag name/string -- tags-seq ) : tags-named* ( tag name/string -- tags-seq )
assure-name swap [ dupd tag-matches? ] xml-subset nip ; assure-name swap [ dupd tag-named? ] xml-subset nip ;
: tag-named ( tag name/string -- matching-tag ) : tag-named ( tag name/string -- matching-tag )
! like get-name-tag but only looks at direct children, ! like get-name-tag but only looks at direct children,
! not all the children down the tree. ! not all the children down the tree.
assure-name swap [ tag-matches? ] curry* find nip ; assure-name swap [ tag-named? ] curry* find nip ;
: tags-named ( tag name/string -- tags-seq ) : tags-named ( tag name/string -- tags-seq )
assure-name swap [ tag-matches? ] curry* subset ; assure-name swap [ tag-named? ] curry* subset ;
: assert-tag ( name name -- ) : assert-tag ( name name -- )
names-match? [ "Unexpected XML tag found" throw ] unless ; names-match? [ "Unexpected XML tag found" throw ] unless ;