Merge branch 'master' of git://factorcode.org/git/factor
commit
6337b3b80d
|
@ -21,7 +21,7 @@ IN: benchmark
|
||||||
] with-row
|
] with-row
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
swap [ ($vocab-link) ] with-cell
|
swap [ dup ($vocab-link) ] with-cell
|
||||||
first2 pprint-cell pprint-cell
|
first2 pprint-cell pprint-cell
|
||||||
] with-row
|
] with-row
|
||||||
] assoc-each
|
] assoc-each
|
||||||
|
|
|
@ -173,7 +173,7 @@ M: f print-element drop ;
|
||||||
|
|
||||||
: $vocabulary ( element -- )
|
: $vocabulary ( element -- )
|
||||||
first word-vocabulary [
|
first word-vocabulary [
|
||||||
"Vocabulary" $heading nl ($vocab-link)
|
"Vocabulary" $heading nl dup ($vocab-link)
|
||||||
] when* ;
|
] when* ;
|
||||||
|
|
||||||
: textual-list ( seq quot -- )
|
: textual-list ( seq quot -- )
|
||||||
|
|
Loading…
Reference in New Issue