From 45a97cb561628f7243c8a3e6868b7170af1693d0 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 6 Dec 2010 09:17:19 -0600 Subject: [PATCH] off by one error in 2htdp/image error messages closes PR 11476 --- collects/2htdp/private/img-err.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/2htdp/private/img-err.rkt b/collects/2htdp/private/img-err.rkt index 2c1d42fd25..f877e83da9 100644 --- a/collects/2htdp/private/img-err.rkt +++ b/collects/2htdp/private/img-err.rkt @@ -49,7 +49,7 @@ (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))) + [final-arg (map/i (λ (x j) (check/normalize 'fn-name 'final-arg x (+ #,(+ len 1) j))) final-arg)]) body ...))))] [(define/chk (fn-name args ...) body ...)