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

[factor.git] / extra / variants / variants-docs.factor

diff --git a/extra/variants/variants-docs.factor b/extra/variants/variants-docs.factor
index bab2e07d8ef81b1661b8f15973207c8f4dd5a51e..06224f697f1ae85c58551a4c9c4ac8563fdebd9c 100644 (file)
--- a/extra/variants/variants-docs.factor
+++ b/extra/variants/variants-docs.factor
@@ -4,7 +4,7 @@ help.syntax kernel multiline slots quotations ;
 IN: variants
 
 HELP: VARIANT:
-{ $syntax """
+{ $syntax "
 VARIANT: class-name
     singleton
     singleton
@@ -12,9 +12,9 @@ VARIANT: class-name
     .
     .
     .
-    ; """ }
+    ; " }
 { $description "Defines " { $snippet "class-name" } " as a union of the following " { $link singleton-class } " and " { $link tuple-class } " definitions. Each " { $snippet "singleton" } " word is defined as a " { $snippet "singleton-class" } ", and each " { $snippet "tuple" } " word is defined as a " { $snippet "tuple-class" } " with the given set of " { $snippet "slot" } "s, using the same syntax for slot specifiers as " { $link POSTPONE: TUPLE: } ". Typed tuple slots can recursively reference the variant " { $snippet "class-name" } " being defined. For " { $snippet "tuple" } " types, a " { $link boa } " constructor word " { $snippet "<tuple>" } " is defined as well." }
-{ $examples { $code """
+{ $examples { $code "
 USING: kernel variants ;
 IN: scratchpad
 
@@ -22,11 +22,11 @@ VARIANT: list
     nil
     cons: { { first object } { rest list } }
     ;
-""" } } ;
+" } } ;
 
 HELP: VARIANT-MEMBER:
 { $description "Defines a new member of a variant class without restricting such definitions to a single statement or source file. The variant class should be listed first, and the class member should follow." }
-{ $examples { $code """
+{ $examples { $code "
 USING: kernel variants ;
 IN: scratchpad
 
@@ -34,12 +34,12 @@ VARIANT: list ;
 
 VARIANT-MEMBER: list nil ;
 VARIANT-MEMBER: list cons: { { first object } { rest list } } ;
-""" } } ;
+" } } ;
 
 HELP: match
 { $values { "branches" array } }
 { $description "Dispatches on the type of the value on the top of the stack. If the type is a " { $link singleton-class } ", the corresponding quotation is called with the underlying stack unchanged. If the type is a " { $link tuple-class } ", the tuple slots are pushed onto the stack by order of arguments." }
-{ $examples { $example """
+{ $examples { $example "
 USING: kernel math prettyprint variants ;
 IN: scratchpad
 
@@ -55,7 +55,7 @@ VARIANT: list
     } match ;
 
 1 2 3 4 nil <cons> <cons> <cons> <cons> list-length .
-""" "4" } } ;
+" "4" } } ;
 
 HELP: unboa
 { $values { "class" class } }