diff options
Diffstat (limited to 'modules/language/python/property.scm')
-rw-r--r-- | modules/language/python/property.scm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/modules/language/python/property.scm b/modules/language/python/property.scm index eaefc74..aeb802c 100644 --- a/modules/language/python/property.scm +++ b/modules/language/python/property.scm @@ -3,8 +3,18 @@ #:use-module (oop goops) #:use-module (language python def) #:use-module (language python exceptions) + #:use-module (language python persist) #:export (property)) +(cpit <property> (o (lambda (o get set del) + (slot-set! o 'get get) + (slot-set! o 'set set) + (slot-set! o 'del del)) + (list + (slot-ref o 'get) + (slot-ref o 'set) + (slot-ref o 'del)))) + (define-python-class property (<property>) (define __init__ (lam (o (= getx None) (= setx None) (= delx None)) @@ -32,4 +42,3 @@ (define fset (lambda (self) (slot-ref self 'set))) (define fdel (lambda (self) (slot-ref self 'del)))) - |