From 0ee6d08f794c69ed5331bb21b236e098256d9327 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 18 Oct 2011 20:40:14 -0700
Subject: [PATCH] delegate: not sure why protocols can be defined with arrays,
 but...

---
 basis/delegate/delegate.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 24b4de8497..16e1967aa6 100644
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -158,6 +158,7 @@ M: consultation forget*
 ERROR: not-a-generic word ;
 
 : check-generic ( generic -- )
+    dup array? [ first ] when
     dup generic? [ drop ] [ not-a-generic ] if ;
 
 PRIVATE>