diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-04 23:12:43 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-04 23:12:43 -0700 |
| commit | 93e858c46aff06962f123327127a3b2eb9600987 (patch) | |
| tree | 428931213af8a4741281f5923f23e56f3aa8b0c4 /gencadr.txr | |
| parent | 068c3e64c94f0fa8cfb3fa867e592a9413c06780 (diff) | |
| download | txr-93e858c46aff06962f123327127a3b2eb9600987.tar.gz txr-93e858c46aff06962f123327127a3b2eb9600987.tar.bz2 txr-93e858c46aff06962f123327127a3b2eb9600987.zip | |
autoload: don't refer to .tl files specifically.
We would like to load the compiled versions of the library
files, if they exist, in preference to the source versions.
So we want to issue loads without the .tl suffix; let the
load function sort it out.
* gencadr.c (cadr_register): Drop .tl suffix.
* lisplib.c (place_instantiate, ver_instantiate,
ifa_instantiate, txr_case_instantiate,
with_resources_instantiate, path_test_instantiate,
struct_instantiate, with_stream_instantiate, hash_instantiate,
except_instantiate, type_instantiate, yield_instantiate,
termios_instantiate, awk_instantiate, build_instantiate,
trace_instantiate, getopts_instantiate, package_instantiate,
getput_instantiate, tagbody_instantiate, pmac_instantiate,
error_instantiate, keyparams_instantiate, ffi_instantiate,
doloop_instantiate, stream_wrap_instantiate, asm_instantiate,
compiler_instantiate, op_instantiate): Likewise.
* cadr.c: Regenerated.
Diffstat (limited to 'gencadr.txr')
| -rw-r--r-- | gencadr.txr | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gencadr.txr b/gencadr.txr index c6b48120..97ee08f7 100644 --- a/gencadr.txr +++ b/gencadr.txr @@ -48,7 +48,7 @@ static val cadr_register(val set_fun) @ (repeat) reg_fun(intern(lit("c@{ad}r"), user_package), func_n1(c@{ad}r)); @ (end) - load(format(nil, lit("~acadr.tl"), stdlib_path, nao)); + load(format(nil, lit("~acadr"), stdlib_path, nao)); return nil; } |