diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-05-06 20:07:42 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-05-06 20:07:42 +0200 |
commit | 1753734c420edd4a5a641ad8e9c7250534dff136 (patch) | |
tree | 334ac95b3bbb7f52ef3d324ce02733506ae7a67c /modules/language/python/list.scm | |
parent | 3d529f7540ca954131802a832be6811f2815ed0e (diff) |
further improvements
Diffstat (limited to 'modules/language/python/list.scm')
-rw-r--r-- | modules/language/python/list.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm index 91b66b4..e488e45 100644 --- a/modules/language/python/list.scm +++ b/modules/language/python/list.scm @@ -568,7 +568,12 @@ (define-method (wrap-in (o <p>)) (aif it (ref o '__iter__) - (it) + (let ((x (it))) + (cond + ((pair? x) + (wrap-in x)) + (else + x))) (let ((a (ref o '__getitem__))) (if a (let ((ret (make <py-seq-iter>))) |