From 8aed4d6b26a597579c3007e0d4e0a5b17e69f94a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 18 Dec 2007 16:14:47 -0600 Subject: [PATCH] fix bootstrap (tag-matches? -> tag-named?) --- extra/xml/utilities/utilities.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/xml/utilities/utilities.factor b/extra/xml/utilities/utilities.factor index 2ce4e2b3d3..a86b1c9214 100644 --- a/extra/xml/utilities/utilities.factor +++ b/extra/xml/utilities/utilities.factor @@ -120,18 +120,18 @@ M: xml xml-inject >r delegate >r xml-inject ; dup tag? [ names-match? ] [ 2drop f ] if ; : 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 ) - 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 ) ! like get-name-tag but only looks at direct children, ! 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 ) - assure-name swap [ tag-matches? ] curry* subset ; + assure-name swap [ tag-named? ] curry* subset ; : assert-tag ( name name -- ) names-match? [ "Unexpected XML tag found" throw ] unless ;