delegate: verify generics on protocol definition. Fixes #260.

diff --git a/basis/delegate/delegate.factor b/basis/delegate/delegate.factor
index 1b0b9e3a355f4ecc70e8419fd79ad7b1c5d8c589..24b4de8497ce7e1d871fc58316ea9986c3a9a899 100644 (file)
--- a/basis/delegate/delegate.factor
+++ b/basis/delegate/delegate.factor
@@ -155,9 +155,15 @@ M: consultation forget*
 : show-words ( wordlist' -- wordlist )
     [ dup second zero? [ first ] when ] map ;
 
+ERROR: not-a-generic word ;
+
+: check-generic ( generic -- )
+    dup generic? [ drop ] [ not-a-generic ] if ;
+
 PRIVATE>
 
 : define-protocol ( protocol wordlist -- )
+    dup [ check-generic ] each
     [ drop define-symbol ] [
         fill-in-depth
         [ forget-old-definitions ]