From 0de2c454f35aac11ec2ff8cb760ba6548cac28af Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 2 Jul 2008 12:53:01 +0000 Subject: [PATCH] fix errortrace on set! expressions (incorrectly incremented phase in recur) svn: r10557 --- collects/errortrace/scribblings/errortrace.scrbl | 2 +- collects/errortrace/stacktrace.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/errortrace/scribblings/errortrace.scrbl b/collects/errortrace/scribblings/errortrace.scrbl index 9999fc5f3f..2673a59cc7 100644 --- a/collects/errortrace/scribblings/errortrace.scrbl +++ b/collects/errortrace/scribblings/errortrace.scrbl @@ -356,7 +356,7 @@ During execution of the program, this is called for each point with the key for that program point that was passed to @schemein[initialize-test-coverage-point].} -@defproc[(initialize-test-coverage-point (key any/c) (stx any)) void?]{ +@defproc[(initialize-test-coverage-point (key any/c) (stx any/c)) void?]{ During compilation of the program, this function is called with each sub-expression of the program. The first argument is a special key diff --git a/collects/errortrace/stacktrace.ss b/collects/errortrace/stacktrace.ss index 646b067f9e..318412225b 100644 --- a/collects/errortrace/stacktrace.ss +++ b/collects/errortrace/stacktrace.ss @@ -461,7 +461,7 @@ (let ([new-rhs (annotate-named (syntax var) (syntax rhs) - (add1 phase))]) + phase)]) ;; set! might fail on undefined variable, or too many values: (with-mark expr (certify