guile/guile-core/libguile load.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/02/22 12:52:46

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

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

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/load.c.diff?r1=1.52&r2=1.53

Patches:
Index: guile/guile-core/libguile/load.c
diff -u guile/guile-core/libguile/load.c:1.52 
guile/guile-core/libguile/load.c:1.53
--- guile/guile-core/libguile/load.c:1.52       Fri Feb 16 07:12:26 2001
+++ guile/guile-core/libguile/load.c    Thu Feb 22 12:52:46 2001
@@ -97,14 +97,7 @@
       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;
 }