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?