13 lines
377 B
Racket
13 lines
377 B
Racket
#lang scheme/base
|
|
|
|
(require scheme/runtime-path)
|
|
|
|
;; Check that relative paths are preserved:
|
|
(define-runtime-path f1 "embed-me1f1.rktl")
|
|
(define-runtime-path f2 "sub/embed-me1f2.rktl")
|
|
|
|
(with-output-to-file (build-path (find-system-path 'temp-dir) "stdout")
|
|
(lambda () (parameterize ([current-namespace (make-base-namespace)])
|
|
(load f1)))
|
|
#:exists 'append)
|