From 75655793d4d0ba1ca7404252d523e898eb696cf2 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 14 Nov 2018 08:16:58 +0100
Subject: [PATCH] core: struct_set_: Oops typo.

* src/struct.c (struct_set_x_): Oops, remove indirection.
---
 src/struct.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/struct.c b/src/struct.c
index f73013dc..0460729d 100644
--- a/src/struct.c
+++ b/src/struct.c
@@ -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;
 }
-- 
2.31.1