diff options
Diffstat (limited to 'modules/language/python/list.scm')
-rw-r--r-- | modules/language/python/list.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/modules/language/python/list.scm b/modules/language/python/list.scm index dc63298..0cbd30a 100644 --- a/modules/language/python/list.scm +++ b/modules/language/python/list.scm @@ -487,6 +487,29 @@ (define-class <py-seq-iter> () o i n d) (define-class <py-list-iter> (<py-list>) i d) +(name-object <py-seq-iter>) +(name-object <py-list-iter>) + +(cpit <py-list-iter> (o (lambda (o i d) + (slot-set! o 'i i) + (slot-set! o 'd d)) + (list + (slot-ref o 'i) + (slot-ref o 'd)))) + +(cpit <py-seq-iter> (o (lambda (o oo i n d) + (slot-set! o 'o oo) + (slot-set! o 'i i) + (slot-set! o 'n i) + (slot-set! o 'd d)) + (list + (slot-ref o 'o) + (slot-ref o 'i) + (slot-ref o 'n) + (slot-ref o 'd)))) + + + (define-method (write (o <py-list-iter>) . l) (define port (if (null? l) #t (car l))) (for ((x : o)) ((l '())) |