diff options
Diffstat (limited to 'modules/oop')
-rw-r--r-- | modules/oop/pf-objects.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm index 2bf904f..cf8ded6 100644 --- a/modules/oop/pf-objects.scm +++ b/modules/oop/pf-objects.scm @@ -65,6 +65,9 @@ explicitly tell it to not update etc. (cons (cons key v) props) (list (cons key v))))) +(define (set-procedure-properties!- o l) + (hashq-set! prophash o l)) + #; (define (pkk . l) (let* ((r (reverse l)) @@ -1273,7 +1276,7 @@ explicitly tell it to not update etc. (format #f "~a(~a)<~a>" p (get-type o) (aif it (find-in-class-raw - o '__name__ 'Annonymous) + o '__name__ #f) it (ref o '__name__ 'Annonymous))))))) @@ -1629,7 +1632,7 @@ explicitly tell it to not update etc. (make-python-class type () (define __new__ new-class0) (define __init_subclass__ (lambda x (values))) - (define ___zub_classes__ (make-weak-key-hash-table)) + (define __zub_classes__ (make-weak-key-hash-table)) (define __subclasses__ subclasses) (define __call__ type-call) (define __str__ *str*) |