Bug fix in define-mimic
parent
37a9d0d6db
commit
b7c7541936
|
@ -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
|
||||
pick "methods" word-prop at
|
||||
[ method-def <method> spin define-method ] [ 3drop ] if*
|
||||
] 2curry each ;
|
||||
|
||||
: MIMIC:
|
||||
|
|
Loading…
Reference in New Issue