diff options
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))) |