From ffaeb154569ad1e67856c65261a6b3563245eea9 Mon Sep 17 00:00:00 2001
From: Stefan Israelsson Tampe <stefan.itampe@gmail.com>
Date: Thu, 22 Feb 2018 11:22:06 +0100
Subject: itertools

---
 modules/language/python/string.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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

diff --git a/modules/language/python/string.scm b/modules/language/python/string.scm
index 52aa2f1..74eb0d7 100644
--- a/modules/language/python/string.scm
+++ b/modules/language/python/string.scm
@@ -513,6 +513,17 @@
   (equal? (slot-ref o 'str) x))
 
 (define-class <string-iter> (<py-string>) str i d)
+(name-object <string-iter>)
+(cpit <string-iter> (o
+		     (lambda (o str i d)
+		       (slot-set! o 'str str)
+		       (slot-set! o 'i   i  )
+		       (slot-set! o 'd   d  ))
+		     (list
+		      (slot-ref o 'str)
+		      (slot-ref o 'i)
+		      (slot-ref o 'd))))
+		      
 
 (define-method (write (o <string-iter>) . l)
   (define port (if (null? l) #t (car l)))
-- 
cgit v1.2.3