steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix memory leak when calling define-compound with gensyms

slava 2006-03-17 08:22:25 +00:00
parent a7878ded4c
commit 6697c6cb35
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/words.factor
View File

@ -45,7 +45,7 @@ SYMBOL: crossref
: (add-crossref) crossref get [ dupd nest set-hash ] bind ; : (add-crossref) crossref get [ dupd nest set-hash ] bind ;
: add-crossref ( word -- ) : add-crossref ( word -- )
crossref get [ crossref get over word-vocabulary and [
dup dup uses [ (add-crossref) ] each-with dup dup uses [ (add-crossref) ] each-with
] when drop ; ] when drop ;