core: struct_set_: Oops typo.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 14 Nov 2018 07:16:58 +0000 (08:16 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 14 Nov 2018 07:16:58 +0000 (08:16 +0100)
* src/struct.c (struct_set_x_): Oops, remove indirection.

src/struct.c

index f73013dc2bfeae7009b61e32c99ddbb3cb06bac1..0460729d3e5f4a666c87a186092cf8cdfe71b760 100644 (file)
@@ -65,7 +65,7 @@ SCM
 struct_set_x_ (SCM x, long i, SCM e)
 {
   assert (TYPE (x) == TSTRUCT);
-  assert (VALUE (i) < LENGTH (x));
+  assert (i < LENGTH (x));
   g_cells[STRUCT (x)+i] = g_cells[vector_entry (e)];
   return cell_unspecified;
 }