guile/guile-core/libguile script.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/05/18 17:22:51

Modified files:
        guile-core/libguile: script.c 

Log message:
        (scm_shell): Evaluate the compiled switches in the
        current module, not in the root module.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/script.c.diff?cvsroot=OldCVS&tr1=1.40&tr2=1.41&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/script.c
diff -u guile/guile-core/libguile/script.c:1.40 
guile/guile-core/libguile/script.c:1.41
--- guile/guile-core/libguile/script.c:1.40     Tue May 15 13:12:10 2001
+++ guile/guile-core/libguile/script.c  Fri May 18 17:22:51 2001
@@ -675,7 +675,7 @@
   }
 
   exit (scm_exit_status (scm_eval_x (scm_compile_shell_switches (argc, argv),
-                                    scm_the_root_module ())));
+                                    scm_current_module ())));
 }