From 9184254f2cb29add8f4c68a6b3833cf9f8267efc Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sun, 1 Nov 2009 22:10:28 -0600 Subject: [PATCH] move define-inline-method from classes.struct.private to generic.parser --- basis/classes/struct/struct.factor | 3 --- core/generic/parser/parser.factor | 3 +++ 2 files changed, 3 insertions(+), 3 deletions(-) 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 ;