diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor index d5e5fdc6c3..f86f3c9d97 100755 --- a/basis/classes/struct/struct.factor +++ b/basis/classes/struct/struct.factor @@ -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 ; diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor index ce048c41da..11fb2b5b42 100644 --- a/core/generic/parser/parser.factor +++ b/core/generic/parser/parser.factor @@ -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 ;