source-location-known? should not rely on "span" field

This commit is contained in:
Carl Eastlund 2013-03-29 19:19:48 -04:00
parent 9efb14e434
commit 68f526c2ed

View File

@ -118,7 +118,7 @@
(current-continuation-marks))))
(define (good-known? x src line col pos span)
(and (or src line col pos span) #t))
(and (or src line col pos) #t))
(define (good-source x src line col pos span) src)
(define (good-line x src line col pos span) line)