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

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

Browse Source 
Please include in the upcoming release.
(cherry picked from commit 302cbb5275)
This commit is contained in:
Carl Eastlund 2011-06-17 13:09:45 -04:00 committed by Eli Barzilay
parent 1f7e9658a3
commit a03b11befc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/macro-debugger/syntax-browser/properties.rkt
View File

@ -212,16 +212,16 @@
(define s-line (syntax-line stx)) (define s-line (syntax-line stx))
(define s-column (syntax-column stx)) (define s-column (syntax-column stx))
(define s-position (syntax-position stx)) (define s-position (syntax-position stx))
(define s-span0 (syntax-span stx)) (define s-span (syntax-span stx))
(define s-span (if (zero? s-span0) #f s-span0)) (define s-span-known? (not (memv s-span '(0 #f))))
(display "Source location\n" key-sd) (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 (begin
(display-subkv "source" (prettify-source s-source)) (display-subkv "source" (prettify-source s-source))
(display-subkv "line" s-line) (display-subkv "line" s-line)
(display-subkv "column" s-column) (display-subkv "column" s-column)
(display-subkv "position" s-position) (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 "No source location available\n" n/a-sd))
(display "\n" #f)) (display "\n" #f))