delegate: not sure why protocols can be defined with arrays, but...

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 24b4de8497ce7e1d871fc58316ea9986c3a9a899..16e1967aa6bd8af7fda1119838ffdb879f4105f9 100644 (file)
--- 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>