Fix stack effect

release
Slava Pestov 2007-12-08 03:21:32 -05:00
parent 0d7ea67bcf
commit 8c7ef92ffa
1 changed files with 2 additions and 2 deletions

View File

@ -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: