mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

top-repl out to its own module

Browse source 
* module/ice-9/boot-9.scm:
* module/ice-9/top-repl.scm: Move top-repl out here.

* module/Makefile.am: Add new file.

* module/ice-9/deprecated.scm (top-repl): Deprecated shim.

* libguile/script.c (scm_compile_shell_switches): Invoke top-repl from
  its new location.
This commit is contained in:
Andy Wingo 2010-06-22 23:50:27 +02:00
parent 8fba85750d
commit ff87b2bd7c
5 changed files with 86 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/script.c
View file

@ -406,6 +406,7 @@ SCM_SYMBOL (sym_command_line, "command-line");
SCM_SYMBOL (sym_begin, "begin");
SCM_SYMBOL (sym_turn_on_debugging, "turn-on-debugging");
SCM_SYMBOL (sym_load_user_init, "load-user-init");
SCM_SYMBOL (sym_ice_9, "ice-9");
SCM_SYMBOL (sym_top_repl, "top-repl");
SCM_SYMBOL (sym_quit, "quit");
SCM_SYMBOL (sym_use_srfis, "use-srfis");
@ -681,7 +682,11 @@ scm_compile_shell_switches (int argc, char **argv)
/* If we didn't end with a -c or a -s, start the repl. */
if (interactive)
{
tail = scm_cons (scm_cons (sym_top_repl, SCM_EOL), tail);
tail = scm_cons (scm_list_1 (scm_list_3
(sym_at,
scm_list_2 (sym_ice_9, sym_top_repl),
sym_top_repl)),
tail);
}
else
{