summaryrefslogtreecommitdiff
path: root/libguile/load.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/load.c')
-rw-r--r--libguile/load.c38
1 files changed, 30 insertions, 8 deletions
diff --git a/libguile/load.c b/libguile/load.c
index f1da0547e..066556f94 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -48,6 +48,7 @@
#include "eval.h"
#include "throw.h"
#include "alist.h"
+#include "dynwind.h"
#include "load.h"
@@ -69,6 +70,28 @@
Applied to the full name of the file. */
static SCM *scm_loc_load_hook;
+void
+swap_port (void *data)
+{
+ SCM *save_port = data, tmp = scm_cur_loadp;
+ scm_cur_loadp = *save_port;
+ *save_port = tmp;
+}
+
+static SCM
+load (void *data)
+{
+ SCM port = (SCM) data, form;
+ while (1)
+ {
+ form = scm_read (port);
+ if (SCM_EOF_OBJECT_P (form))
+ break;
+ scm_eval_x (form);
+ }
+ return SCM_UNSPECIFIED;
+}
+
SCM_PROC(s_primitive_load, "primitive-load", 1, 0, 0, scm_primitive_load);
SCM
scm_primitive_load (filename)
@@ -86,16 +109,15 @@ scm_primitive_load (filename)
scm_apply (hook, scm_listify (filename, SCM_UNDEFINED), SCM_EOL);
{
- SCM form, port;
+ SCM port, save_port;
port = scm_open_file (filename,
scm_makfromstr ("r", (scm_sizet) sizeof (char), 0));
- while (1)
- {
- form = scm_read (port);
- if (SCM_EOF_OBJECT_P (form))
- break;
- scm_eval_x (form);
- }
+ save_port = port;
+ scm_internal_dynamic_wind (swap_port,
+ load,
+ swap_port,
+ (void *) port,
+ &save_port);
scm_close_port (port);
}
return SCM_UNSPECIFIED;