mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* script.c (scm_compile_shell_switches): Define

Browse source 
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.
This commit is contained in:
Jim Blandy 1998-10-19 13:45:39 +00:00
parent 9d1a28471c
commit 440e7b07bd
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/script.c
View file

@ -575,8 +575,10 @@ scm_compile_shell_switches (int argc, char **argv)
scm_set_program_arguments (argc ? argc - i : 0, argv + i, argv0); scm_set_program_arguments (argc ? argc - i : 0, argv + i, argv0);
/* If the --emacs switch was set, now is when we process it. */ /* 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. */ /* Handle the `-e' switch, if it was specified. */
if (entry_point != SCM_EOL) if (entry_point != SCM_EOL)