diff options
-rw-r--r-- | libguile/script.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/script.c b/libguile/script.c index 6e225f6e8..e24c89f51 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -644,7 +644,8 @@ scm_shell (int argc, char **argv) } } - exit (scm_exit_status (scm_eval_x (scm_compile_shell_switches (argc,argv)))); + exit (scm_exit_status (scm_eval_x (scm_compile_shell_switches (argc, argv), + scm_the_root_module ()))); } |