diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-22 11:22:06 +0100 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-02-22 11:22:06 +0100 |
commit | ffaeb154569ad1e67856c65261a6b3563245eea9 (patch) | |
tree | 101ca357a43a39781dce6aadb86458c853373014 /modules/language/python/string.scm | |
parent | 5bec0d599fa5f48a9bfe531c6f525df3417a41f4 (diff) |
itertools
Diffstat (limited to 'modules/language/python/string.scm')
-rw-r--r-- | modules/language/python/string.scm | 11 |
1 files changed, 11 insertions, 0 deletions
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))) |