core: struct_set_: Oops typo.
[mes.git] / 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;
 }