Fix memory leak when calling define-compound with gensyms

2006-03-17 08:22:25 +00:00 · 2006-03-17 08:22:25 +00:00 · 6697c6cb35
parent a7878ded4c
commit 6697c6cb35
1 changed files with 1 additions and 1 deletions
--- 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 ;