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:
parent
ed807f8584
commit
fa972f0476
|
@ -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]
|
||||
|
|
|
@ -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)]))
|
||||
|
|
|
@ -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);
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue
Block a user