From d86f188b6703fd4f150ad106a85d5be15c4d2117 Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Fri, 8 Sep 2017 16:37:20 +0200
Subject: guile modifications git diff and strating supporting yield

---
 modules/language/python/compile.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'modules/language/python/compile.scm')

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>)))
-- 
cgit v1.2.3