www

commit c461e8a6e0777be2d29818c4d79beec5eb3dfd1e
parent b2397e30923ca6147853799f38dca1856d38eef8
Author: Carl Eastlund <cce@racket-lang.org>
Date:   Fri, 17 Jun 2011 13:09:45 -0400

Fixed a macro stepper bug: can't use zero? on syntax span, as it can be #f.

Please include in the upcoming release.

original commit: 302cbb5275f2511cd0b72a2625e69afa8b7c894b

Diffstat:
M
collects/macro-debugger/syntax-browser/properties.rkt
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/collects/macro-debugger/syntax-browser/properties.rkt b/collects/macro-debugger/syntax-browser/properties.rkt
@@ -212,16 +212,16 @@
       (define s-line (syntax-line stx))
       (define s-column (syntax-column stx))
       (define s-position (syntax-position stx))
-      (define s-span0 (syntax-span stx))
-      (define s-span (if (zero? s-span0) #f s-span0))
+      (define s-span (syntax-span stx))
+      (define s-span-known? (not (memv s-span '(0 #f))))
       (display "Source location\n" key-sd)
-      (if (or s-source s-line s-column s-position s-span)
+      (if (or s-source s-line s-column s-position s-span-known?)
           (begin
             (display-subkv "source" (prettify-source s-source))
             (display-subkv "line" s-line)
             (display-subkv "column" s-column)
             (display-subkv "position" s-position)
-            (display-subkv "span" s-span0))
+            (display-subkv "span" s-span))
           (display "No source location available\n" n/a-sd))
       (display "\n" #f))