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

cs: fix cross compile to omit RTD descriptions

Browse Source 
This is another way that cross compilation differed from direct
compilation, overlooked before because it's an argumen to
`compile-to-port` instead of a parameter.
This commit is contained in:
Matthew Flatt 2021-04-06 07:46:56 -06:00
parent 185809bc2c
commit 1ad31fe559
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/c/cross-serve.ss
View File

@ -42,7 +42,7 @@
3 3
(optimize-level))] (optimize-level))]
[fasl-compressed compress-code?]) [fasl-compressed compress-code?])
(compile-to-port (list v) o #f #f #f (string->symbol target) #f pred))))] (compile-to-port (list v) o #f #f #f (string->symbol target) #f pred 'omit-rtds))))]
[(#\f) [(#\f)
;; Reads host fasl format, then writes target fasl format ;; Reads host fasl format, then writes target fasl format
(call-with-fasled (call-with-fasled

2
racket/src/cs/linklet.sls
View File

@ -258,6 +258,8 @@
(call-getting-literals (call-getting-literals
quoteds quoteds
(lambda (pred) (lambda (pred)
;; If arguments change here, then probably they should change in
;; "cross-serve.ss", too:
(compile-to-port s o #f #f #f (machine-type) #f pred 'omit-rtds))))))) (compile-to-port s o #f #f #f (machine-type) #f pred 'omit-rtds)))))))
(define (expand/optimize* e unsafe?) (define (expand/optimize* e unsafe?)
(call-with-system-wind (lambda () (call-with-system-wind (lambda ()