wip
This commit is contained in:
parent
2deb3d6a35
commit
063f3cd6e3
|
@ -45,32 +45,9 @@ flat_variable_ref (struct scm *var)
|
|||
struct scm *
|
||||
variable_set_x (struct scm *var, struct scm *value)
|
||||
{
|
||||
#if 0
|
||||
assert_variable (1, var);
|
||||
var->variable = value;
|
||||
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 *
|
||||
|
|
Loading…
Reference in New Issue