don't touch vocabs accessors. oops

2008-08-30 13:28:59 -05:00 · 2008-08-30 13:28:59 -05:00 · abda27b0d2
parent 250ffcf22f
commit abda27b0d2
2 changed files with 2 additions and 2 deletions
--- a/basis/help/lint/lint.factor
+++ b/basis/help/lint/lint.factor
@ -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
--- a/basis/tools/vocabs/vocabs.factor
+++ b/basis/tools/vocabs/vocabs.factor
@ -175,7 +175,7 @@ M: vocab summary
    [
        dup vocab-summary %
        " (" %
-        vocab-words assoc-size #
+        words>> assoc-size #
        " words)" %
    ] "" make ;