steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compiler.codegen-docs: Make example clickable.

db4
Doug Coleman 2014-07-18 13:37:38 -05:00
parent f9d9d8d64c
commit 8c8f58dfee
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/codegen/codegen-docs.factor
View File

@ -7,6 +7,9 @@ IN: compiler.codegen
STRING: generate-ex STRING: generate-ex
USING: compiler.cfg.debugger io prettyprint ; USING: compiler.cfg.debugger io prettyprint ;
[ "hello\n" write ] test-regs first dup cfg set generate [ . ] [ 4 swap nth disassemble ] bi [ "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 } { "hello\n" output-stream assoc-stack stream-write }
@ -75,7 +78,7 @@ HELP: generate
} }
{ $examples { $examples
"A small quotation is compiled and then disassembled:" "A small quotation is compiled and then disassembled:"
{ $unchecked-example $[ generate-ex ] } { $unchecked-example $[ generate-ex generate-ex-answer ] }
} ; } ;
HELP: useless-branch? HELP: useless-branch?