From 68f526c2edb76932451a363ad23a927b1b04b2c5 Mon Sep 17 00:00:00 2001 From: Carl Eastlund Date: Fri, 29 Mar 2013 19:19:48 -0400 Subject: [PATCH] source-location-known? should not rely on "span" field --- collects/syntax/srcloc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/syntax/srcloc.rkt b/collects/syntax/srcloc.rkt index efd1da1ae1..39ca198c3a 100644 --- a/collects/syntax/srcloc.rkt +++ b/collects/syntax/srcloc.rkt @@ -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)