don't touch vocabs accessors. oops
parent
250ffcf22f
commit
abda27b0d2
|
@ -117,7 +117,7 @@ M: help-error error.
|
||||||
] keep ;
|
] keep ;
|
||||||
|
|
||||||
: check-about ( vocab -- )
|
: check-about ( vocab -- )
|
||||||
[ help>> [ article drop ] when* ] check-something ;
|
[ vocab-help [ article drop ] when* ] check-something ;
|
||||||
|
|
||||||
: check-vocab ( vocab -- seq )
|
: check-vocab ( vocab -- seq )
|
||||||
"Checking " write dup write "..." print
|
"Checking " write dup write "..." print
|
||||||
|
|
|
@ -175,7 +175,7 @@ M: vocab summary
|
||||||
[
|
[
|
||||||
dup vocab-summary %
|
dup vocab-summary %
|
||||||
" (" %
|
" (" %
|
||||||
vocab-words assoc-size #
|
words>> assoc-size #
|
||||||
" words)" %
|
" words)" %
|
||||||
] "" make ;
|
] "" make ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue