suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

off by one error in 2htdp/image error messages

Browse Source 
closes PR 11476
This commit is contained in:
Robby Findler 2010-12-06 09:17:19 -06:00
parent fd79abcc1f
commit 45a97cb561
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/2htdp/private/img-err.rkt
View File

@ -49,7 +49,7 @@
(with-syntax ([(i ...) (build-list len add1)]) (with-syntax ([(i ...) (build-list len add1)])
#`(define (fn-name args ... . final-arg) #`(define (fn-name args ... . final-arg)
(let ([args (check/normalize 'fn-name 'args args i)] ... (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)]) final-arg)])
body ...))))] body ...))))]
[(define/chk (fn-name args ...) body ...) [(define/chk (fn-name args ...) body ...)