summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/script.c')
-rw-r--r--libguile/script.c6
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)