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