From 37bb75b19b1ce245e2522d4d6511b4e7e05dbc3d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 4 Feb 2008 16:50:15 -0600
Subject: [PATCH] Fix extra/delegate
---
extra/delegate/delegate.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/delegate/delegate.factor b/extra/delegate/delegate.factor
index 4cd25baeb9..c0da9c51bc 100755
--- a/extra/delegate/delegate.factor
+++ b/extra/delegate/delegate.factor
@@ -27,7 +27,7 @@ M: tuple-class group-words
swap [ slot-spec-writer ] map append ;
: define-consult-method ( word class quot -- )
- pick add <method> spin define-method ;
+ pick add spin define-method ;
: define-consult ( class group quot -- )
>r group-words r>