cs: unbreak cross compilation

Better checking in a7988c3813 exposed a problem with the expander's
recompiler in the case of cross compiling.
This commit is contained in:
Matthew Flatt 2019-03-06 06:42:53 -07:00
parent ed807f8584
commit fa972f0476
3 changed files with 3 additions and 3 deletions

View File

@ -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]

View File

@ -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)]))

View File

@ -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);
}