don't touch vocabs accessors. oops

db4
Doug Coleman 2008-08-30 13:28:59 -05:00
parent 250ffcf22f
commit abda27b0d2
2 changed files with 2 additions and 2 deletions

View File

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

View File

@ -175,7 +175,7 @@ M: vocab summary
[ [
dup vocab-summary % dup vocab-summary %
" (" % " (" %
vocab-words assoc-size # words>> assoc-size #
" words)" % " words)" %
] "" make ; ] "" make ;