From 440e7b07bd62788c914eb8042075eb0bf577fbb8 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 19 Oct 1998 13:45:39 +0000 Subject: * 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. --- libguile/script.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'libguile/script.c') 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) -- cgit v1.2.3