wip
This commit is contained in:
parent
bd63d0e24c
commit
82dc8523f3
|
@ -63,35 +63,12 @@ variable_bound_p (struct scm *var)
|
||||||
struct scm *
|
struct scm *
|
||||||
handle_set_x (struct scm *handle, struct scm *value)
|
handle_set_x (struct scm *handle, struct scm *value)
|
||||||
{
|
{
|
||||||
#if 0
|
|
||||||
struct scm *x = handle->cdr;
|
struct scm *x = handle->cdr;
|
||||||
if (x->type == TVARIABLE)
|
if (x->type == TVARIABLE)
|
||||||
x->variable = value;
|
x->variable = value;
|
||||||
else
|
else
|
||||||
handle->cdr = value;
|
handle->cdr = value;
|
||||||
return cell_unspecified;
|
return cell_unspecified;
|
||||||
#else
|
|
||||||
if (g_debug > 0)
|
|
||||||
{
|
|
||||||
eputs ("variable-set!");
|
|
||||||
write_error_ (handle);
|
|
||||||
eputs ("\n");
|
|
||||||
}
|
|
||||||
if (handle->type == TPAIR)
|
|
||||||
{
|
|
||||||
struct scm *x = handle->cdr;
|
|
||||||
if (x->type == TVARIABLE)
|
|
||||||
x->variable = value;
|
|
||||||
else
|
|
||||||
//set_cdr_x (handle, value);
|
|
||||||
handle->cdr = value;
|
|
||||||
}
|
|
||||||
else if (handle->type == TVARIABLE)
|
|
||||||
handle->variable = value;
|
|
||||||
else
|
|
||||||
assert_variable (1, handle);
|
|
||||||
return cell_unspecified;
|
|
||||||
#endif
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
|
Loading…
Reference in New Issue