From a7a2fb4a005e1364fa21e9e6803fc5cffdd30800 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 6 Apr 2008 20:09:20 -0500
Subject: [PATCH] Fix multi-methods

---
 extra/multi-methods/multi-methods.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/multi-methods/multi-methods.factor b/extra/multi-methods/multi-methods.factor
index 5ea19bc957..115432b14d 100755
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@@ -70,6 +70,9 @@ PREDICATE: method-body < word
 M: method-body stack-effect
     "multi-method" word-prop method-generic stack-effect ;
 
+M: method-body crossref?
+    drop t ;
+
 : method-word-name ( classes generic -- string )
     [
         word-name %