mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

* load.c (load): Use scm_primtive_eval_x instead of scm_i_eval_x.

Browse source
This commit is contained in:
Marius Vollmer 2001-02-22 20:52:46 +00:00
parent b42ff18090
commit f1b7a06676
1 changed files with 1 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/load.c
View file

@ -97,14 +97,7 @@ load (void *data)
SCM form = scm_read (port); SCM form = scm_read (port);
if (SCM_EOF_OBJECT_P (form)) if (SCM_EOF_OBJECT_P (form))
break; break;
/* Ugh! We need to re-check the environment for every form. scm_primitive_eval_x (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);
} }
return SCM_UNSPECIFIED; return SCM_UNSPECIFIED;
} }