fixed error message reporting bugs (merge to release branch)

svn: r17790
This commit is contained in:
Robby Findler 2010-01-23 23:07:34 +00:00
parent bfa543bd11
commit 5f9a774880
2 changed files with 2 additions and 2 deletions

View File

@ -117,7 +117,7 @@
(overlay/internal 'middle 'middle image (cons image2 image3)))
;; underlay : image image image ... -> image
(define (underlay image image2 . image3)
(define/chk (underlay image image2 . image3)
(let ([imgs (reverse (list* image image2 image3))])
(overlay/internal 'middle 'middle (car imgs) (cdr imgs))))

View File

@ -49,7 +49,7 @@
[(define/chk (fn-name args ... . final-arg) body ...)
(identifier? #'final-arg)
(let ([len (length (syntax->list #'(args ...)))])
(with-syntax ([(i ...) (build-list len values)])
(with-syntax ([(i ...) (build-list len add1)])
#`(define (fn-name args ... . final-arg)
(let ([args (check/normalize 'fn-name 'args args i)] ...
[final-arg (map/i (λ (x j) (check/normalize 'fn-name 'final-arg x (+ #,len j)))