From 75655793d4d0ba1ca7404252d523e898eb696cf2 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen 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