From c3ca5a819178218d021b595ac1e9d7a4acb7981c Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Thu, 4 Dec 2008 18:47:18 -0800
Subject: [PATCH] i fail at documentation

---
 .../complex-components-docs.factor                 | 14 ++++++++------
 .../complex-components/complex-components.factor   |  2 +-
 extra/sequences/complex/complex-docs.factor        | 10 ++++++----
 3 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/extra/sequences/complex-components/complex-components-docs.factor b/extra/sequences/complex-components/complex-components-docs.factor
index de1bed38a7..386735aa7d 100644
--- a/extra/sequences/complex-components/complex-components-docs.factor
+++ b/extra/sequences/complex-components/complex-components-docs.factor
@@ -12,8 +12,8 @@ ABOUT: "sequences.complex-components"
 HELP: complex-components
 { $class-description "Sequence wrapper class that transforms a sequence of " { $link complex } " number values into a sequence of " { $link real } " values, interleaving the real and imaginary parts of the complex values in the original sequence." }
 { $examples { $example <"
-USING: sequences arrays sequences.complex-components ;
-{ C{ 1.0 -1.0 } -2.0 C{ 3.0 1.0 } } <complex-components> >array
+USING: prettyprint sequences arrays sequences.complex-components ;
+{ C{ 1.0 -1.0 } -2.0 C{ 3.0 1.0 } } <complex-components> >array .
 "> "{ 1.0 -1.0 -2.0 0 3.0 1.0 }" } } ;
 
 HELP: <complex-components>
@@ -21,12 +21,14 @@ HELP: <complex-components>
 { $description "Wraps " { $snippet "sequence" } " in a " { $link complex-components } " wrapper." }
 { $examples
 { $example <"
-USING: sequences arrays sequences.complex-components ;
-{ C{ 1.0 -1.0 } -2.0 C{ 3.0 1.0 } } <complex-components> third
+USING: prettyprint sequences arrays
+sequences.complex-components ;
+{ C{ 1.0 -1.0 } -2.0 C{ 3.0 1.0 } } <complex-components> third .
 "> "-2.0" }
 { $example <"
-USING: sequences arrays sequences.complex-components ;
-{ C{ 1.0 -1.0 } -2.0 C{ 3.0 1.0 } } <complex-components> fourth
+USING: prettyprint sequences arrays
+sequences.complex-components ;
+{ C{ 1.0 -1.0 } -2.0 C{ 3.0 1.0 } } <complex-components> fourth .
 "> "0" }
 } ;
 
diff --git a/extra/sequences/complex-components/complex-components.factor b/extra/sequences/complex-components/complex-components.factor
index bca7e2c0a2..ae808971b6 100644
--- a/extra/sequences/complex-components/complex-components.factor
+++ b/extra/sequences/complex-components/complex-components.factor
@@ -5,7 +5,7 @@ IN: sequences.complex-components
 TUPLE: complex-components seq ;
 INSTANCE: complex-components sequence
 
-: <complex-components> ( sequence -- complex-sequence )
+: <complex-components> ( sequence -- complex-components )
     complex-components boa ; inline
 
 <PRIVATE
diff --git a/extra/sequences/complex/complex-docs.factor b/extra/sequences/complex/complex-docs.factor
index d4d8dfc7a2..65dd520fd8 100644
--- a/extra/sequences/complex/complex-docs.factor
+++ b/extra/sequences/complex/complex-docs.factor
@@ -12,18 +12,20 @@ ABOUT: "sequences.complex"
 HELP: complex-sequence
 { $class-description "Sequence wrapper class that transforms a sequence of " { $link real } " number values into a sequence of " { $link complex } " values, treating the underlying sequence as pairs of alternating real and imaginary values."  }
 { $examples { $example <"
-USING: specialized-arrays.double sequences.complex
+USING: prettyprint
+specialized-arrays.double sequences.complex
 sequences arrays ;
-double-array{ 1.0 -1.0 -2.0 2.0 3.0 0.0 } <complex-sequence> >array
+double-array{ 1.0 -1.0 -2.0 2.0 3.0 0.0 } <complex-sequence> >array .
 "> "{ C{ 1.0 -1.0 } C{ -2.0 2.0 } C{ 3.0 0.0 } }" } } ;
 
 HELP: <complex-sequence>
 { $values { "sequence" sequence } { "complex-sequence" complex-sequence } }
 { $description "Wraps " { $snippet "sequence" } " in a " { $link complex-sequence } "." }
 { $examples { $example <"
-USING: specialized-arrays.double sequences.complex
+USING: prettyprint
+specialized-arrays.double sequences.complex
 sequences arrays ;
-double-array{ 1.0 -1.0 -2.0 2.0 3.0 0.0 } <complex-sequence> second
+double-array{ 1.0 -1.0 -2.0 2.0 3.0 0.0 } <complex-sequence> second .
 "> "C{ -2.0 2.0 }" } } ;
 
 { complex-sequence <complex-sequence> } related-words