diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-08 16:37:20 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-09-08 16:37:20 +0200 |
| commit | d86f188b6703fd4f150ad106a85d5be15c4d2117 (patch) | |
| tree | 1b59200d87a5b5df6d0ebcd6b38fdd793222b9cf /modules | |
| parent | d79c8c56951a60d7dd07d33ee0acc3614d2382eb (diff) | |
guile modifications git diff and strating supporting yield
Diffstat (limited to 'modules')
| -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>))) |