From f7ca140c230af21ad26a00e0320f056783d56a6c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Wed, 6 Feb 2008 13:51:16 -0600
Subject: [PATCH] Fix compiled-xref
---
core/words/words.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/core/words/words.factor b/core/words/words.factor
index f628d68bee..bd49a3d855 100755
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -99,7 +99,7 @@ SYMBOL: compiled-crossref
compiled-crossref global [ H{ } assoc-like ] change-at
: compiled-xref ( word dependencies -- )
- [ crossref? ] subset
+ [ drop crossref? ] assoc-subset
2dup "compiled-uses" set-word-prop
compiled-crossref get add-vertex* ;