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 ()