From 77a2a2136a0d4837c6f00e66d784fce9bf8d8a97 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 4 Feb 2008 19:43:10 -0600
Subject: [PATCH] Better method usages work in progres
---
core/generic/generic.factor | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/core/generic/generic.factor b/core/generic/generic.factor
index 78577eaed4..2100f49423 100755
--- a/core/generic/generic.factor
+++ b/core/generic/generic.factor
@@ -134,3 +134,13 @@ M: assoc update-methods ( assoc -- )
dupd define-default-method
make-generic
] if ;
+
+: subwords ( generic -- seq )
+ dup "methods" word-prop values
+ swap "default-method" word-prop add
+ [ method-word ] map ;
+
+: xref-generics ( -- )
+ all-words
+ [ generic? ] subset
+ [ subwords [ xref ] each ] each ;