summaryrefslogtreecommitdiff
path: root/modules/language/python/for.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/for.scm')
-rw-r--r--modules/language/python/for.scm19
1 files changed, 3 insertions, 16 deletions
diff --git a/modules/language/python/for.scm b/modules/language/python/for.scm
index 76c9fa8..5b7b4a6 100644
--- a/modules/language/python/for.scm
+++ b/modules/language/python/for.scm
@@ -145,14 +145,11 @@
o)
(define-method (wrap-in (o <p>))
- (aif it (pk 2 (ref (pk 1 o) '__iter__))
+ (aif it (ref o '__iter__)
(let ((x (it)))
- (pk 3 x)
(cond
- ((pair? x)
- (wrap-in x))
- (else
- x)))
+ ((pair? x) (wrap-in x))
+ (else x)))
(next-method)))
(define-method (next (l <p>))
@@ -177,13 +174,3 @@
(set! (@@ (oop pf-objects) hashforeach)
(lambda (f d)
(for ((k v : d)) () (f k v))))
-
-#;
-(pk
- (for c ((x : (gen '(1 2 3)))) ((s 0))
- (pk x)
- (if (> x 2) (c s))
- (+ s x)
-
- #:final
- s))