use code inspector

svn: r858
2005-09-15 17:50:32 +00:00 · 2005-09-15 17:50:32 +00:00 · 8a35993125
commit 8a35993125
parent c73537ff13
1 changed files with 1 additions and 1 deletions
--- a/collects/errortrace/stacktrace.ss
+++ b/collects/errortrace/stacktrace.ss
@ -258,7 +258,7 @@
                           bodys)])
          (rebuild expr (map cons bodys bodyl))))

-      (define orig-inspector (current-inspector))
+      (define orig-inspector (current-code-inspector))

      (define (certify orig new)
        (syntax-recertify new orig orig-inspector #f))