fixed error message reporting bugs (merge to release branch)
svn: r17790
This commit is contained in:
parent
bfa543bd11
commit
5f9a774880
|
@ -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))))
|
||||
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user