Fix a bug in help lint

db4
Slava Pestov 2008-08-31 08:12:27 -05:00
parent 20380e613e
commit 9389f3091c
1 changed files with 1 additions and 1 deletions

View File

@ -131,7 +131,7 @@ M: help-error error.
: run-help-lint ( prefix -- alist )
[
all-vocabs-seq [ vocab-name ] map "all-vocabs" set
articles get keys "group-articles" set
group-articles "vocab-articles" set
child-vocabs
[ dup check-vocab ] { } map>assoc
[ nip empty? not ] assoc-filter