From 26b8e6d6040df10093b0ede3a2ac04b3f1c8a22b Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Wed, 13 Mar 2019 17:35:15 +0100 Subject: remove warnings, reordering --- modules/oop/pf-objects.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'modules/oop/pf-objects.scm') diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index e2f0d8b..86a22ef 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -17,7 +17,7 @@ py-super-mac py-super py-equal? *class* *self* pyobject? pytype? type object pylist-set! pylist-ref tr - resolve-method-g rawref rawset py-dict + resolve-method-g rawref rawset rawdel py-dict ref-class fastref fastset )) @@ -186,6 +186,9 @@ explicitly tell it to not update etc. (car l) #f))) +(define-method (rawdel (o ) key) + (error "not implemented yet")) + (define-method (set (o ) key val) (set-procedure-property!- o key val)) @@ -762,6 +765,11 @@ explicitly tell it to not update etc. (define-method (rawref (x ) key . l) (mref x key l)) (define-method (rawref (x

) key . l) (mref x key l)) +(define-method (rawdel (x

) key) + (hash-remove! (slot-ref x 'h) + (if (symbol? key) + key + (string->symbol key)))) (define-method (set (f ) key val) (set-procedure-property!- f key val)) -- cgit v1.2.3