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

Move method-declaration to hints

db4
Slava Pestov 2009-04-24 16:53:30 -05:00
parent dd306a6212
commit c877146531
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/hints/hints.factor
View File

@ -42,13 +42,13 @@ SYMBOL: specialize-method?
t specialize-method? set-global t specialize-method? set-global
: method-declaration ( method -- quot )
[ "method-generic" word-prop dispatch# object <array> ]
[ "method-class" word-prop ]
bi prefix [ declare ] curry [ ] like ;
: specialize-method ( quot method -- quot' ) : specialize-method ( quot method -- quot' )
[ [ specialize-method? get [ method-declaration prepend ] [ drop ] if ]
specialize-method? get [
[ "method-class" word-prop ] [ "method-generic" word-prop ] bi
method-declaration prepend
] [ drop ] if
]
[ "method-generic" word-prop "specializer" word-prop ] bi [ "method-generic" word-prop "specializer" word-prop ] bi
[ specialize-quot ] when* ; [ specialize-quot ] when* ;