From 3ff291cc920c64bb7ac35b972c84123b1bec343c Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 16 May 2009 09:43:01 -0500 Subject: [PATCH] help.lint: don't use mutable vocab tuple as key in lint-failures hash --- basis/help/lint/lint.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/help/lint/lint.factor b/basis/help/lint/lint.factor index 7a5b482270..08cf4b2cd4 100755 --- a/basis/help/lint/lint.factor +++ b/basis/help/lint/lint.factor @@ -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 ;