summaryrefslogtreecommitdiff
path: root/libguile/load.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-02-22 20:52:46 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-02-22 20:52:46 +0000
commitf1b7a06676950dd77c6d81f205fd52f59cfac3a6 (patch)
tree1684c45b361ded564680ecdfa357f9974d4b4088 /libguile/load.c
parentb42ff180903838650e2f6c0ba1fee55640e5a76b (diff)
downloadguile-f1b7a06676950dd77c6d81f205fd52f59cfac3a6.tar.gz
* load.c (load): Use scm_primtive_eval_x instead of scm_i_eval_x.
Diffstat (limited to 'libguile/load.c')
-rw-r--r--libguile/load.c9
1 files changed, 1 insertions, 8 deletions
diff --git a/libguile/load.c b/libguile/load.c
index 71a661d37..5002be721 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -97,14 +97,7 @@ load (void *data)
SCM form = scm_read (port);
if (SCM_EOF_OBJECT_P (form))
break;
- /* Ugh! We need to re-check the environment for every form.
- * We should change this in the new module system.
- */
- scm_i_eval_x (form,
- scm_module_system_booted_p
- ? (scm_top_level_env
- (SCM_MODULE_EVAL_CLOSURE (scm_current_module ())))
- : SCM_EOL);
+ scm_primitive_eval_x (form);
}
return SCM_UNSPECIFIED;
}