misc changes to avoid absolute paths in bytecode files

In many cases, `path->collects-relative' is used instead of
`path->main-collects-relative' to generalize existing support
for collection-relative paths.

original commit: f87981f96057c26cb311e786a91229bf4a874e5b
This commit is contained in:
Matthew Flatt 2013-07-08 12:22:10 -06:00
parent a91597946c
commit a1f83c14b1

View File

@ -31,7 +31,7 @@
(with-syntax ([content content]
[c-file (path->main-collects-relative c-file)])
(syntax/loc stx
(get-or-load-bitmap content 'c-file type))))]))
(get-or-load-bitmap content 'path-spec type))))]))
(define-syntax (include-bitmap/relative-to stx)
(syntax-case stx ()