Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Raising an error in do iterator clauses with more then 3 terms.

Browse source 
Provides a friendlier error for cases like issue #187.
This commit is contained in:
Alex Shinn 2013-07-20 15:12:52 +09:00
parent f5d60050a5
commit e0101944fd
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/init-7.scm
View file

@ -284,7 +284,12 @@
`(,(rename 'begin) `(,(rename 'begin)
,@(cdr (cddr expr)) ,@(cdr (cddr expr))
(,(rename 'lp) (,(rename 'lp)
,@(map (lambda (x) (if (pair? (cddr x)) (car (cddr x)) (car x))) ,@(map (lambda (x)
(if (pair? (cddr x))
(if (pair? (cdr (cddr x)))
(error "too many forms in do iterator" x)
(car (cddr x)))
(car x)))
(cadr expr))))) (cadr expr)))))
(check (car (cddr expr))) (check (car (cddr expr)))
(wrap (wrap