wip
This commit is contained in:
parent
2deb3d6a35
commit
063f3cd6e3
|
@ -45,32 +45,9 @@ flat_variable_ref (struct scm *var)
|
||||||
struct scm *
|
struct scm *
|
||||||
variable_set_x (struct scm *var, struct scm *value)
|
variable_set_x (struct scm *var, struct scm *value)
|
||||||
{
|
{
|
||||||
#if 0
|
|
||||||
assert_variable (1, var);
|
assert_variable (1, var);
|
||||||
var->variable = value;
|
var->variable = value;
|
||||||
return cell_unspecified;
|
return cell_unspecified;
|
||||||
#else
|
|
||||||
if (g_debug > 0)
|
|
||||||
{
|
|
||||||
eputs ("variable-set!");
|
|
||||||
write_error_ (var);
|
|
||||||
eputs ("\n");
|
|
||||||
}
|
|
||||||
if (var->type == TPAIR)
|
|
||||||
{
|
|
||||||
struct scm *x = var->cdr;
|
|
||||||
if (x->type == TVARIABLE)
|
|
||||||
x->variable = value;
|
|
||||||
else
|
|
||||||
//set_cdr_x (var, value);
|
|
||||||
var->cdr = value;
|
|
||||||
}
|
|
||||||
else if (var->type == TVARIABLE)
|
|
||||||
var->variable = value;
|
|
||||||
else
|
|
||||||
assert_variable (1, var);
|
|
||||||
return cell_unspecified;
|
|
||||||
#endif
|
|
||||||
}
|
}
|
||||||
|
|
||||||
struct scm *
|
struct scm *
|
||||||
|
|
Loading…
Reference in New Issue