This commit is contained in:
Jan Nieuwenhuizen 2019-11-16 15:47:03 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 447a258b48
commit 6ec8734bc2
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 5 additions and 7 deletions

View File

@ -170,13 +170,11 @@ struct scm *
lookup_ref (struct scm *name, struct scm *bound_p)
{
struct scm *handle = lookup_handle (name, cell_f);
if (handle == cell_f)
{
if (bound_p == cell_t)
error (cell_symbol_unbound_variable, name);
return cell_undefined;
}
return handle->cdr;
if (handle->type == TPAIR)
return handle->cdr;
if (bound_p == cell_t)
error (cell_symbol_unbound_variable, name);
return cell_undefined;
}
struct scm *