factor: trim using lists

[factor.git] / extra / sequences / n-based / n-based-docs.factor

diff --git a/extra/sequences/n-based/n-based-docs.factor b/extra/sequences/n-based/n-based-docs.factor
index 2e5cf42d5848186fdbed302f90819f8241c2f643..cdd917c49e82b1545dca0d2d94383f22bc4c9890 100644 (file)
--- a/extra/sequences/n-based/n-based-docs.factor
+++ b/extra/sequences/n-based/n-based-docs.factor
@@ -1,66 +1,68 @@
 ! (c)2008 Joe Groff, see BSD license etc.
-USING: help.markup help.syntax kernel math sequences ;
+USING: help.markup help.syntax math sequences ;
 IN: sequences.n-based
 
 HELP: <n-based-assoc>
 { $values { "seq" sequence } { "base" integer } { "n-based-assoc" n-based-assoc } }
 { $description "Wraps " { $snippet "seq" } " in an " { $link n-based-assoc } " wrapper." }
 { $examples
-{ $example """
+{ $example "
 USING: assocs prettyprint kernel sequences.n-based ;
 IN: scratchpad
 
 : months ( -- assoc )
     {
-        "January"
-        "February"
-        "March"
-        "April"
-        "May"
-        "June"
-        "July"
-        "August"
-        "September"
-        "October"
-        "November"
-        "December"
+        \"January\"
+        \"February\"
+        \"March\"
+        \"April\"
+        \"May\"
+        \"June\"
+        \"July\"
+        \"August\"
+        \"September\"
+        \"October\"
+        \"November\"
+        \"December\"
     } 1 <n-based-assoc> ;
 
 10 months at .
-""" "\"October\"" } } ;
+" "\"October\"" } } ;
 
 HELP: n-based-assoc
 { $class-description "An adaptor class that allows a sequence to be treated as an assoc with non-zero-based keys." }
 { $examples
-{ $example """
+{ $example "
 USING: assocs prettyprint kernel sequences.n-based ;
 IN: scratchpad
 
 : months ( -- assoc )
     {
-        "January"
-        "February"
-        "March"
-        "April"
-        "May"
-        "June"
-        "July"
-        "August"
-        "September"
-        "October"
-        "November"
-        "December"
+        \"January\"
+        \"February\"
+        \"March\"
+        \"April\"
+        \"May\"
+        \"June\"
+        \"July\"
+        \"August\"
+        \"September\"
+        \"October\"
+        \"November\"
+        \"December\"
     } 1 <n-based-assoc> ;
 
 10 months at .
-""" "\"October\"" } } ;
+" "\"October\"" } } ;
 
 { n-based-assoc <n-based-assoc> } related-words
 
 ARTICLE: "sequences.n-based" "N-based sequences"
 "The " { $vocab-link "sequences.n-based" } " vocabulary provides a sequence adaptor that allows a sequence to be treated as an assoc with non-zero-based keys."
-{ $subsection n-based-assoc }
-{ $subsection <n-based-assoc> }
+{ $subsections
+    n-based-assoc
+    <n-based-assoc>
+}
 ;
 
 ABOUT: "sequences.n-based"