summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-10-19 13:45:39 +0000
committerJim Blandy <jimb@red-bean.com>1998-10-19 13:45:39 +0000
commit440e7b07bd62788c914eb8042075eb0bf577fbb8 (patch)
tree5739eb71b6ca096ce4910627a0347e1098ec5d1b /libguile/script.c
parent9d1a28471c4e69ee151a85d44f8888a69bf102ec (diff)
downloadguile-440e7b07bd62788c914eb8042075eb0bf577fbb8.tar.gz
* script.c (scm_compile_shell_switches): Define
use-emacs-interface in the root module, so the repl code can see it. See today's change to top-repl in ice-9/boot-9.scm.
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)