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

Revert "Remove method-declaration stuff from generic.standard since hints accomplishes the same thing" 

This reverts commit 487b92074c.
db4
Slava Pestov 2009-04-22 00:15:48 -05:00
parent 1ca702d1f7
commit a3c0dd44a1
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
core/generic/standard/standard.factor
View File

@ -13,7 +13,13 @@ GENERIC: dispatch# ( word -- n )
M: generic dispatch#
"combination" word-prop dispatch# ;
M: quotation engine>quot ;
GENERIC: method-declaration ( class generic -- quot )
M: generic method-declaration
"combination" word-prop method-declaration ;
M: quotation engine>quot
assumed get generic get method-declaration prepend ;
ERROR: no-method object generic ;
@ -116,6 +122,9 @@ M: standard-combination perform-combination
M: standard-combination dispatch# #>> ;
M: standard-combination method-declaration
dispatch# object <array> swap prefix [ declare ] curry [ ] like ;
M: standard-combination next-method-quot*
[
single-next-method-quot
@ -142,6 +151,8 @@ PREDICATE: hook-generic < generic
M: hook-combination dispatch# drop 0 ;
M: hook-combination method-declaration 2drop [ ] ;
M: hook-generic extra-values drop 1 ;
M: hook-generic effective-method