From 6697c6cb3552960dcf4621aed3408fe0a48d55d8 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 17 Mar 2006 08:22:25 +0000
Subject: [PATCH] Fix memory leak when calling define-compound with gensyms

---
 library/words.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/words.factor b/library/words.factor
index e1c2967bcb..15873c9947 100644
--- a/library/words.factor
+++ b/library/words.factor
@@ -45,7 +45,7 @@ SYMBOL: crossref
 : (add-crossref) crossref get [ dupd nest set-hash ] bind ;
 
 : add-crossref ( word -- )
-    crossref get [
+    crossref get over word-vocabulary and [
         dup dup uses [ (add-crossref) ] each-with
     ] when drop ;