From 8c8f58dfeeb94234a46e9f5b32c23cce503e4b68 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 18 Jul 2014 13:37:38 -0500
Subject: [PATCH] compiler.codegen-docs: Make example clickable.

---
 basis/compiler/codegen/codegen-docs.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/basis/compiler/codegen/codegen-docs.factor b/basis/compiler/codegen/codegen-docs.factor
index 0331db601b..15e47ceb22 100644
--- 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?