Markup fixes

db4
Slava Pestov 2008-03-05 15:59:15 -06:00
parent e96a4bd450
commit 00acf627ef
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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 -- )