From 85b326d1e7cdf0d4174d98c7c5f6f043befafbe4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 15 Aug 2012 09:13:14 -0500 Subject: [PATCH] guard path->relative-string/library call properly --- collects/racket/contract/private/provide.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/racket/contract/private/provide.rkt b/collects/racket/contract/private/provide.rkt index 70659e2214..5e92549c4a 100644 --- a/collects/racket/contract/private/provide.rkt +++ b/collects/racket/contract/private/provide.rkt @@ -570,8 +570,9 @@ [struct-name struct-name] [(selector-ids ...) selector-ids] [(constructor-args ...) (generate-temporaries selector-ids)] - [struct-name-srcloc `'(,(path->relative-string/library - (syntax-source struct-name)) + [struct-name-srcloc `'(,(and (path-string? (syntax-source struct-name)) + (path->relative-string/library + (syntax-source struct-name))) ,(syntax-line struct-name) ,(syntax-column struct-name) ,(syntax-position struct-name)