xml: add some $quotation help.

diff --git a/basis/xml/entities/entities-docs.factor b/basis/xml/entities/entities-docs.factor
index 791a0828cbea931271891f582c6520efdfdc5169..98b5fa77ba317acde9869f16f7c3ef836bd46ff7 100644 (file)
--- a/basis/xml/entities/entities-docs.factor
+++ b/basis/xml/entities/entities-docs.factor
@@ -19,5 +19,5 @@ HELP: entities
 { $see-also with-entities } ;
 
 HELP: with-entities
-{ $values { "entities" "a hash table of strings to strings" } { "quot" "a quotation ( -- )" } }
+{ $values { "entities" "a hash table of strings to strings" } { "quot" { $quotation ( -- ) } } }
 { $description "Calls the quotation using the given table of entity values (symbolizing, eg, that " { $snippet "&foo;" } " represents " { $snippet "\"a\"" } ") on top of the default XML entities" } ;

diff --git a/basis/xml/xml-docs.factor b/basis/xml/xml-docs.factor
index 3ea09e09ec7abfba191f6b1363751b299c221450..6318cec93ffd2d2ee14ce6b704f7417a6ce1c175 100644 (file)
--- a/basis/xml/xml-docs.factor
+++ b/basis/xml/xml-docs.factor
@@ -28,7 +28,7 @@ HELP: read-xml-chunk
 { $see-also read-xml } ;
 
 HELP: each-element
-{ $values { "stream" "an input stream" } { "quot" "a quotation ( xml-elem -- )" } }
+{ $values { "stream" "an input stream" } { "quot" { $quotation ( xml-elem -- ) } } }
 { $description "Parses the XML document, and whenever an event is encountered (a tag piece, comment, parsing instruction, directive or string element), the quotation is called with that event on the stack. The quotation has all responsibility to deal with the event properly. The encoding of the stream is automatically detected, so a binary input stream should be used." }
 { $see-also read-xml } ;