diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-10-19 13:45:39 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-10-19 13:45:39 +0000 |
commit | 440e7b07bd62788c914eb8042075eb0bf577fbb8 (patch) | |
tree | 5739eb71b6ca096ce4910627a0347e1098ec5d1b /libguile/script.c | |
parent | 9d1a28471c4e69ee151a85d44f8888a69bf102ec (diff) | |
download | guile-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.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) |