diff options
-rw-r--r-- | libguile/script.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/script.c b/libguile/script.c index aa6021fee..9a65cfe5c 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -575,8 +575,10 @@ scm_compile_shell_switches (int argc, char **argv) scm_set_program_arguments (argc ? argc - i : 0, argv + i, argv0); /* If the --emacs switch was set, now is when we process it. */ - scm_sysintern ("use-emacs-interface", - (use_emacs_interface) ? SCM_BOOL_T : SCM_BOOL_F); + { + SCM vcell = scm_sysintern0_no_module_lookup ("use-emacs-interface"); + SCM_SETCDR (vcell, use_emacs_interface ? SCM_BOOL_T : SCM_BOOL_F); + } /* Handle the `-e' switch, if it was specified. */ if (entry_point != SCM_EOL) |