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

guard path->relative-string/library call properly

Browse Source
This commit is contained in:
Robby Findler 2012-08-15 09:13:14 -05:00
parent 0c9865cee7
commit 85b326d1e7
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/racket/contract/private/provide.rkt
View File

@ -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)