diff options
Diffstat (limited to 'modules/language/python/for.scm')
-rw-r--r-- | modules/language/python/for.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/language/python/for.scm b/modules/language/python/for.scm index bf37bad..50e6ec4 100644 --- a/modules/language/python/for.scm +++ b/modules/language/python/for.scm @@ -52,6 +52,7 @@ (((x1 ...) ...) (generate-temporaries2 #'((x ...) ...))) (((x2 ...) ...) (generate-temporaries2 #'((x ...) ...))) ((N ...) (map length #'((x ...) ...))) + (M (length #'(c ...))) (else- (datum->syntax #'for 'else-)) (llp (if (syntax->datum #'lp) #'lp #'lpu))) @@ -75,7 +76,7 @@ (call-with-values (lambda () (next It)) (let ((f - (lambda (x2 ...) + (lambda (x2 ... . ll) (set! x1 x2) ...))) (if (> N 1) (case-lambda @@ -96,7 +97,7 @@ #,(wrap-continue #'lp #'((let ((x x) ... ...) code ...))) - (lambda (cc ... . q) (llp cc ...))))) + (lambda (cc ... . q) (llp cc ...))))) (lambda q (else-) fin))))))))))) (define-class <scm-list> () l) |