fix probable bug

svn: r12445
2008-11-14 08:02:21 +00:00 · 2008-11-14 08:02:21 +00:00 · 7563016cf8
commit 7563016cf8
parent 984e6d7e2a
1 changed files with 1 additions and 1 deletions
--- a/collects/errortrace/stacktrace.ss
+++ b/collects/errortrace/stacktrace.ss
@ -516,7 +516,7 @@
                ;; It's a null:
                expr]
               [(syntax-case* expr (#%plain-app void)
-                              (if phase
+                              (if (positive? phase)
                                free-transformer-identifier=?
                                free-identifier=?)
                  [(#%plain-app void) #t]