Fix multi-methods

2008-04-06 20:09:20 -05:00 · 2008-04-06 20:09:20 -05:00 · a7a2fb4a00
parent d50d6a59ef
commit a7a2fb4a00
1 changed files with 3 additions and 0 deletions
--- 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 %