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

compiler/cm: repair for chained compiled-file roots

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-27 20:10:03 -07:00
parent 3e5e2cc30d
commit 408a8cb79e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
racket/collects/compiler/private/cm-minimal.rkt
View File

@ -339,6 +339,7 @@
path path
(get-module-code path (path->mode path) compile (get-module-code path (path->mode path) compile
(lambda (a b) #f) ; extension handler (lambda (a b) #f) ; extension handler
#:roots (list (car roots))
#:source-reader read-src-syntax)))) #:source-reader read-src-syntax))))
(define dest-roots (list (car roots))) (define dest-roots (list (car roots)))
(define-values (code-dir code-name) (define-values (code-dir code-name)