core: struct_set_: Oops typo.
* src/struct.c (struct_set_x_): Oops, remove indirection.
This commit is contained in:
parent
b4d18e646a
commit
1425127012
|
@ -65,7 +65,7 @@ SCM
|
||||||
struct_set_x_ (SCM x, long i, SCM e)
|
struct_set_x_ (SCM x, long i, SCM e)
|
||||||
{
|
{
|
||||||
assert (TYPE (x) == TSTRUCT);
|
assert (TYPE (x) == TSTRUCT);
|
||||||
assert (VALUE (i) < LENGTH (x));
|
assert (i < LENGTH (x));
|
||||||
g_cells[STRUCT (x)+i] = g_cells[vector_entry (e)];
|
g_cells[STRUCT (x)+i] = g_cells[vector_entry (e)];
|
||||||
return cell_unspecified;
|
return cell_unspecified;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue