multi-methods: predicate-quot -> predicate-def

2011-11-22 02:12:01 -08:00 · 2011-11-22 02:12:01 -08:00 · fad4a28d70
parent 0bdd87dace
commit fad4a28d70
1 changed files with 1 additions and 1 deletions
--- a/extra/multi-methods/multi-methods.factor
+++ b/extra/multi-methods/multi-methods.factor
@ -109,7 +109,7 @@ SYMBOL: total
    } case ;

 : (multi-predicate) ( class picker -- quot )
-    swap predicate-quot append ;
+    swap predicate-def append ;

 : multi-predicate ( classes -- quot )
    dup length iota <reversed>