diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2019-03-13 09:20:18 +0100 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2019-03-13 09:20:18 +0100 |
| commit | 6b0070bb5c37b118eb09c1ec023999bbdf1781e7 (patch) | |
| tree | 7bbc9df1036b0a7733ea45f3dd74a199929176e1 /modules/language/python/module/collections.scm | |
| parent | e1bf1a32c8453ea485365e9704e7cb983db3b4bb (diff) | |
| parent | db36b6633b5ccd709eac44635ca88e8683ddb4e3 (diff) | |
Merge branch 'master' of https://gitlab.com/python-on-guile/python-on-guile
Diffstat (limited to 'modules/language/python/module/collections.scm')
| -rw-r--r-- | modules/language/python/module/collections.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/modules/language/python/module/collections.scm b/modules/language/python/module/collections.scm index c4d87e4..aae2a8c 100644 --- a/modules/language/python/module/collections.scm +++ b/modules/language/python/module/collections.scm @@ -1,5 +1,6 @@ (define-module (language python module collections) #:use-module (ice-9 control) + #:use-module (ice-9 format) #:use-module (ice-9 pretty-print) #:use-module (oop pf-objects) #:use-module (oop goops) @@ -411,10 +412,11 @@ (define elements (lambda (self) ((make-generator () - (for ((k v : self)) () - (if (and (number? v) (integer? v) (> v 0)) - (for ((i : (range v))) () - (yield k)))))))) + (lambda (yield) + (for ((k v : self)) () + (if (and (number? v) (integer? v) (> v 0)) + (for ((i : (range v))) () + (yield k))))))))) (define fromkeys (lambda x |