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

fix errortrace on set! expressions (incorrectly incremented phase in recur)

Browse Source 
svn: r10557
This commit is contained in:
Matthew Flatt 2008-07-02 12:53:01 +00:00
parent f820f00e66
commit 0de2c454f3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/errortrace/scribblings/errortrace.scrbl
View File

@ -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 the key for that program point that was passed to
@schemein[initialize-test-coverage-point].} @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 During compilation of the program, this function is called with each
sub-expression of the program. The first argument is a special key sub-expression of the program. The first argument is a special key

2
collects/errortrace/stacktrace.ss
View File

@ -461,7 +461,7 @@
(let ([new-rhs (annotate-named (let ([new-rhs (annotate-named
(syntax var) (syntax var)
(syntax rhs) (syntax rhs)
(add1 phase))]) phase)])
;; set! might fail on undefined variable, or too many values: ;; set! might fail on undefined variable, or too many values:
(with-mark expr (with-mark expr
(certify (certify