steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2011-10-18 16:29:38 -07:00
parent 13b17fb84a
commit faf556f971
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/delegate/delegate.factor
View File

@ -155,9 +155,15 @@ M: consultation forget*
: show-words ( wordlist' -- wordlist ) : show-words ( wordlist' -- wordlist )
[ dup second zero? [ first ] when ] map ; [ dup second zero? [ first ] when ] map ;
ERROR: not-a-generic word ;
: check-generic ( generic -- )
dup generic? [ drop ] [ not-a-generic ] if ;
PRIVATE> PRIVATE>
: define-protocol ( protocol wordlist -- ) : define-protocol ( protocol wordlist -- )
dup [ check-generic ] each
[ drop define-symbol ] [ [ drop define-symbol ] [
fill-in-depth fill-in-depth
[ forget-old-definitions ] [ forget-old-definitions ]