Fixing FTBFS for snd-19.7archive/debian/19.7-1_exp1

Origin: https://svn.code.sf.net/p/snd/svn1/
Applied-Upstream: https://svn.code.sf.net/p/snd/svn1/trunk@579
Last-Update: 2019-09-11

seems like some #ifdefs were forgotten
Last-Update: 2019-09-11
Gbp-Pq: Name ftbfs_19-7.patch

1 files changed, 3 insertions, 1 deletions

diff --git a/s7.c b/s7.c
index 406e995..ba3d945 100644
--- a/s7.c
+++ b/s7.c
@@ -50309,12 +50309,12 @@ static s7_pointer fx_U(s7_scheme *sc, s7_pointer arg)
 
 static s7_pointer fx_c_d(s7_scheme *sc, s7_pointer arg) {return(d_call(sc, arg));}
 
+#if (!WITH_GMP)
 static s7_pointer fx_random_i(s7_scheme *sc, s7_pointer arg)
 {
   return(make_integer(sc, (s7_int)(integer(cadr(arg)) * next_random(sc->default_rng))));
 }
 
-#if (!WITH_GMP)
 static s7_pointer fx_num_eq_xi_1(s7_scheme *sc, s7_pointer args, s7_pointer val, s7_int y)
 {
 #if S7_DEBUGGING
@@ -53586,7 +53586,9 @@ static s7_function fx_choose(s7_scheme *sc, s7_pointer holder, s7_pointer e, saf
 	      if (c_callee(arg) == g_or_s_2) return(fx_or_s_2);
 	      if (c_callee(arg) == g_or_s_type_2) return(fx_or_s_type_2);
 	      if (c_callee(arg) == g_and_s_2) return(fx_and_s_2);
+#if (!WITH_GMP)
 	      if (c_callee(arg) == g_random_i) return(fx_random_i);
+#endif
 	      return(fx_c_d);
 
 	    case HOP_SAFE_C_S: