diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-04 21:19:09 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-04 21:19:09 +0200 |
commit | 5f8089beb5d77a186f4f00053edf45f1985bdb63 (patch) | |
tree | faca727fb2313f7686f87cf2809a221191289d4c /modules/language/python/module/python.scm | |
parent | 596eebc8eea930e964114defa57ac39e42c2a605 (diff) |
further refinements of properties
Diffstat (limited to 'modules/language/python/module/python.scm')
-rw-r--r-- | modules/language/python/module/python.scm | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/modules/language/python/module/python.scm b/modules/language/python/module/python.scm index 110ae6b..1b8973f 100644 --- a/modules/language/python/module/python.scm +++ b/modules/language/python/module/python.scm @@ -18,18 +18,18 @@ #:use-module (language python number ) #:use-module (language python dir ) #:use-module (language python hash ) + #:use-module (language python property ) #:replace (list abs min max) #:re-export (Exception StopIteration send sendException next GeneratorExit sendClose RuntimeError - len dir next dict None) + len dir next dict None property) #:export (print repr complex float int round set all any bin callable chr classmethod staticmethod divmod enumerate filter format getattr hasattr hash hex isinstance - iter map sum id input oct ord pow - property)) + iter map sum id input oct ord pow)) (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y))) @@ -191,12 +191,6 @@ ((x y z) (py-mod (expt x y) z)))) -(def (property (= getx None) (= setx None) (= delx None)) - (let ((o (make <property>))) - (slot-set! o 'get getx) - (slot-set! o 'set setx) - (slot-set! o 'del delx) - o)) (define min py-min) |