factor: remove """ string syntax for now. there are HEREDOC:, STRING:, escaping ...

[factor.git] / basis / http / server / dispatchers / dispatchers-docs.factor

diff --git a/basis/http/server/dispatchers/dispatchers-docs.factor b/basis/http/server/dispatchers/dispatchers-docs.factor
index d4de6b6de421c5f88c5678098c98120f66ae06d9..3b965574f6b29662b2faae1dc117ee7eb09c3117 100644 (file)
--- a/basis/http/server/dispatchers/dispatchers-docs.factor
+++ b/basis/http/server/dispatchers/dispatchers-docs.factor
@@ -31,46 +31,46 @@ HELP: add-responder
 ARTICLE: "http.server.dispatchers.example" "HTTP dispatcher examples"
 { $heading "Simple pathname dispatcher" }
 { $code
-    """<dispatcher>
-    <new-action> "new" add-responder
-    <edit-action> "edit" add-responder
-    <delete-action> "delete" add-responder
-    <list-action> "" add-responder
-main-responder set-global"""
+    "<dispatcher>
+    <new-action> \"new\" add-responder
+    <edit-action> \"edit\" add-responder
+    <delete-action> \"delete\" add-responder
+    <list-action> \"\" add-responder
+main-responder set-global"
 }
 "In the above example, visiting any URL other than " { $snippet "/new" } ", " { $snippet "/edit" } ", " { $snippet "/delete" } ", or " { $snippet "/" } " will result in a 404 error."
 { $heading "Another pathname dispatcher" }
 "On the other hand, suppose we wanted to route all unrecognized paths to a “view” action:"
 { $code
-    """<dispatcher>
-    <new-action> "new" add-responder
-    <edit-action> "edit" add-responder
-    <delete-action> "delete" add-responder
+    "<dispatcher>
+    <new-action> \"new\" add-responder
+    <edit-action> \"edit\" add-responder
+    <delete-action> \"delete\" add-responder
     <view-action> >>default
-main-responder set-global"""
+main-responder set-global"
 }
 "The " { $slot "default" } " slot holds a responder to which all unrecognized paths are sent to."
 { $heading "Dispatcher subclassing example" }
 { $code
-    """TUPLE: golf-courses < dispatcher ;
+    "TUPLE: golf-courses < dispatcher ;
 
 : <golf-courses> ( -- golf-courses )
     golf-courses new-dispatcher ;
 
 <golf-courses>
-    <new-action> "new" add-responder
-    <edit-action> "edit" add-responder
-    <delete-action> "delete" add-responder
-    <list-action> "" add-responder
-main-responder set-global"""
+    <new-action> \"new\" add-responder
+    <edit-action> \"edit\" add-responder
+    <delete-action> \"delete\" add-responder
+    <list-action> \"\" add-responder
+main-responder set-global"
 }
 "The action templates can now emit links to responder-relative URLs prefixed by " { $snippet "$golf-courses/" } "."
 { $heading "Virtual hosting example" }
 { $code
-    """<vhost-dispatcher>
-    <casino> "concatenative-casino.com" add-responder
-    <dating> "raptor-dating.com" add-responder
-main-responder set-global"""
+    "<vhost-dispatcher>
+    <casino> \"concatenative-casino.com\" add-responder
+    <dating> \"raptor-dating.com\" add-responder
+main-responder set-global"
 }
 "Note that the virtual host dispatcher strips off a " { $snippet "www." } " prefix, so " { $snippet "www.concatenative-casino.com" } " would be routed to the " { $snippet "<casino>" } " responder instead of receiving a 404." ;