This commit is contained in:
Jan Nieuwenhuizen 2019-11-16 22:17:35 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 85bb22a22c
commit bd63d0e24c
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 23 deletions

View File

@ -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 *