From b13eb201bdbef19363d30dab8b7f58327e6381a3 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 3 Sep 2011 16:39:04 -0700 Subject: [PATCH] tools.crossref: adding stack effect. --- basis/tools/crossref/crossref.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/tools/crossref/crossref.factor b/basis/tools/crossref/crossref.factor index 30ec4b2b65..fa45e97c51 100644 --- a/basis/tools/crossref/crossref.factor +++ b/basis/tools/crossref/crossref.factor @@ -119,7 +119,7 @@ M: f smart-usage drop \ f smart-usage ; smart-usage [ "No usages." print ] [ sorted-definitions. ] if-empty ; -: vocab-xref ( vocab quot -- vocabs ) +: vocab-xref ( vocab quot: ( defspec -- seq ) -- vocabs ) [ [ vocab-name ] [ words [ generic? not ] filter ] bi ] dip map [ [ [ word? ] [ generic? not ] bi and ] filter [