autoload: bug: not clearing *expand-hook* correctly.

* autoload.c (autload_try): We must bind the symbol name
expand_hook_s, not its value from the expand_hook macro.
This bug causes an intraction with ifx. If a form expanded
under ifx hits autoload, the infix expansion hook is in effect
for that autoloaded file.  Users of the compiled TXR will not
experience any ill effects, but when compiled files are removed,
triggering fallback on source code, bad things happen.

1 files changed, 1 insertions, 1 deletions

diff --git a/autoload.c b/autoload.c
index 32e24e5c..1f513829 100644
--- a/autoload.c
+++ b/autoload.c
@@ -1147,7 +1147,7 @@ static val autoload_try(al_ns_t ns, val sym)
       dyn_env = make_env(nil, nil, dyn_env);
       env_vbind(dyn_env, package_s, system_package);
       env_vbind(dyn_env, package_alist_s, packages);
-      env_vbind(dyn_env, expand_hook, nil);
+      env_vbind(dyn_env, expand_hook_s, nil);
       opt_compat = 0;
       funcall(fun);
       opt_compat = saved_compat;