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

2011-10-18 20:40:14 -07:00 · 2011-10-18 20:40:14 -07:00 · 0ee6d08f79
parent 7835ebc2fc
commit 0ee6d08f79
1 changed files with 1 additions and 0 deletions
--- 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>