Fix delegate vocab for lookup-method change.

[factor.git] / basis / delegate / delegate.factor

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index ec005482d186ead3fa85419e2d78d7985ed037af..1b0b9e3a355f4ecc70e8419fd79ad7b1c5d8c589 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -91,7 +91,7 @@ M: broadcast (consult-method-quot)
     \ protocol-consult word-prop delete-at ;
 
 : unconsult-method ( word consultation -- )
-    [ class>> swap first lookup-method ] keep
+    [ class>> swap first ?lookup-method ] keep
     over [
         over "consultation" word-prop eq?
         [ forget ] [ drop ] if
@@ -124,7 +124,7 @@ M: consultation forget*
 <PRIVATE
 
 : forget-all-methods ( classes words -- )
-    [ first lookup-method forget ] cartesian-each ;
+    [ first ?lookup-method forget ] cartesian-each ;
 
 : protocol-users ( protocol -- users )
     protocol-consult keys ;