diff options
-rw-r--r-- | modules/language/python/compile.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 302e780..b94e867 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -882,7 +882,12 @@ (k) (s)))) -(define (wrap-in x) +(define-method (wrap-in (x <p>)) + (aif it (ref x '__iter__ #f) + (it) + x)) + +(define-method (wrap-in x) (cond ((pair? x) (let ((o (make <scm-list>))) |