steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

new accessors

db4
Doug Coleman 2008-08-30 13:06:29 -05:00
parent 592df74336
commit bfb4dbfd58
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/help/lint/lint.factor
View File

@ -117,7 +117,7 @@ M: help-error error.
] keep ; ] keep ;
: check-about ( vocab -- ) : check-about ( vocab -- )
[ vocab-help [ article drop ] when* ] check-something ; [ help>> [ article drop ] when* ] check-something ;
: check-vocab ( vocab -- seq ) : check-vocab ( vocab -- seq )
"Checking " write dup write "..." print "Checking " write dup write "..." print
@ -130,7 +130,7 @@ M: help-error error.
: run-help-lint ( prefix -- alist ) : run-help-lint ( prefix -- alist )
[ [
all-vocabs-seq [ vocab-name ] map "all-vocabs" set all-vocabs-seq [ name>> ] map "all-vocabs" set
articles get keys "group-articles" set articles get keys "group-articles" set
child-vocabs child-vocabs
[ dup check-vocab ] { } map>assoc [ dup check-vocab ] { } map>assoc