Bugfix assq_ref_cache for running without environment cache.

* mes.c (assq_ref_cache) [!ENV_CACHE]: Return *undefined* if nothing
  found.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-30 15:39:36 +01:00
parent 2cad00527e
commit 332d2655cf
1 changed files with 1 additions and 1 deletions

2
mes.c
View File

@ -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){}