Copy source location to generate runtime paths.

Fix found by @lexi-lambda. Bug reported by dbenoit@fedoraproject.org.
2018-02-06 14:05:49 -05:00 · 2018-02-06 14:05:49 -05:00 · 0a00e82ca1
commit 0a00e82ca1
parent efe5d2d83f
1 changed files with 2 additions and 1 deletions
--- a/racket/collects/racket/runtime-path.rkt
+++ b/racket/collects/racket/runtime-path.rkt
@ -186,7 +186,8 @@
                                        (path-of
                                         #,(datum->syntax
                                            #'orig-stx
-                                            `(,#'this-expression-source-file))))
+                                            `(,#'this-expression-source-file)
+                                            #'orig-stx)))
                                    #'void)])
                 (apply to-values (resolve-paths (#%variable-reference)
                                                 get-dir