]> gitweb.factorcode.org Git - factor.git/commitdiff
help.lint: don't use mutable vocab tuple as key in lint-failures hash
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sat, 16 May 2009 14:43:01 +0000 (09:43 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sat, 16 May 2009 14:43:01 +0000 (09:43 -0500)
basis/help/lint/lint.factor

index 7a5b482270aba92fc56efbbbc8645f846cc015ab..08cf4b2cd4932bdf8235a904ca34bbac9dd65364 100755 (executable)
@@ -66,11 +66,12 @@ PRIVATE>
     ] check-something ;
 
 : check-about ( vocab -- )
-    dup '[ _ vocab-help [ article drop ] when* ] check-something ;
+    vocab-link boa dup
+    '[ _ vocab-help [ article drop ] when* ] check-something ;
 
 : check-vocab ( vocab -- )
     "Checking " write dup write "..." print
-    [ vocab check-about ]
+    [ check-about ]
     [ words [ check-word ] each ]
     [ vocab-articles get at [ check-article ] each ]
     tri ;