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

help.markup: simplify $example slightly.

db4
John Benediktsson 2015-07-19 15:07:02 -07:00
parent 2c4ed220b5
commit d18fe872f2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/help/markup/markup.factor
View File

@ -132,7 +132,7 @@ ALIAS: $slot $snippet
"Examples" $heading print-element ; "Examples" $heading print-element ;
: $example ( element -- ) : $example ( element -- )
1 cut* [ "\n" join ] bi@ over <input> [ unclip-last [ "\n" join ] dip over <input> [
[ print ] [ output-style get format ] bi* [ print ] [ output-style get format ] bi*
] ($code) ; ] ($code) ;