andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Jan Nieuwenhuizen 2019-11-16 22:18:52 +01:00
parent 063f3cd6e3
commit a66a5392a6
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/variable.c
View File

@ -63,35 +63,12 @@ variable_bound_p (struct scm *var)
struct scm *
handle_set_x (struct scm *handle, struct scm *value)
{
#if 0
struct scm *x = handle->cdr;
if (x->type == TVARIABLE)
x->variable = value;
else
handle->cdr = value;
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
}
/*