From b02d24aa0739cca457a8394d13b838003c5b58b3 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 27 Aug 2008 17:09:00 -0500
Subject: [PATCH] obj.misc: Words that augment the core model

---
 extra/obj/misc/misc.factor | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 extra/obj/misc/misc.factor

diff --git a/extra/obj/misc/misc.factor b/extra/obj/misc/misc.factor
new file mode 100644
index 0000000000..06b3056ea0
--- /dev/null
+++ b/extra/obj/misc/misc.factor
@@ -0,0 +1,8 @@
+
+USING: kernel namespaces sequences assocs sequences.deep obj ;
+
+IN: obj.misc
+
+: related ( obj -- seq )
+  objects dupd remove [ get values flatten member? ] with filter ;
+