WIP
This commit is contained in:
parent
447a258b48
commit
6ec8734bc2
|
@ -170,13 +170,11 @@ struct scm *
|
||||||
lookup_ref (struct scm *name, struct scm *bound_p)
|
lookup_ref (struct scm *name, struct scm *bound_p)
|
||||||
{
|
{
|
||||||
struct scm *handle = lookup_handle (name, cell_f);
|
struct scm *handle = lookup_handle (name, cell_f);
|
||||||
if (handle == cell_f)
|
if (handle->type == TPAIR)
|
||||||
{
|
return handle->cdr;
|
||||||
if (bound_p == cell_t)
|
if (bound_p == cell_t)
|
||||||
error (cell_symbol_unbound_variable, name);
|
error (cell_symbol_unbound_variable, name);
|
||||||
return cell_undefined;
|
return cell_undefined;
|
||||||
}
|
|
||||||
return handle->cdr;
|
|
||||||
}
|
}
|
||||||
|
|
||||||
struct scm *
|
struct scm *
|
||||||
|
|
Loading…
Reference in New Issue