compiler.codegen-docs: Make example clickable.

diff --git a/basis/compiler/codegen/codegen-docs.factor b/basis/compiler/codegen/codegen-docs.factor
index 0331db601bccc91b17f5292c7a100a94d7e4cb7d..15e47ceb22b9088df12135a22bee3c74fe80e5eb 100644 (file)
--- a/basis/compiler/codegen/codegen-docs.factor
+++ b/basis/compiler/codegen/codegen-docs.factor
@@ -7,6 +7,9 @@ IN: compiler.codegen
 STRING: generate-ex
 USING: compiler.cfg.debugger io prettyprint ;
 [ "hello\n" write ] test-regs first dup cfg set generate [ . ] [ 4 swap nth disassemble ] bi
+;
+
+STRING: generate-ex-answer
 {
     { }
     { "hello\n" output-stream assoc-stack stream-write }
@@ -75,7 +78,7 @@ HELP: generate
 }
 { $examples
   "A small quotation is compiled and then disassembled:"
-  { $unchecked-example $[ generate-ex ] }
+  { $unchecked-example $[ generate-ex generate-ex-answer ] }
 } ;
 
 HELP: useless-branch?