guile modifications git diff and strating supporting yield
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Fri, 8 Sep 2017 14:37:20 +0000 (16:37 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Fri, 8 Sep 2017 14:37:20 +0000 (16:37 +0200)
modules/language/python/compile.scm

index 302e78055952a063544511c30bc8d2b865793da1..b94e867e3f5240fd6196c09f075899697230e439 100644 (file)
         (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>)))