From 1ad31fe5590ce914ac3f62350c96773d200798b5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 6 Apr 2021 07:46:56 -0600 Subject: [PATCH] cs: fix cross compile to omit RTD descriptions 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. --- racket/src/cs/c/cross-serve.ss | 2 +- racket/src/cs/linklet.sls | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/src/cs/c/cross-serve.ss b/racket/src/cs/c/cross-serve.ss index 147c214b03..9eaa8850d5 100644 --- a/racket/src/cs/c/cross-serve.ss +++ b/racket/src/cs/c/cross-serve.ss @@ -42,7 +42,7 @@ 3 (optimize-level))] [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) ;; Reads host fasl format, then writes target fasl format (call-with-fasled diff --git a/racket/src/cs/linklet.sls b/racket/src/cs/linklet.sls index 57cd97160a..87fd89edb1 100644 --- a/racket/src/cs/linklet.sls +++ b/racket/src/cs/linklet.sls @@ -258,6 +258,8 @@ (call-getting-literals quoteds (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))))))) (define (expand/optimize* e unsafe?) (call-with-system-wind (lambda ()