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

defining a generic on something that is not a class would ruin the generic

cvs
Slava Pestov 2005-04-25 23:56:56 +00:00
parent 8b496e60ff
commit 6ff40d6cf3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/generic/generic.factor
View File

@ -74,6 +74,9 @@ math-internals ;
: define-method ( class generic definition -- ) : define-method ( class generic definition -- )
-rot -rot
over metaclass word? [
word-name " is not a class" append throw
] unless
[ "methods" word-prop set-hash ] keep dup <vtable> [ "methods" word-prop set-hash ] keep dup <vtable>
make-generic ; make-generic ;

2
library/test/generic.factor
View File

@ -156,4 +156,4 @@ M: number union-containment drop 2 ;
! Testing recovery from bad method definitions ! Testing recovery from bad method definitions
"GENERIC: unhappy" eval "GENERIC: unhappy" eval
[ "M: vocabularies unhappy ;" eval ] unit-test-fails [ "M: vocabularies unhappy ;" eval ] unit-test-fails
[ ] [ "GENERIC: unhapy" eval ] unit-test [ ] [ "GENERIC: unhappy" eval ] unit-test