Bugfix assq_ref_cache for running without environment cache.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 30 Oct 2016 14:39:36 +0000 (15:39 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Mon, 12 Dec 2016 19:33:49 +0000 (20:33 +0100)
* mes.c (assq_ref_cache) [!ENV_CACHE]: Return *undefined* if nothing
  found.

mes.c

diff --git a/mes.c b/mes.c
index 8249ae4dd18d98ef0136a566007c39d6a915bc8c..19ffbfdaf9d9313cbe1c038186517c43c318f29a 100644 (file)
--- a/mes.c
+++ b/mes.c
@@ -250,7 +250,7 @@ scm *
 assq_ref_cache (scm *x, scm *a)
 {
   x = assq (x, a);
-  if (x == &scm_f) return &scm_f;
+  if (x == &scm_f) return &scm_undefined;
   return x->cdr;
 }
 scm*cache_invalidate (scm*x){}