Revert "html.templates: remove the stream-copy version of call-template*"

This reverts commit a52dd48b04e9131dacf944e6af32798e9779ccf1.

diff --git a/basis/html/templates/templates-docs.factor b/basis/html/templates/templates-docs.factor
index 6bf27a06ddd937ce471609ea36fbd1a4d554579b..6578f4843f76ca87ece976188f1faef13934bd6f 100644 (file)
--- a/basis/html/templates/templates-docs.factor
+++ b/basis/html/templates/templates-docs.factor
@@ -14,6 +14,7 @@ $nl
     { { $link string } " - the simplest type of template; simply written to " { $link output-stream } }
     { { $link callable } " - a custom quotation, called to yield output" }
     { { $link xml } " - written to " { $link output-stream } }
+    { "an input stream - copied to " { $link output-stream } }
 } } ;
 
 HELP: call-template

diff --git a/basis/html/templates/templates.factor b/basis/html/templates/templates.factor
index b6cd850af5f2a090850befb0e197f64cc0c45b49..2d32c069d9e42756ea15db3bf1048cf71e43cd97 100644 (file)
--- a/basis/html/templates/templates.factor
+++ b/basis/html/templates/templates.factor
@@ -16,6 +16,8 @@ M: callable call-template* call( -- ) ;
 
 M: xml call-template* write-xml ;
 
+M: object call-template* output-stream get stream-copy* ;
+
 ERROR: template-error template error ;
 
 M: template-error error.