From a0ea2bf0433a3519394429f891ac04e62d79819f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 21 Jun 2000 02:42:14 +0000 Subject: [PATCH] * eval.c, eval.h (scm_top_level_lookup_closure_var): Added. #include "libguile/fluids.h". * eval.h (SCM_TOP_LEVEL_LOOKUP_CLOSURE): New macro which replaces SCM_CDR (scm_top_level_lookup_closure_var) everywhere. --- libguile/eval.h | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/libguile/eval.h b/libguile/eval.h index 7f3abc6de..4fa1e6d7a 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -118,6 +118,12 @@ extern SCM scm_eval_options_interface (SCM setting); #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_test[];