From fa972f04768a41beff6b1f474ac6f93a52299927 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 6 Mar 2019 06:42:53 -0700 Subject: [PATCH] cs: unbreak cross compilation Better checking in a7988c3813 exposed a problem with the expander's recompiler in the case of cross compiling. --- racket/src/cs/linklet/check.ss | 2 +- racket/src/expander/compile/correlated-linklet.rkt | 2 +- racket/src/racket/src/linklet.c | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/src/cs/linklet/check.ss b/racket/src/cs/linklet/check.ss index 6ea90b1ad8..d195bc8a3a 100644 --- a/racket/src/cs/linklet/check.ss +++ b/racket/src/cs/linklet/check.ss @@ -8,7 +8,7 @@ (raise-arguments-error who (string-append "no vector supplied for import keys, but import-getting function provided;\n" - " the function argument must be `#f' when the vector argument is `#f'") + " the function argument must be `#f` when the vector argument is `#f`") "import-getting function" get-import)) (let loop ([options orig-options] [redundant #f] diff --git a/racket/src/expander/compile/correlated-linklet.rkt b/racket/src/expander/compile/correlated-linklet.rkt index 102b501167..88cee26c6c 100644 --- a/racket/src/expander/compile/correlated-linklet.rkt +++ b/racket/src/expander/compile/correlated-linklet.rkt @@ -44,7 +44,7 @@ (compile-linklet (correlated-linklet-expr l) (correlated-linklet-name l) #f - (lambda (import-key) (values #f #f)) + #f '()))] [else (error 'eval-correlated-linklet "cannot evaluate unknown linklet: ~s" l)])) diff --git a/racket/src/racket/src/linklet.c b/racket/src/racket/src/linklet.c index 16764ca375..c06ec12083 100644 --- a/racket/src/racket/src/linklet.c +++ b/racket/src/racket/src/linklet.c @@ -337,7 +337,7 @@ void extract_import_info(const char *who, int argc, Scheme_Object **argv, if (!*_import_keys) { scheme_contract_error(who, "no vector supplied for import keys, but import-getting function provided;\n" - " the function argument must be `#f' when the vector argument is `#f'", + " the function argument must be `#f` when the vector argument is `#f`", "import-getting function", 1, argv[3], NULL); }