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

* eval.c, eval.h (scm_top_level_lookup_closure_var): Added.

Browse source 
#include "libguile/fluids.h".

* eval.h (SCM_TOP_LEVEL_LOOKUP_CLOSURE): New macro which replaces
SCM_CDR (scm_top_level_lookup_closure_var) everywhere.
This commit is contained in:
Mikael Djurfeldt 2000-06-21 02:42:14 +00:00
parent 549e6ec69d
commit a0ea2bf043
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.h
View file

@ -118,6 +118,12 @@ extern SCM scm_eval_options_interface (SCM setting);
#define SCM_EXTEND_ENV scm_acons #define SCM_EXTEND_ENV scm_acons
#define SCM_TOP_LEVEL_LOOKUP_CLOSURE scm_fluid_ref (SCM_CDR (scm_top_level_lookup_closure_var))
extern SCM scm_system_transformer;
extern SCM scm_top_level_lookup_closure_var;
extern const char scm_s_expression[]; extern const char scm_s_expression[];
extern const char scm_s_test[]; extern const char scm_s_test[];