Avoid non-constant struct initializers

* libguile/foreign-object.c (scm_make_foreign_object_2):
  (scm_make_foreign_object_3): Avoid non-constant struct initializers.

1 files changed, 9 insertions, 2 deletions

diff --git a/libguile/foreign-object.c b/libguile/foreign-object.c
index ef4d7dd4f..4c81f6da3 100644
--- a/libguile/foreign-object.c
+++ b/libguile/foreign-object.c
@@ -78,7 +78,10 @@ scm_make_foreign_object_1 (SCM type, scm_t_bits val0)
 SCM
 scm_make_foreign_object_2 (SCM type, scm_t_bits val0, scm_t_bits val1)
 {
-  scm_t_bits vals[2] = { val0, val1 };
+  scm_t_bits vals[2];
+
+  vals[0] = val0;
+  vals[1] = val1;
 
   return scm_make_foreign_object_n (type, 2, vals);
 }
@@ -87,7 +90,11 @@ SCM
 scm_make_foreign_object_3 (SCM type, scm_t_bits val0, scm_t_bits val1,
                            scm_t_bits val2)
 {
-  scm_t_bits vals[3] = { val0, val1, val2 };
+  scm_t_bits vals[3];
+
+  vals[0] = val0;
+  vals[1] = val1;
+  vals[2] = val2;
 
   return scm_make_foreign_object_n (type, 3, vals);
 }