diff options
Diffstat (limited to 'modules/language/python/for.scm')
| -rw-r--r-- | modules/language/python/for.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/modules/language/python/for.scm b/modules/language/python/for.scm index ec245df..0cb7afe 100644 --- a/modules/language/python/for.scm +++ b/modules/language/python/for.scm @@ -82,7 +82,18 @@ (define-class <scm-list> () l) (define-class <scm-string> () s i) - + +(name-object <scm-list>) +(name-object <scm-string>) +(cpit <scm-list> (o (lambda (o l) (slot-set! o 'l l)) + (list (slot-ref o 'l)))) +(cpit <scm-string> (o (lambda (o s i) + (slot-set! o 's s) + (slot-set! o 'i i)) + (list + (slot-ref o 's) + (slot-ref o 'i)))) + (define-method (next (l <scm-list>)) (let ((ll (slot-ref l 'l))) (if (pair? ll) |