Fix stack effect

2007-12-08 03:21:32 -05:00 · 2007-12-08 03:21:32 -05:00 · 8c7ef92ffa
parent 0d7ea67bcf
commit 8c7ef92ffa
1 changed files with 2 additions and 2 deletions
--- 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: