* root.h (scm_root_state): Added scm_cur_loadp.

* root.c (mark_root): Added comment about cur_loadp.

diff --git a/libguile/root.c b/libguile/root.c
index 46c4289..22a88f3 100644 (file)
--- a/libguile/root.c
+++ b/libguile/root.c
@@ -90,6 +90,7 @@ mark_root (root)
   scm_gc_mark (s->def_inp);
   scm_gc_mark (s->def_outp);
   scm_gc_mark (s->def_errp);
+  /* No need to gc mark def_loadp */
   scm_gc_mark (s->fluids);
   scm_gc_mark (s->top_level_lookup_closure_var);
   scm_gc_mark (s->system_transformer);

diff --git a/libguile/root.h b/libguile/root.h
index 598bade..032ad31 100644 (file)
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -109,6 +109,7 @@ typedef struct scm_root_state
   SCM def_inp;
   SCM def_outp;
   SCM def_errp;
+  SCM cur_loadp;
 
   SCM fluids;
 
@@ -138,6 +139,7 @@ typedef struct scm_root_state
 #define scm_def_inp                    (scm_root->def_inp)
 #define scm_def_outp                   (scm_root->def_outp)
 #define scm_def_errp                   (scm_root->def_errp)
+#define scm_cur_loadp                  (scm_root->cur_loadp)
 #define scm_top_level_lookup_closure_var \
                                        (scm_root->top_level_lookup_closure_var)
 #define scm_system_transformer         (scm_root->system_transformer)