From a27b72f263a14e4efb97479fb022da43ff81b957 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Wed, 5 Dec 2018 22:03:45 +0100 Subject: module statement compilatoin bugfix --- modules/language/python/module/collections.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'modules/language/python/module/collections.scm') 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 -- cgit v1.2.3