Markup fixes
parent
e96a4bd450
commit
00acf627ef
|
@ -21,7 +21,7 @@ IN: benchmark
|
|||
] with-row
|
||||
[
|
||||
[
|
||||
swap [ ($vocab-link) ] with-cell
|
||||
swap [ dup ($vocab-link) ] with-cell
|
||||
first2 pprint-cell pprint-cell
|
||||
] with-row
|
||||
] assoc-each
|
||||
|
|
|
@ -173,7 +173,7 @@ M: f print-element drop ;
|
|||
|
||||
: $vocabulary ( element -- )
|
||||
first word-vocabulary [
|
||||
"Vocabulary" $heading nl ($vocab-link)
|
||||
"Vocabulary" $heading nl dup ($vocab-link)
|
||||
] when* ;
|
||||
|
||||
: textual-list ( seq quot -- )
|
||||
|
|
Loading…
Reference in New Issue