move define-inline-method from classes.struct.private to generic.parser

db4
Joe Groff 2009-11-01 22:10:28 -06:00
parent aaba25527c
commit 9184254f2c
2 changed files with 3 additions and 3 deletions

View File

@ -189,9 +189,6 @@ M: struct-c-type c-struct? drop t ;
\ cleave [ ] 2sequence
\ output>array [ ] 2sequence ;
: define-inline-method ( class generic quot -- )
[ create-method-in ] dip [ define ] [ drop make-inline ] 2bi ;
: (define-struct-slot-values-method) ( class -- )
[ \ struct-slot-values ] [ struct-slot-values-quot ] bi
define-inline-method ;

View File

@ -13,6 +13,9 @@ ERROR: not-in-a-method-error ;
: create-method-in ( class generic -- method )
create-method dup set-word dup save-location ;
: define-inline-method ( class generic quot -- )
[ create-method-in ] dip [ define ] [ drop make-inline ] 2bi ;
: CREATE-METHOD ( -- method )
scan-word bootstrap-word scan-word create-method-in ;