From b7c7541936ab2dade72493e6e7a1328c53f2f2a5 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@teal-blue-28.dynamic2.rpi.edu>
Date: Wed, 28 Nov 2007 13:56:21 -0500
Subject: [PATCH] Bug fix in define-mimic

---
 extra/delegate/delegate.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index c232354600..8dc3e3720e 100644
--- 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
+        pick "methods" word-prop at
+        [ method-def <method> spin define-method ] [ 3drop ] if*
     ] 2curry each ; 
 
 : MIMIC: