Merge branch 'master' into xml

[factor.git] / extra / delegate / delegate.factor

diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 2f134998670ed734e307e9383603641c03a9b6ef..962746ec1a33d859e5addd84893e6b6be841bfa7 100644 (file)
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -65,8 +65,8 @@ PROTOCOL: prettyprint-section-protocol
 
 : define-mimic ( group mimicker mimicked -- )
     >r >r group-words r> r> [
-        pick "methods" word-prop at
-        [ method-def <method> spin define-method ] [ 3drop ] if*
+        pick "methods" word-prop at dup
+        [ method-def <method> spin define-method ] [ 3drop ] if
     ] 2curry each ; 
 
 : MIMIC: