summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-05-15 09:45:10 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-05-15 09:45:10 +0000
commit7c33806ae676601f902dbdc0f39c1f0828d68951 (patch)
tree30526d3249f03d715b5703227abdd263148053bc /libguile/eval.c
parent11bbab474a77ef0c190fd494db4ac81f5c8febdd (diff)
downloadguile-7c33806ae676601f902dbdc0f39c1f0828d68951.tar.gz
* Make SCM_DEBUG_CELL_ACCESSES=1 work with GUILE_DEBUG_FREELIST.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 24f274938..a4fea7d63 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -4083,6 +4083,11 @@ scm_init_eval ()
scm_set_smob_mark (scm_tc16_promise, scm_markcdr);
scm_set_smob_print (scm_tc16_promise, promise_print);
+ /* Dirk:Fixme:: make scm_undefineds local to eval.c: it's only used here. */
+ scm_undefineds = scm_cons (SCM_UNDEFINED, SCM_EOL);
+ SCM_SETCDR (scm_undefineds, scm_undefineds);
+ scm_listofnull = scm_cons (SCM_EOL, SCM_EOL);
+
scm_f_apply = scm_make_subr ("apply", scm_tc7_lsubr_2, scm_apply);
scm_lisp_nil = scm_sysintern ("nil", SCM_UNDEFINED);
@@ -4092,9 +4097,6 @@ scm_init_eval ()
SCM_SETCDR (scm_lisp_t, SCM_CAR (scm_lisp_t));
scm_lisp_t = SCM_CAR (scm_lisp_t);
- /* acros */
- /* end of acros */
-
#if SCM_DEBUG_DEPRECATED == 0
scm_top_level_lookup_closure_var =
scm_sysintern ("*top-level-lookup-closure*", scm_make_fluid ());