steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bug fix in define-mimic

release
Daniel Ehrenberg 2007-11-28 13:56:21 -05:00
parent 37a9d0d6db
commit b7c7541936
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/delegate/delegate.factor
View File

@ -65,8 +65,8 @@ PROTOCOL: prettyprint-section-protocol
: define-mimic ( group mimicker mimicked -- ) : define-mimic ( group mimicker mimicked -- )
>r >r group-words r> r> [ >r >r group-words r> r> [
pick "methods" word-prop at method-def pick "methods" word-prop at
<method> spin define-method [ method-def <method> spin define-method ] [ 3drop ] if*
] 2curry each ; ] 2curry each ;
: MIMIC: : MIMIC: