| diff --git a/libguile/script.c b/libguile/script.c
|
| index 6430484a3..81b4a2bf6 100644
|
| --- a/libguile/script.c
|
| +++ b/libguile/script.c
|
| @@ -40,6 +40,7 @@
|
| #include "eval.h"
|
| #include "feature.h"
|
| #include "fluids.h"
|
| +#include "foreign.h"
|
| #include "load.h"
|
| #include "modules.h"
|
| #include "pairs.h"
|
| @@ -341,6 +342,10 @@ scm_compile_shell_switches (int argc, char **argv)
|
| void
|
| scm_shell (int argc, char **argv)
|
| {
|
| + /* Save original argc and argv to find the ELF auxiliary vector later */
|
| + scm_c_define ("%original-argc", scm_from_int (argc));
|
| + scm_c_define ("%original-argv", scm_from_pointer ((void *) argv, NULL));
|
| +
|
| /* If present, add SCSH-style meta-arguments from the top of the
|
| script file to the argument vector. See the SCSH manual: "The
|
| meta argument" for more details. */
|