diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-22 11:22:06 +0100 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-22 11:22:06 +0100 |
| commit | ffaeb154569ad1e67856c65261a6b3563245eea9 (patch) | |
| tree | 101ca357a43a39781dce6aadb86458c853373014 /modules/language/python/property.scm | |
| parent | 5bec0d599fa5f48a9bfe531c6f525df3417a41f4 (diff) | |
itertools
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)))) - |