compiler.tree.propagation: fix docs to show expected output line.

diff --git a/basis/compiler/tree/propagation/propagation-docs.factor b/basis/compiler/tree/propagation/propagation-docs.factor
index cfad4f1fa8bd2700bca288c6e151bcf880adb411..3670fa42daf10ee6578bccd2c2fa01353e43234f 100644 (file)
--- a/basis/compiler/tree/propagation/propagation-docs.factor
+++ b/basis/compiler/tree/propagation/propagation-docs.factor
@@ -1,11 +1,14 @@
 USING: help.markup help.syntax literals multiline ;
 IN: compiler.tree.propagation
 
-<<
-STRING: propagate-ex
-USING: compiler.tree.builder compiler.tree.propagation math prettyprint ;
-[ 3 + ] build-tree propagate third .
-T{ #call
+HELP: propagate
+{ $values { "nodes" "a sequence of nodes" } }
+{ $description "Performs the propagation pass of the AST optimization. All nodes info slots are initialized here." }
+{ $examples {
+    $unchecked-example
+        "USING: compiler.tree.builder compiler.tree.propagation math prettyprint ;"
+        "[ 3 + ] build-tree propagate third ."
+        [[ T{ #call
     { word + }
     { in-d V{ 9450187 9450186 } }
     { out-d { 9450188 } }
@@ -41,15 +44,7 @@ T{ #call
             }
         }
     }
-}
-;
->>
-
-HELP: propagate
-{ $values { "nodes" "a sequence of nodes" } }
-{ $description "Performs the propagation pass of the AST optimization. All nodes info slots are initialized here." }
-{ $examples { $unchecked-example $[ propagate-ex ] }
-} ;
+}]] } } ;
 
 ARTICLE: "compiler.tree.propagation" "Class, interval, constant propagation"
 "This pass must be run after " { $vocab-link "compiler.tree.normalization" } "." ;