diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-21 16:16:02 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-21 16:16:02 +0200 |
| commit | 79f06168aa626017b56c67f7ea8f101f3d15e5d2 (patch) | |
| tree | 66822e7b3bcda949a7455ae7bd56d8d39f39c637 /modules/language/python/set.scm | |
| parent | e89fa22f6521aeaa03954ae5a7dcb99ed608ff28 (diff) | |
refactoring functional objects
Diffstat (limited to 'modules/language/python/set.scm')
| -rw-r--r-- | modules/language/python/set.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/language/python/set.scm b/modules/language/python/set.scm index ef4abe7..e9d7c63 100644 --- a/modules/language/python/set.scm +++ b/modules/language/python/set.scm @@ -23,7 +23,7 @@ (slot-set! self 'dict d) (for ((y : x)) () (pylist-set! d y #t)))))) - + (define pop (lambda (self) (call-with-values (lambda () (pylist-pop! (slot-ref self 'dict))) @@ -32,7 +32,7 @@ (define add (lambda (self k) (pylist-set! (slot-ref self 'dict) k #t))) - + (define copy (lambda (self) (let ((dict (py-copy (slot-ref self 'dict)))) |