diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-05-15 09:45:10 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-05-15 09:45:10 +0000 |
commit | 7c33806ae676601f902dbdc0f39c1f0828d68951 (patch) | |
tree | 30526d3249f03d715b5703227abdd263148053bc /libguile/eval.c | |
parent | 11bbab474a77ef0c190fd494db4ac81f5c8febdd (diff) | |
download | guile-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.c | 8 |
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 ()); |