/*===========================================================================*/
/*   (Ieee/control5.scm)                                                     */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Ieee/control5.scm -indent -o objs/obj_u/Ieee/control5.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R5_CONTROL_FEATURES_6_4_TYPE_DEFINITIONS
#define BGL___R5_CONTROL_FEATURES_6_4_TYPE_DEFINITIONS
#endif													// BGL___R5_CONTROL_FEATURES_6_4_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL obj_t
		BGl_z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(int);
	static obj_t BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00 =
		BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00(obj_t, obj_t);
	static obj_t
		BGl_z62z52getzd2mvalueszd2numberz30zz__r5_control_features_6_4z00(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t
		BGl_z62z52setzd2mvalueszd2valz12z22zz__r5_control_features_6_4z00(obj_t,
		obj_t, obj_t);
	static obj_t
		BGl_z62z52getzd2mvalueszd2valz30zz__r5_control_features_6_4z00(obj_t,
		obj_t);
	static obj_t
		BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__r5_control_features_6_4z00(void);
	static obj_t
		BGl_z62callzd2withzd2valuesz62zz__r5_control_features_6_4z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(int, obj_t);
	static obj_t BGl_z62valuesz62zz__r5_control_features_6_4z00(obj_t, obj_t);
	BGL_EXPORTED_DECL int
		BGl_z52getzd2mvalueszd2numberz52zz__r5_control_features_6_4z00(void);
	static obj_t
		BGl_z62z52setzd2mvalueszd2numberz12z22zz__r5_control_features_6_4z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL int
		BGl_z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00(int);
	BGL_EXPORTED_DECL obj_t BGl_valuesz00zz__r5_control_features_6_4z00(obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_z52setzd2mvalueszd2numberz12zd2envz92zz__r5_control_features_6_4z00,
		BgL_bgl_za762za752setza7d2mval1603za7,
		BGl_z62z52setzd2mvalueszd2numberz12z22zz__r5_control_features_6_4z00, 0L,
		BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1600z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1600za700za7za7_1604za7, "&call-with-values", 17);
	      BGL_DEFINE_STRING(BGl_string1601z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1601za700za7za7_1605za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string1602z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1602za700za7za7_1606za7, "__r5_control_features_6_4", 25);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_z52setzd2mvalueszd2valz12zd2envz92zz__r5_control_features_6_4z00,
		BgL_bgl_za762za752setza7d2mval1607za7,
		BGl_z62z52setzd2mvalueszd2valz12z22zz__r5_control_features_6_4z00, 0L,
		BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2valueszd2envzd2zz__r5_control_features_6_4z00,
		BgL_bgl_za762callza7d2withza7d1608za7,
		BGl_z62callzd2withzd2valuesz62zz__r5_control_features_6_4z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_z52getzd2mvalueszd2valzd2envz80zz__r5_control_features_6_4z00,
		BgL_bgl_za762za752getza7d2mval1609za7,
		BGl_z62z52getzd2mvalueszd2valz30zz__r5_control_features_6_4z00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string1595z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1595za700za7za7_1610za7,
		"/tmp/bigloo/runtime/Ieee/control5.scm", 37);
	      BGL_DEFINE_STRING(BGl_string1596z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1596za700za7za7_1611za7, "&%set-mvalues-number!", 21);
	      BGL_DEFINE_STRING(BGl_string1597z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1597za700za7za7_1612za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string1598z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1598za700za7za7_1613za7, "&%get-mvalues-val", 17);
	      BGL_DEFINE_STRING(BGl_string1599z00zz__r5_control_features_6_4z00,
		BgL_bgl_string1599za700za7za7_1614za7, "&%set-mvalues-val!", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_z52getzd2mvalueszd2numberzd2envz80zz__r5_control_features_6_4z00,
		BgL_bgl_za762za752getza7d2mval1615za7,
		BGl_z62z52getzd2mvalueszd2numberz30zz__r5_control_features_6_4z00, 0L,
		BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_valueszd2envzd2zz__r5_control_features_6_4z00,
		BgL_bgl_za762valuesza762za7za7__1616z00, va_generic_entry,
		BGl_z62valuesz62zz__r5_control_features_6_4z00, BUNSPEC, -1);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_valueszd2envzd2zz__r5_control_features_6_4z00,
			BgL_bgl_za762valuesza762za7za7__1616z00);
		BGL_BIND_PROCEDURE
			(BGl_z52getzd2mvalueszd2numberzd2envz80zz__r5_control_features_6_4z00,
			BgL_bgl_za762za752getza7d2mval1615za7);
		BGL_BIND_STRING(BGl_string1599z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1599za700za7za7_1614za7);
		BGL_BIND_STRING(BGl_string1598z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1598za700za7za7_1613za7);
		BGL_BIND_STRING(BGl_string1597z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1597za700za7za7_1612za7);
		BGL_BIND_STRING(BGl_string1596z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1596za700za7za7_1611za7);
		BGL_BIND_STRING(BGl_string1595z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1595za700za7za7_1610za7);
		BGL_BIND_PROCEDURE
			(BGl_z52getzd2mvalueszd2valzd2envz80zz__r5_control_features_6_4z00,
			BgL_bgl_za762za752getza7d2mval1609za7);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2valueszd2envzd2zz__r5_control_features_6_4z00,
			BgL_bgl_za762callza7d2withza7d1608za7);
		BGL_BIND_PROCEDURE
			(BGl_z52setzd2mvalueszd2valz12zd2envz92zz__r5_control_features_6_4z00,
			BgL_bgl_za762za752setza7d2mval1607za7);
		BGL_BIND_STRING(BGl_string1602z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1602za700za7za7_1606za7);
		BGL_BIND_STRING(BGl_string1601z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1601za700za7za7_1605za7);
		BGL_BIND_STRING(BGl_string1600z00zz__r5_control_features_6_4z00,
			BgL_bgl_string1600za700za7za7_1604za7);
		BGL_BIND_PROCEDURE
			(BGl_z52setzd2mvalueszd2numberz12zd2envz92zz__r5_control_features_6_4z00,
			BgL_bgl_za762za752setza7d2mval1603za7);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long
		BgL_checksumz00_1328, char *BgL_fromz00_1329)
	{
		{
			if (CBOOL
				(BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00))
				{
					BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r5_control_features_6_4z00();
					return
						BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__r5_control_features_6_4z00(void)
	{
		{	/* Ieee/control5.scm 14 */
			return bgl_gc_roots_register();
		}

	}



/* %get-mvalues-number */
	BGL_EXPORTED_DEF int
		BGl_z52getzd2mvalueszd2numberz52zz__r5_control_features_6_4z00(void)
	{
		{	/* Ieee/control5.scm 66 */
			return BGL_MVALUES_NUMBER();
		}

	}



/* &%get-mvalues-number */
	obj_t BGl_z62z52getzd2mvalueszd2numberz30zz__r5_control_features_6_4z00(obj_t
		BgL_envz00_1307)
	{
		{	/* Ieee/control5.scm 66 */
			return
				BINT(BGl_z52getzd2mvalueszd2numberz52zz__r5_control_features_6_4z00());
		}

	}



/* %set-mvalues-number! */
	BGL_EXPORTED_DEF int
		BGl_z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00(int
		BgL_nz00_3)
	{
		{	/* Ieee/control5.scm 72 */
			return BGL_MVALUES_NUMBER_SET(BgL_nz00_3);
		}

	}



/* &%set-mvalues-number! */
	obj_t
		BGl_z62z52setzd2mvalueszd2numberz12z22zz__r5_control_features_6_4z00(obj_t
		BgL_envz00_1308, obj_t BgL_nz00_1309)
	{
		{	/* Ieee/control5.scm 72 */
			{	/* Ieee/control5.scm 73 */
				int BgL_tmpz00_1341;

				{	/* Ieee/control5.scm 73 */
					int BgL_auxz00_1342;

					{	/* Ieee/control5.scm 73 */
						obj_t BgL_tmpz00_1343;

						if (INTEGERP(BgL_nz00_1309))
							{	/* Ieee/control5.scm 73 */
								BgL_tmpz00_1343 = BgL_nz00_1309;
							}
						else
							{
								obj_t BgL_auxz00_1346;

								BgL_auxz00_1346 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string1595z00zz__r5_control_features_6_4z00, BINT(2768L),
									BGl_string1596z00zz__r5_control_features_6_4z00,
									BGl_string1597z00zz__r5_control_features_6_4z00,
									BgL_nz00_1309);
								FAILURE(BgL_auxz00_1346, BFALSE, BFALSE);
							}
						BgL_auxz00_1342 = CINT(BgL_tmpz00_1343);
					}
					BgL_tmpz00_1341 =
						BGl_z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00
						(BgL_auxz00_1342);
				}
				return BINT(BgL_tmpz00_1341);
			}
		}

	}



/* %get-mvalues-val */
	BGL_EXPORTED_DEF obj_t
		BGl_z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(int BgL_nz00_4)
	{
		{	/* Ieee/control5.scm 78 */
			{	/* Ieee/control5.scm 79 */
				obj_t BgL_tmpz00_1327;

				BgL_tmpz00_1327 = BGL_MVALUES_VAL(BgL_nz00_4);
				BGL_MVALUES_VAL_SET(BgL_nz00_4, BUNSPEC);
				return BgL_tmpz00_1327;
			}
		}

	}



/* &%get-mvalues-val */
	obj_t BGl_z62z52getzd2mvalueszd2valz30zz__r5_control_features_6_4z00(obj_t
		BgL_envz00_1310, obj_t BgL_nz00_1311)
	{
		{	/* Ieee/control5.scm 78 */
			{	/* Ieee/control5.scm 79 */
				int BgL_auxz00_1355;

				{	/* Ieee/control5.scm 79 */
					obj_t BgL_tmpz00_1356;

					if (INTEGERP(BgL_nz00_1311))
						{	/* Ieee/control5.scm 79 */
							BgL_tmpz00_1356 = BgL_nz00_1311;
						}
					else
						{
							obj_t BgL_auxz00_1359;

							BgL_auxz00_1359 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1595z00zz__r5_control_features_6_4z00, BINT(3056L),
								BGl_string1598z00zz__r5_control_features_6_4z00,
								BGl_string1597z00zz__r5_control_features_6_4z00, BgL_nz00_1311);
							FAILURE(BgL_auxz00_1359, BFALSE, BFALSE);
						}
					BgL_auxz00_1355 = CINT(BgL_tmpz00_1356);
				}
				return
					BGl_z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00
					(BgL_auxz00_1355);
			}
		}

	}



/* %set-mvalues-val! */
	BGL_EXPORTED_DEF obj_t
		BGl_z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(int
		BgL_nz00_5, obj_t BgL_oz00_6)
	{
		{	/* Ieee/control5.scm 86 */
			return BGL_MVALUES_VAL_SET(BgL_nz00_5, BgL_oz00_6);
		}

	}



/* &%set-mvalues-val! */
	obj_t BGl_z62z52setzd2mvalueszd2valz12z22zz__r5_control_features_6_4z00(obj_t
		BgL_envz00_1312, obj_t BgL_nz00_1313, obj_t BgL_oz00_1314)
	{
		{	/* Ieee/control5.scm 86 */
			{	/* Ieee/control5.scm 87 */
				int BgL_auxz00_1366;

				{	/* Ieee/control5.scm 87 */
					obj_t BgL_tmpz00_1367;

					if (INTEGERP(BgL_nz00_1313))
						{	/* Ieee/control5.scm 87 */
							BgL_tmpz00_1367 = BgL_nz00_1313;
						}
					else
						{
							obj_t BgL_auxz00_1370;

							BgL_auxz00_1370 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1595z00zz__r5_control_features_6_4z00, BINT(3408L),
								BGl_string1599z00zz__r5_control_features_6_4z00,
								BGl_string1597z00zz__r5_control_features_6_4z00, BgL_nz00_1313);
							FAILURE(BgL_auxz00_1370, BFALSE, BFALSE);
						}
					BgL_auxz00_1366 = CINT(BgL_tmpz00_1367);
				}
				return
					BGl_z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00
					(BgL_auxz00_1366, BgL_oz00_1314);
			}
		}

	}



/* values */
	BGL_EXPORTED_DEF obj_t BGl_valuesz00zz__r5_control_features_6_4z00(obj_t
		BgL_argsz00_7)
	{
		{	/* Ieee/control5.scm 94 */
			if (NULLP(BgL_argsz00_7))
				{	/* Ieee/control5.scm 73 */
					int BgL_tmpz00_1378;

					{	/* Ieee/control5.scm 73 */
						int BgL_tmpz00_1379;

						BgL_tmpz00_1379 = (int) (0L);
						BgL_tmpz00_1378 = BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1379);
					}
					return BINT(BgL_tmpz00_1378);
				}
			else
				{	/* Ieee/control5.scm 95 */
					if (NULLP(CDR(((obj_t) BgL_argsz00_7))))
						{	/* Ieee/control5.scm 97 */
							{	/* Ieee/control5.scm 73 */
								int BgL_tmpz00_1387;

								BgL_tmpz00_1387 = (int) (1L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1387);
							}
							return CAR(((obj_t) BgL_argsz00_7));
						}
					else
						{	/* Ieee/control5.scm 101 */
							obj_t BgL_res0z00_716;

							BgL_res0z00_716 = CAR(((obj_t) BgL_argsz00_7));
							{	/* Ieee/control5.scm 103 */
								obj_t BgL_g1012z00_718;

								BgL_g1012z00_718 = CDR(((obj_t) BgL_argsz00_7));
								{
									long BgL_iz00_1121;
									obj_t BgL_argsz00_1122;

									BgL_iz00_1121 = 1L;
									BgL_argsz00_1122 = BgL_g1012z00_718;
								BgL_loopz00_1120:
									if (NULLP(BgL_argsz00_1122))
										{	/* Ieee/control5.scm 106 */
											{	/* Ieee/control5.scm 73 */
												int BgL_tmpz00_1398;

												BgL_tmpz00_1398 = (int) (BgL_iz00_1121);
												BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1398);
											}
											return BgL_res0z00_716;
										}
									else
										{	/* Ieee/control5.scm 106 */
											if ((BgL_iz00_1121 == 16L))
												{	/* Ieee/control5.scm 109 */
													{	/* Ieee/control5.scm 73 */
														int BgL_tmpz00_1403;

														BgL_tmpz00_1403 = (int) ((-1L));
														BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1403);
													}
													return BgL_argsz00_7;
												}
											else
												{	/* Ieee/control5.scm 109 */
													{	/* Ieee/control5.scm 113 */
														obj_t BgL_arg1065z00_1127;

														BgL_arg1065z00_1127 =
															CAR(((obj_t) BgL_argsz00_1122));
														{	/* Ieee/control5.scm 87 */
															int BgL_tmpz00_1408;

															BgL_tmpz00_1408 = (int) (BgL_iz00_1121);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_1408,
																BgL_arg1065z00_1127);
													}}
													{	/* Ieee/control5.scm 114 */
														long BgL_arg1067z00_1130;
														obj_t BgL_arg1068z00_1131;

														BgL_arg1067z00_1130 = (BgL_iz00_1121 + 1L);
														BgL_arg1068z00_1131 =
															CDR(((obj_t) BgL_argsz00_1122));
														{
															obj_t BgL_argsz00_1415;
															long BgL_iz00_1414;

															BgL_iz00_1414 = BgL_arg1067z00_1130;
															BgL_argsz00_1415 = BgL_arg1068z00_1131;
															BgL_argsz00_1122 = BgL_argsz00_1415;
															BgL_iz00_1121 = BgL_iz00_1414;
															goto BgL_loopz00_1120;
														}
													}
												}
										}
								}
							}
						}
				}
		}

	}



/* &values */
	obj_t BGl_z62valuesz62zz__r5_control_features_6_4z00(obj_t BgL_envz00_1315,
		obj_t BgL_argsz00_1316)
	{
		{	/* Ieee/control5.scm 94 */
			return BGl_valuesz00zz__r5_control_features_6_4z00(BgL_argsz00_1316);
		}

	}



/* call-with-values */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00(obj_t
		BgL_producerz00_8, obj_t BgL_consumerz00_9)
	{
		{	/* Ieee/control5.scm 119 */
			{	/* Ieee/control5.scm 73 */
				int BgL_tmpz00_1417;

				BgL_tmpz00_1417 = (int) (1L);
				BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1417);
			}
			{	/* Ieee/control5.scm 121 */
				obj_t BgL_res0z00_730;

				BgL_res0z00_730 = BGL_PROCEDURE_CALL0(BgL_producerz00_8);
				{	/* Ieee/control5.scm 121 */
					int BgL_numzd2valueszd2_731;

					BgL_numzd2valueszd2_731 = BGL_MVALUES_NUMBER();
					{	/* Ieee/control5.scm 122 */

						{	/* Ieee/control5.scm 73 */
							int BgL_tmpz00_1424;

							BgL_tmpz00_1424 = (int) (1L);
							BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1424);
						}
						switch ((long) (BgL_numzd2valueszd2_731))
							{
							case (-1L):

								return apply(BgL_consumerz00_9, BgL_res0z00_730);
								break;
							case 0L:

								return BGL_PROCEDURE_CALL0(BgL_consumerz00_9);
								break;
							case 1L:

								return BGL_PROCEDURE_CALL1(BgL_consumerz00_9, BgL_res0z00_730);
								break;
							case 2L:

								{	/* Ieee/control5.scm 142 */
									obj_t BgL_arg1070z00_734;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1134;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1436;

											BgL_tmpz00_1436 = (int) (1L);
											BgL_tmpz00_1134 = BGL_MVALUES_VAL(BgL_tmpz00_1436);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1439;

											BgL_tmpz00_1439 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1439, BUNSPEC);
										}
										BgL_arg1070z00_734 = BgL_tmpz00_1134;
									}
									return
										BGL_PROCEDURE_CALL2(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1070z00_734);
								}
								break;
							case 3L:

								{	/* Ieee/control5.scm 145 */
									obj_t BgL_arg1072z00_735;
									obj_t BgL_arg1073z00_736;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1135;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1447;

											BgL_tmpz00_1447 = (int) (1L);
											BgL_tmpz00_1135 = BGL_MVALUES_VAL(BgL_tmpz00_1447);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1450;

											BgL_tmpz00_1450 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1450, BUNSPEC);
										}
										BgL_arg1072z00_735 = BgL_tmpz00_1135;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1136;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1453;

											BgL_tmpz00_1453 = (int) (2L);
											BgL_tmpz00_1136 = BGL_MVALUES_VAL(BgL_tmpz00_1453);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1456;

											BgL_tmpz00_1456 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1456, BUNSPEC);
										}
										BgL_arg1073z00_736 = BgL_tmpz00_1136;
									}
									return
										BGL_PROCEDURE_CALL3(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1072z00_735, BgL_arg1073z00_736);
								}
								break;
							case 4L:

								{	/* Ieee/control5.scm 149 */
									obj_t BgL_arg1074z00_737;
									obj_t BgL_arg1079z00_738;
									obj_t BgL_arg1080z00_739;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1137;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1465;

											BgL_tmpz00_1465 = (int) (1L);
											BgL_tmpz00_1137 = BGL_MVALUES_VAL(BgL_tmpz00_1465);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1468;

											BgL_tmpz00_1468 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1468, BUNSPEC);
										}
										BgL_arg1074z00_737 = BgL_tmpz00_1137;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1138;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1471;

											BgL_tmpz00_1471 = (int) (2L);
											BgL_tmpz00_1138 = BGL_MVALUES_VAL(BgL_tmpz00_1471);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1474;

											BgL_tmpz00_1474 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1474, BUNSPEC);
										}
										BgL_arg1079z00_738 = BgL_tmpz00_1138;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1139;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1477;

											BgL_tmpz00_1477 = (int) (3L);
											BgL_tmpz00_1139 = BGL_MVALUES_VAL(BgL_tmpz00_1477);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1480;

											BgL_tmpz00_1480 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1480, BUNSPEC);
										}
										BgL_arg1080z00_739 = BgL_tmpz00_1139;
									}
									return
										BGL_PROCEDURE_CALL4(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1074z00_737, BgL_arg1079z00_738, BgL_arg1080z00_739);
								}
								break;
							case 5L:

								{	/* Ieee/control5.scm 154 */
									obj_t BgL_arg1081z00_740;
									obj_t BgL_arg1084z00_741;
									obj_t BgL_arg1086z00_742;
									obj_t BgL_arg1088z00_743;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1140;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1490;

											BgL_tmpz00_1490 = (int) (1L);
											BgL_tmpz00_1140 = BGL_MVALUES_VAL(BgL_tmpz00_1490);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1493;

											BgL_tmpz00_1493 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1493, BUNSPEC);
										}
										BgL_arg1081z00_740 = BgL_tmpz00_1140;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1141;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1496;

											BgL_tmpz00_1496 = (int) (2L);
											BgL_tmpz00_1141 = BGL_MVALUES_VAL(BgL_tmpz00_1496);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1499;

											BgL_tmpz00_1499 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1499, BUNSPEC);
										}
										BgL_arg1084z00_741 = BgL_tmpz00_1141;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1142;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1502;

											BgL_tmpz00_1502 = (int) (3L);
											BgL_tmpz00_1142 = BGL_MVALUES_VAL(BgL_tmpz00_1502);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1505;

											BgL_tmpz00_1505 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1505, BUNSPEC);
										}
										BgL_arg1086z00_742 = BgL_tmpz00_1142;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1143;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1508;

											BgL_tmpz00_1508 = (int) (4L);
											BgL_tmpz00_1143 = BGL_MVALUES_VAL(BgL_tmpz00_1508);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1511;

											BgL_tmpz00_1511 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1511, BUNSPEC);
										}
										BgL_arg1088z00_743 = BgL_tmpz00_1143;
									}
									return
										BGL_PROCEDURE_CALL5(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1081z00_740, BgL_arg1084z00_741, BgL_arg1086z00_742,
										BgL_arg1088z00_743);
								}
								break;
							case 6L:

								{	/* Ieee/control5.scm 160 */
									obj_t BgL_arg1089z00_744;
									obj_t BgL_arg1090z00_745;
									obj_t BgL_arg1092z00_746;
									obj_t BgL_arg1096z00_747;
									obj_t BgL_arg1097z00_748;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1144;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1522;

											BgL_tmpz00_1522 = (int) (1L);
											BgL_tmpz00_1144 = BGL_MVALUES_VAL(BgL_tmpz00_1522);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1525;

											BgL_tmpz00_1525 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1525, BUNSPEC);
										}
										BgL_arg1089z00_744 = BgL_tmpz00_1144;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1145;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1528;

											BgL_tmpz00_1528 = (int) (2L);
											BgL_tmpz00_1145 = BGL_MVALUES_VAL(BgL_tmpz00_1528);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1531;

											BgL_tmpz00_1531 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1531, BUNSPEC);
										}
										BgL_arg1090z00_745 = BgL_tmpz00_1145;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1146;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1534;

											BgL_tmpz00_1534 = (int) (3L);
											BgL_tmpz00_1146 = BGL_MVALUES_VAL(BgL_tmpz00_1534);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1537;

											BgL_tmpz00_1537 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1537, BUNSPEC);
										}
										BgL_arg1092z00_746 = BgL_tmpz00_1146;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1147;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1540;

											BgL_tmpz00_1540 = (int) (4L);
											BgL_tmpz00_1147 = BGL_MVALUES_VAL(BgL_tmpz00_1540);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1543;

											BgL_tmpz00_1543 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1543, BUNSPEC);
										}
										BgL_arg1096z00_747 = BgL_tmpz00_1147;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1148;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1546;

											BgL_tmpz00_1546 = (int) (5L);
											BgL_tmpz00_1148 = BGL_MVALUES_VAL(BgL_tmpz00_1546);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1549;

											BgL_tmpz00_1549 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1549, BUNSPEC);
										}
										BgL_arg1097z00_748 = BgL_tmpz00_1148;
									}
									return
										BGL_PROCEDURE_CALL6(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1089z00_744, BgL_arg1090z00_745, BgL_arg1092z00_746,
										BgL_arg1096z00_747, BgL_arg1097z00_748);
								}
								break;
							case 7L:

								{	/* Ieee/control5.scm 167 */
									obj_t BgL_arg1107z00_749;
									obj_t BgL_arg1108z00_750;
									obj_t BgL_arg1111z00_751;
									obj_t BgL_arg1115z00_752;
									obj_t BgL_arg1116z00_753;
									obj_t BgL_arg1117z00_754;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1149;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1561;

											BgL_tmpz00_1561 = (int) (1L);
											BgL_tmpz00_1149 = BGL_MVALUES_VAL(BgL_tmpz00_1561);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1564;

											BgL_tmpz00_1564 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1564, BUNSPEC);
										}
										BgL_arg1107z00_749 = BgL_tmpz00_1149;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1150;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1567;

											BgL_tmpz00_1567 = (int) (2L);
											BgL_tmpz00_1150 = BGL_MVALUES_VAL(BgL_tmpz00_1567);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1570;

											BgL_tmpz00_1570 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1570, BUNSPEC);
										}
										BgL_arg1108z00_750 = BgL_tmpz00_1150;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1151;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1573;

											BgL_tmpz00_1573 = (int) (3L);
											BgL_tmpz00_1151 = BGL_MVALUES_VAL(BgL_tmpz00_1573);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1576;

											BgL_tmpz00_1576 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1576, BUNSPEC);
										}
										BgL_arg1111z00_751 = BgL_tmpz00_1151;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1152;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1579;

											BgL_tmpz00_1579 = (int) (4L);
											BgL_tmpz00_1152 = BGL_MVALUES_VAL(BgL_tmpz00_1579);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1582;

											BgL_tmpz00_1582 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1582, BUNSPEC);
										}
										BgL_arg1115z00_752 = BgL_tmpz00_1152;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1153;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1585;

											BgL_tmpz00_1585 = (int) (5L);
											BgL_tmpz00_1153 = BGL_MVALUES_VAL(BgL_tmpz00_1585);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1588;

											BgL_tmpz00_1588 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1588, BUNSPEC);
										}
										BgL_arg1116z00_753 = BgL_tmpz00_1153;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1154;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1591;

											BgL_tmpz00_1591 = (int) (6L);
											BgL_tmpz00_1154 = BGL_MVALUES_VAL(BgL_tmpz00_1591);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1594;

											BgL_tmpz00_1594 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1594, BUNSPEC);
										}
										BgL_arg1117z00_754 = BgL_tmpz00_1154;
									}
									return
										BGL_PROCEDURE_CALL7(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1107z00_749, BgL_arg1108z00_750, BgL_arg1111z00_751,
										BgL_arg1115z00_752, BgL_arg1116z00_753, BgL_arg1117z00_754);
								}
								break;
							case 8L:

								{	/* Ieee/control5.scm 175 */
									obj_t BgL_arg1118z00_755;
									obj_t BgL_arg1120z00_756;
									obj_t BgL_arg1121z00_757;
									obj_t BgL_arg1122z00_758;
									obj_t BgL_arg1123z00_759;
									obj_t BgL_arg1129z00_760;
									obj_t BgL_arg1130z00_761;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1155;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1607;

											BgL_tmpz00_1607 = (int) (1L);
											BgL_tmpz00_1155 = BGL_MVALUES_VAL(BgL_tmpz00_1607);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1610;

											BgL_tmpz00_1610 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1610, BUNSPEC);
										}
										BgL_arg1118z00_755 = BgL_tmpz00_1155;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1156;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1613;

											BgL_tmpz00_1613 = (int) (2L);
											BgL_tmpz00_1156 = BGL_MVALUES_VAL(BgL_tmpz00_1613);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1616;

											BgL_tmpz00_1616 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1616, BUNSPEC);
										}
										BgL_arg1120z00_756 = BgL_tmpz00_1156;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1157;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1619;

											BgL_tmpz00_1619 = (int) (3L);
											BgL_tmpz00_1157 = BGL_MVALUES_VAL(BgL_tmpz00_1619);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1622;

											BgL_tmpz00_1622 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1622, BUNSPEC);
										}
										BgL_arg1121z00_757 = BgL_tmpz00_1157;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1158;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1625;

											BgL_tmpz00_1625 = (int) (4L);
											BgL_tmpz00_1158 = BGL_MVALUES_VAL(BgL_tmpz00_1625);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1628;

											BgL_tmpz00_1628 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1628, BUNSPEC);
										}
										BgL_arg1122z00_758 = BgL_tmpz00_1158;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1159;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1631;

											BgL_tmpz00_1631 = (int) (5L);
											BgL_tmpz00_1159 = BGL_MVALUES_VAL(BgL_tmpz00_1631);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1634;

											BgL_tmpz00_1634 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1634, BUNSPEC);
										}
										BgL_arg1123z00_759 = BgL_tmpz00_1159;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1160;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1637;

											BgL_tmpz00_1637 = (int) (6L);
											BgL_tmpz00_1160 = BGL_MVALUES_VAL(BgL_tmpz00_1637);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1640;

											BgL_tmpz00_1640 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1640, BUNSPEC);
										}
										BgL_arg1129z00_760 = BgL_tmpz00_1160;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1161;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1643;

											BgL_tmpz00_1643 = (int) (7L);
											BgL_tmpz00_1161 = BGL_MVALUES_VAL(BgL_tmpz00_1643);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1646;

											BgL_tmpz00_1646 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1646, BUNSPEC);
										}
										BgL_arg1130z00_761 = BgL_tmpz00_1161;
									}
									return
										BGL_PROCEDURE_CALL8(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1118z00_755, BgL_arg1120z00_756, BgL_arg1121z00_757,
										BgL_arg1122z00_758, BgL_arg1123z00_759, BgL_arg1129z00_760,
										BgL_arg1130z00_761);
								}
								break;
							case 9L:

								{	/* Ieee/control5.scm 184 */
									obj_t BgL_arg1132z00_762;
									obj_t BgL_arg1135z00_763;
									obj_t BgL_arg1136z00_764;
									obj_t BgL_arg1137z00_765;
									obj_t BgL_arg1138z00_766;
									obj_t BgL_arg1139z00_767;
									obj_t BgL_arg1141z00_768;
									obj_t BgL_arg1142z00_769;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1162;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1660;

											BgL_tmpz00_1660 = (int) (1L);
											BgL_tmpz00_1162 = BGL_MVALUES_VAL(BgL_tmpz00_1660);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1663;

											BgL_tmpz00_1663 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1663, BUNSPEC);
										}
										BgL_arg1132z00_762 = BgL_tmpz00_1162;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1163;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1666;

											BgL_tmpz00_1666 = (int) (2L);
											BgL_tmpz00_1163 = BGL_MVALUES_VAL(BgL_tmpz00_1666);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1669;

											BgL_tmpz00_1669 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1669, BUNSPEC);
										}
										BgL_arg1135z00_763 = BgL_tmpz00_1163;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1164;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1672;

											BgL_tmpz00_1672 = (int) (3L);
											BgL_tmpz00_1164 = BGL_MVALUES_VAL(BgL_tmpz00_1672);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1675;

											BgL_tmpz00_1675 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1675, BUNSPEC);
										}
										BgL_arg1136z00_764 = BgL_tmpz00_1164;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1165;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1678;

											BgL_tmpz00_1678 = (int) (4L);
											BgL_tmpz00_1165 = BGL_MVALUES_VAL(BgL_tmpz00_1678);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1681;

											BgL_tmpz00_1681 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1681, BUNSPEC);
										}
										BgL_arg1137z00_765 = BgL_tmpz00_1165;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1166;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1684;

											BgL_tmpz00_1684 = (int) (5L);
											BgL_tmpz00_1166 = BGL_MVALUES_VAL(BgL_tmpz00_1684);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1687;

											BgL_tmpz00_1687 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1687, BUNSPEC);
										}
										BgL_arg1138z00_766 = BgL_tmpz00_1166;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1167;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1690;

											BgL_tmpz00_1690 = (int) (6L);
											BgL_tmpz00_1167 = BGL_MVALUES_VAL(BgL_tmpz00_1690);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1693;

											BgL_tmpz00_1693 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1693, BUNSPEC);
										}
										BgL_arg1139z00_767 = BgL_tmpz00_1167;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1168;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1696;

											BgL_tmpz00_1696 = (int) (7L);
											BgL_tmpz00_1168 = BGL_MVALUES_VAL(BgL_tmpz00_1696);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1699;

											BgL_tmpz00_1699 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1699, BUNSPEC);
										}
										BgL_arg1141z00_768 = BgL_tmpz00_1168;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1169;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1702;

											BgL_tmpz00_1702 = (int) (8L);
											BgL_tmpz00_1169 = BGL_MVALUES_VAL(BgL_tmpz00_1702);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1705;

											BgL_tmpz00_1705 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1705, BUNSPEC);
										}
										BgL_arg1142z00_769 = BgL_tmpz00_1169;
									}
									return
										BGL_PROCEDURE_CALL9(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1132z00_762, BgL_arg1135z00_763, BgL_arg1136z00_764,
										BgL_arg1137z00_765, BgL_arg1138z00_766, BgL_arg1139z00_767,
										BgL_arg1141z00_768, BgL_arg1142z00_769);
								}
								break;
							case 10L:

								{	/* Ieee/control5.scm 194 */
									obj_t BgL_arg1145z00_770;
									obj_t BgL_arg1147z00_771;
									obj_t BgL_arg1149z00_772;
									obj_t BgL_arg1153z00_773;
									obj_t BgL_arg1155z00_774;
									obj_t BgL_arg1156z00_775;
									obj_t BgL_arg1157z00_776;
									obj_t BgL_arg1159z00_777;
									obj_t BgL_arg1160z00_778;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1170;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1720;

											BgL_tmpz00_1720 = (int) (1L);
											BgL_tmpz00_1170 = BGL_MVALUES_VAL(BgL_tmpz00_1720);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1723;

											BgL_tmpz00_1723 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1723, BUNSPEC);
										}
										BgL_arg1145z00_770 = BgL_tmpz00_1170;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1171;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1726;

											BgL_tmpz00_1726 = (int) (2L);
											BgL_tmpz00_1171 = BGL_MVALUES_VAL(BgL_tmpz00_1726);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1729;

											BgL_tmpz00_1729 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1729, BUNSPEC);
										}
										BgL_arg1147z00_771 = BgL_tmpz00_1171;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1172;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1732;

											BgL_tmpz00_1732 = (int) (3L);
											BgL_tmpz00_1172 = BGL_MVALUES_VAL(BgL_tmpz00_1732);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1735;

											BgL_tmpz00_1735 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1735, BUNSPEC);
										}
										BgL_arg1149z00_772 = BgL_tmpz00_1172;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1173;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1738;

											BgL_tmpz00_1738 = (int) (4L);
											BgL_tmpz00_1173 = BGL_MVALUES_VAL(BgL_tmpz00_1738);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1741;

											BgL_tmpz00_1741 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1741, BUNSPEC);
										}
										BgL_arg1153z00_773 = BgL_tmpz00_1173;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1174;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1744;

											BgL_tmpz00_1744 = (int) (5L);
											BgL_tmpz00_1174 = BGL_MVALUES_VAL(BgL_tmpz00_1744);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1747;

											BgL_tmpz00_1747 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1747, BUNSPEC);
										}
										BgL_arg1155z00_774 = BgL_tmpz00_1174;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1175;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1750;

											BgL_tmpz00_1750 = (int) (6L);
											BgL_tmpz00_1175 = BGL_MVALUES_VAL(BgL_tmpz00_1750);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1753;

											BgL_tmpz00_1753 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1753, BUNSPEC);
										}
										BgL_arg1156z00_775 = BgL_tmpz00_1175;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1176;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1756;

											BgL_tmpz00_1756 = (int) (7L);
											BgL_tmpz00_1176 = BGL_MVALUES_VAL(BgL_tmpz00_1756);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1759;

											BgL_tmpz00_1759 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1759, BUNSPEC);
										}
										BgL_arg1157z00_776 = BgL_tmpz00_1176;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1177;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1762;

											BgL_tmpz00_1762 = (int) (8L);
											BgL_tmpz00_1177 = BGL_MVALUES_VAL(BgL_tmpz00_1762);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1765;

											BgL_tmpz00_1765 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1765, BUNSPEC);
										}
										BgL_arg1159z00_777 = BgL_tmpz00_1177;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1178;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1768;

											BgL_tmpz00_1768 = (int) (9L);
											BgL_tmpz00_1178 = BGL_MVALUES_VAL(BgL_tmpz00_1768);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1771;

											BgL_tmpz00_1771 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1771, BUNSPEC);
										}
										BgL_arg1160z00_778 = BgL_tmpz00_1178;
									}
									return
										BGL_PROCEDURE_CALL10(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1145z00_770, BgL_arg1147z00_771, BgL_arg1149z00_772,
										BgL_arg1153z00_773, BgL_arg1155z00_774, BgL_arg1156z00_775,
										BgL_arg1157z00_776, BgL_arg1159z00_777, BgL_arg1160z00_778);
								}
								break;
							case 11L:

								{	/* Ieee/control5.scm 205 */
									obj_t BgL_arg1162z00_779;
									obj_t BgL_arg1163z00_780;
									obj_t BgL_arg1167z00_781;
									obj_t BgL_arg1169z00_782;
									obj_t BgL_arg1170z00_783;
									obj_t BgL_arg1187z00_784;
									obj_t BgL_arg1189z00_785;
									obj_t BgL_arg1192z00_786;
									obj_t BgL_arg1193z00_787;
									obj_t BgL_arg1194z00_788;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1179;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1787;

											BgL_tmpz00_1787 = (int) (1L);
											BgL_tmpz00_1179 = BGL_MVALUES_VAL(BgL_tmpz00_1787);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1790;

											BgL_tmpz00_1790 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1790, BUNSPEC);
										}
										BgL_arg1162z00_779 = BgL_tmpz00_1179;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1180;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1793;

											BgL_tmpz00_1793 = (int) (2L);
											BgL_tmpz00_1180 = BGL_MVALUES_VAL(BgL_tmpz00_1793);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1796;

											BgL_tmpz00_1796 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1796, BUNSPEC);
										}
										BgL_arg1163z00_780 = BgL_tmpz00_1180;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1181;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1799;

											BgL_tmpz00_1799 = (int) (3L);
											BgL_tmpz00_1181 = BGL_MVALUES_VAL(BgL_tmpz00_1799);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1802;

											BgL_tmpz00_1802 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1802, BUNSPEC);
										}
										BgL_arg1167z00_781 = BgL_tmpz00_1181;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1182;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1805;

											BgL_tmpz00_1805 = (int) (4L);
											BgL_tmpz00_1182 = BGL_MVALUES_VAL(BgL_tmpz00_1805);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1808;

											BgL_tmpz00_1808 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1808, BUNSPEC);
										}
										BgL_arg1169z00_782 = BgL_tmpz00_1182;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1183;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1811;

											BgL_tmpz00_1811 = (int) (5L);
											BgL_tmpz00_1183 = BGL_MVALUES_VAL(BgL_tmpz00_1811);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1814;

											BgL_tmpz00_1814 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1814, BUNSPEC);
										}
										BgL_arg1170z00_783 = BgL_tmpz00_1183;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1184;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1817;

											BgL_tmpz00_1817 = (int) (6L);
											BgL_tmpz00_1184 = BGL_MVALUES_VAL(BgL_tmpz00_1817);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1820;

											BgL_tmpz00_1820 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1820, BUNSPEC);
										}
										BgL_arg1187z00_784 = BgL_tmpz00_1184;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1185;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1823;

											BgL_tmpz00_1823 = (int) (7L);
											BgL_tmpz00_1185 = BGL_MVALUES_VAL(BgL_tmpz00_1823);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1826;

											BgL_tmpz00_1826 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1826, BUNSPEC);
										}
										BgL_arg1189z00_785 = BgL_tmpz00_1185;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1186;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1829;

											BgL_tmpz00_1829 = (int) (8L);
											BgL_tmpz00_1186 = BGL_MVALUES_VAL(BgL_tmpz00_1829);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1832;

											BgL_tmpz00_1832 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1832, BUNSPEC);
										}
										BgL_arg1192z00_786 = BgL_tmpz00_1186;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1187;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1835;

											BgL_tmpz00_1835 = (int) (9L);
											BgL_tmpz00_1187 = BGL_MVALUES_VAL(BgL_tmpz00_1835);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1838;

											BgL_tmpz00_1838 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1838, BUNSPEC);
										}
										BgL_arg1193z00_787 = BgL_tmpz00_1187;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1188;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1841;

											BgL_tmpz00_1841 = (int) (10L);
											BgL_tmpz00_1188 = BGL_MVALUES_VAL(BgL_tmpz00_1841);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1844;

											BgL_tmpz00_1844 = (int) (10L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1844, BUNSPEC);
										}
										BgL_arg1194z00_788 = BgL_tmpz00_1188;
									}
									return
										BGL_PROCEDURE_CALL11(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1162z00_779, BgL_arg1163z00_780, BgL_arg1167z00_781,
										BgL_arg1169z00_782, BgL_arg1170z00_783, BgL_arg1187z00_784,
										BgL_arg1189z00_785, BgL_arg1192z00_786, BgL_arg1193z00_787,
										BgL_arg1194z00_788);
								}
								break;
							case 12L:

								{	/* Ieee/control5.scm 217 */
									obj_t BgL_arg1195z00_789;
									obj_t BgL_arg1196z00_790;
									obj_t BgL_arg1197z00_791;
									obj_t BgL_arg1201z00_792;
									obj_t BgL_arg1202z00_793;
									obj_t BgL_arg1203z00_794;
									obj_t BgL_arg1206z00_795;
									obj_t BgL_arg1207z00_796;
									obj_t BgL_arg1208z00_797;
									obj_t BgL_arg1211z00_798;
									obj_t BgL_arg1213z00_799;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1189;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1861;

											BgL_tmpz00_1861 = (int) (1L);
											BgL_tmpz00_1189 = BGL_MVALUES_VAL(BgL_tmpz00_1861);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1864;

											BgL_tmpz00_1864 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1864, BUNSPEC);
										}
										BgL_arg1195z00_789 = BgL_tmpz00_1189;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1190;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1867;

											BgL_tmpz00_1867 = (int) (2L);
											BgL_tmpz00_1190 = BGL_MVALUES_VAL(BgL_tmpz00_1867);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1870;

											BgL_tmpz00_1870 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1870, BUNSPEC);
										}
										BgL_arg1196z00_790 = BgL_tmpz00_1190;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1191;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1873;

											BgL_tmpz00_1873 = (int) (3L);
											BgL_tmpz00_1191 = BGL_MVALUES_VAL(BgL_tmpz00_1873);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1876;

											BgL_tmpz00_1876 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1876, BUNSPEC);
										}
										BgL_arg1197z00_791 = BgL_tmpz00_1191;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1192;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1879;

											BgL_tmpz00_1879 = (int) (4L);
											BgL_tmpz00_1192 = BGL_MVALUES_VAL(BgL_tmpz00_1879);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1882;

											BgL_tmpz00_1882 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1882, BUNSPEC);
										}
										BgL_arg1201z00_792 = BgL_tmpz00_1192;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1193;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1885;

											BgL_tmpz00_1885 = (int) (5L);
											BgL_tmpz00_1193 = BGL_MVALUES_VAL(BgL_tmpz00_1885);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1888;

											BgL_tmpz00_1888 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1888, BUNSPEC);
										}
										BgL_arg1202z00_793 = BgL_tmpz00_1193;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1194;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1891;

											BgL_tmpz00_1891 = (int) (6L);
											BgL_tmpz00_1194 = BGL_MVALUES_VAL(BgL_tmpz00_1891);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1894;

											BgL_tmpz00_1894 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1894, BUNSPEC);
										}
										BgL_arg1203z00_794 = BgL_tmpz00_1194;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1195;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1897;

											BgL_tmpz00_1897 = (int) (7L);
											BgL_tmpz00_1195 = BGL_MVALUES_VAL(BgL_tmpz00_1897);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1900;

											BgL_tmpz00_1900 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1900, BUNSPEC);
										}
										BgL_arg1206z00_795 = BgL_tmpz00_1195;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1196;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1903;

											BgL_tmpz00_1903 = (int) (8L);
											BgL_tmpz00_1196 = BGL_MVALUES_VAL(BgL_tmpz00_1903);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1906;

											BgL_tmpz00_1906 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1906, BUNSPEC);
										}
										BgL_arg1207z00_796 = BgL_tmpz00_1196;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1197;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1909;

											BgL_tmpz00_1909 = (int) (9L);
											BgL_tmpz00_1197 = BGL_MVALUES_VAL(BgL_tmpz00_1909);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1912;

											BgL_tmpz00_1912 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1912, BUNSPEC);
										}
										BgL_arg1208z00_797 = BgL_tmpz00_1197;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1198;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1915;

											BgL_tmpz00_1915 = (int) (10L);
											BgL_tmpz00_1198 = BGL_MVALUES_VAL(BgL_tmpz00_1915);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1918;

											BgL_tmpz00_1918 = (int) (10L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1918, BUNSPEC);
										}
										BgL_arg1211z00_798 = BgL_tmpz00_1198;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1199;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1921;

											BgL_tmpz00_1921 = (int) (11L);
											BgL_tmpz00_1199 = BGL_MVALUES_VAL(BgL_tmpz00_1921);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1924;

											BgL_tmpz00_1924 = (int) (11L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1924, BUNSPEC);
										}
										BgL_arg1213z00_799 = BgL_tmpz00_1199;
									}
									return
										BGL_PROCEDURE_CALL12(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1195z00_789, BgL_arg1196z00_790, BgL_arg1197z00_791,
										BgL_arg1201z00_792, BgL_arg1202z00_793, BgL_arg1203z00_794,
										BgL_arg1206z00_795, BgL_arg1207z00_796, BgL_arg1208z00_797,
										BgL_arg1211z00_798, BgL_arg1213z00_799);
								}
								break;
							case 13L:

								{	/* Ieee/control5.scm 230 */
									obj_t BgL_arg1215z00_800;
									obj_t BgL_arg1216z00_801;
									obj_t BgL_arg1217z00_802;
									obj_t BgL_arg1219z00_803;
									obj_t BgL_arg1224z00_804;
									obj_t BgL_arg1225z00_805;
									obj_t BgL_arg1226z00_806;
									obj_t BgL_arg1230z00_807;
									obj_t BgL_arg1231z00_808;
									obj_t BgL_arg1232z00_809;
									obj_t BgL_arg1234z00_810;
									obj_t BgL_arg1235z00_811;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1200;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1942;

											BgL_tmpz00_1942 = (int) (1L);
											BgL_tmpz00_1200 = BGL_MVALUES_VAL(BgL_tmpz00_1942);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1945;

											BgL_tmpz00_1945 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1945, BUNSPEC);
										}
										BgL_arg1215z00_800 = BgL_tmpz00_1200;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1201;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1948;

											BgL_tmpz00_1948 = (int) (2L);
											BgL_tmpz00_1201 = BGL_MVALUES_VAL(BgL_tmpz00_1948);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1951;

											BgL_tmpz00_1951 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1951, BUNSPEC);
										}
										BgL_arg1216z00_801 = BgL_tmpz00_1201;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1202;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1954;

											BgL_tmpz00_1954 = (int) (3L);
											BgL_tmpz00_1202 = BGL_MVALUES_VAL(BgL_tmpz00_1954);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1957;

											BgL_tmpz00_1957 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1957, BUNSPEC);
										}
										BgL_arg1217z00_802 = BgL_tmpz00_1202;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1203;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1960;

											BgL_tmpz00_1960 = (int) (4L);
											BgL_tmpz00_1203 = BGL_MVALUES_VAL(BgL_tmpz00_1960);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1963;

											BgL_tmpz00_1963 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1963, BUNSPEC);
										}
										BgL_arg1219z00_803 = BgL_tmpz00_1203;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1204;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1966;

											BgL_tmpz00_1966 = (int) (5L);
											BgL_tmpz00_1204 = BGL_MVALUES_VAL(BgL_tmpz00_1966);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1969;

											BgL_tmpz00_1969 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1969, BUNSPEC);
										}
										BgL_arg1224z00_804 = BgL_tmpz00_1204;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1205;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1972;

											BgL_tmpz00_1972 = (int) (6L);
											BgL_tmpz00_1205 = BGL_MVALUES_VAL(BgL_tmpz00_1972);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1975;

											BgL_tmpz00_1975 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1975, BUNSPEC);
										}
										BgL_arg1225z00_805 = BgL_tmpz00_1205;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1206;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1978;

											BgL_tmpz00_1978 = (int) (7L);
											BgL_tmpz00_1206 = BGL_MVALUES_VAL(BgL_tmpz00_1978);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1981;

											BgL_tmpz00_1981 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1981, BUNSPEC);
										}
										BgL_arg1226z00_806 = BgL_tmpz00_1206;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1207;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1984;

											BgL_tmpz00_1984 = (int) (8L);
											BgL_tmpz00_1207 = BGL_MVALUES_VAL(BgL_tmpz00_1984);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1987;

											BgL_tmpz00_1987 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1987, BUNSPEC);
										}
										BgL_arg1230z00_807 = BgL_tmpz00_1207;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1208;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1990;

											BgL_tmpz00_1990 = (int) (9L);
											BgL_tmpz00_1208 = BGL_MVALUES_VAL(BgL_tmpz00_1990);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1993;

											BgL_tmpz00_1993 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1993, BUNSPEC);
										}
										BgL_arg1231z00_808 = BgL_tmpz00_1208;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1209;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_1996;

											BgL_tmpz00_1996 = (int) (10L);
											BgL_tmpz00_1209 = BGL_MVALUES_VAL(BgL_tmpz00_1996);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_1999;

											BgL_tmpz00_1999 = (int) (10L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_1999, BUNSPEC);
										}
										BgL_arg1232z00_809 = BgL_tmpz00_1209;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1210;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2002;

											BgL_tmpz00_2002 = (int) (11L);
											BgL_tmpz00_1210 = BGL_MVALUES_VAL(BgL_tmpz00_2002);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2005;

											BgL_tmpz00_2005 = (int) (11L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2005, BUNSPEC);
										}
										BgL_arg1234z00_810 = BgL_tmpz00_1210;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1211;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2008;

											BgL_tmpz00_2008 = (int) (12L);
											BgL_tmpz00_1211 = BGL_MVALUES_VAL(BgL_tmpz00_2008);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2011;

											BgL_tmpz00_2011 = (int) (12L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2011, BUNSPEC);
										}
										BgL_arg1235z00_811 = BgL_tmpz00_1211;
									}
									return
										BGL_PROCEDURE_CALL13(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1215z00_800, BgL_arg1216z00_801, BgL_arg1217z00_802,
										BgL_arg1219z00_803, BgL_arg1224z00_804, BgL_arg1225z00_805,
										BgL_arg1226z00_806, BgL_arg1230z00_807, BgL_arg1231z00_808,
										BgL_arg1232z00_809, BgL_arg1234z00_810, BgL_arg1235z00_811);
								}
								break;
							case 14L:

								{	/* Ieee/control5.scm 244 */
									obj_t BgL_arg1236z00_812;
									obj_t BgL_arg1239z00_813;
									obj_t BgL_arg1241z00_814;
									obj_t BgL_arg1242z00_815;
									obj_t BgL_arg1248z00_816;
									obj_t BgL_arg1249z00_817;
									obj_t BgL_arg1252z00_818;
									obj_t BgL_arg1253z00_819;
									obj_t BgL_arg1254z00_820;
									obj_t BgL_arg1258z00_821;
									obj_t BgL_arg1259z00_822;
									obj_t BgL_arg1261z00_823;
									obj_t BgL_arg1262z00_824;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1212;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2030;

											BgL_tmpz00_2030 = (int) (1L);
											BgL_tmpz00_1212 = BGL_MVALUES_VAL(BgL_tmpz00_2030);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2033;

											BgL_tmpz00_2033 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2033, BUNSPEC);
										}
										BgL_arg1236z00_812 = BgL_tmpz00_1212;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1213;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2036;

											BgL_tmpz00_2036 = (int) (2L);
											BgL_tmpz00_1213 = BGL_MVALUES_VAL(BgL_tmpz00_2036);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2039;

											BgL_tmpz00_2039 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2039, BUNSPEC);
										}
										BgL_arg1239z00_813 = BgL_tmpz00_1213;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1214;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2042;

											BgL_tmpz00_2042 = (int) (3L);
											BgL_tmpz00_1214 = BGL_MVALUES_VAL(BgL_tmpz00_2042);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2045;

											BgL_tmpz00_2045 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2045, BUNSPEC);
										}
										BgL_arg1241z00_814 = BgL_tmpz00_1214;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1215;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2048;

											BgL_tmpz00_2048 = (int) (4L);
											BgL_tmpz00_1215 = BGL_MVALUES_VAL(BgL_tmpz00_2048);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2051;

											BgL_tmpz00_2051 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2051, BUNSPEC);
										}
										BgL_arg1242z00_815 = BgL_tmpz00_1215;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1216;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2054;

											BgL_tmpz00_2054 = (int) (5L);
											BgL_tmpz00_1216 = BGL_MVALUES_VAL(BgL_tmpz00_2054);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2057;

											BgL_tmpz00_2057 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2057, BUNSPEC);
										}
										BgL_arg1248z00_816 = BgL_tmpz00_1216;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1217;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2060;

											BgL_tmpz00_2060 = (int) (6L);
											BgL_tmpz00_1217 = BGL_MVALUES_VAL(BgL_tmpz00_2060);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2063;

											BgL_tmpz00_2063 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2063, BUNSPEC);
										}
										BgL_arg1249z00_817 = BgL_tmpz00_1217;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1218;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2066;

											BgL_tmpz00_2066 = (int) (7L);
											BgL_tmpz00_1218 = BGL_MVALUES_VAL(BgL_tmpz00_2066);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2069;

											BgL_tmpz00_2069 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2069, BUNSPEC);
										}
										BgL_arg1252z00_818 = BgL_tmpz00_1218;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1219;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2072;

											BgL_tmpz00_2072 = (int) (8L);
											BgL_tmpz00_1219 = BGL_MVALUES_VAL(BgL_tmpz00_2072);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2075;

											BgL_tmpz00_2075 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2075, BUNSPEC);
										}
										BgL_arg1253z00_819 = BgL_tmpz00_1219;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1220;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2078;

											BgL_tmpz00_2078 = (int) (9L);
											BgL_tmpz00_1220 = BGL_MVALUES_VAL(BgL_tmpz00_2078);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2081;

											BgL_tmpz00_2081 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2081, BUNSPEC);
										}
										BgL_arg1254z00_820 = BgL_tmpz00_1220;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1221;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2084;

											BgL_tmpz00_2084 = (int) (10L);
											BgL_tmpz00_1221 = BGL_MVALUES_VAL(BgL_tmpz00_2084);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2087;

											BgL_tmpz00_2087 = (int) (10L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2087, BUNSPEC);
										}
										BgL_arg1258z00_821 = BgL_tmpz00_1221;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1222;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2090;

											BgL_tmpz00_2090 = (int) (11L);
											BgL_tmpz00_1222 = BGL_MVALUES_VAL(BgL_tmpz00_2090);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2093;

											BgL_tmpz00_2093 = (int) (11L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2093, BUNSPEC);
										}
										BgL_arg1259z00_822 = BgL_tmpz00_1222;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1223;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2096;

											BgL_tmpz00_2096 = (int) (12L);
											BgL_tmpz00_1223 = BGL_MVALUES_VAL(BgL_tmpz00_2096);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2099;

											BgL_tmpz00_2099 = (int) (12L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2099, BUNSPEC);
										}
										BgL_arg1261z00_823 = BgL_tmpz00_1223;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1224;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2102;

											BgL_tmpz00_2102 = (int) (13L);
											BgL_tmpz00_1224 = BGL_MVALUES_VAL(BgL_tmpz00_2102);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2105;

											BgL_tmpz00_2105 = (int) (13L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2105, BUNSPEC);
										}
										BgL_arg1262z00_824 = BgL_tmpz00_1224;
									}
									return
										BGL_PROCEDURE_CALL14(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1236z00_812, BgL_arg1239z00_813, BgL_arg1241z00_814,
										BgL_arg1242z00_815, BgL_arg1248z00_816, BgL_arg1249z00_817,
										BgL_arg1252z00_818, BgL_arg1253z00_819, BgL_arg1254z00_820,
										BgL_arg1258z00_821, BgL_arg1259z00_822, BgL_arg1261z00_823,
										BgL_arg1262z00_824);
								}
								break;
							case 15L:

								{	/* Ieee/control5.scm 259 */
									obj_t BgL_arg1263z00_825;
									obj_t BgL_arg1265z00_826;
									obj_t BgL_arg1266z00_827;
									obj_t BgL_arg1267z00_828;
									obj_t BgL_arg1269z00_829;
									obj_t BgL_arg1271z00_830;
									obj_t BgL_arg1274z00_831;
									obj_t BgL_arg1276z00_832;
									obj_t BgL_arg1278z00_833;
									obj_t BgL_arg1279z00_834;
									obj_t BgL_arg1280z00_835;
									obj_t BgL_arg1281z00_836;
									obj_t BgL_arg1282z00_837;
									obj_t BgL_arg1283z00_838;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1225;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2125;

											BgL_tmpz00_2125 = (int) (1L);
											BgL_tmpz00_1225 = BGL_MVALUES_VAL(BgL_tmpz00_2125);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2128;

											BgL_tmpz00_2128 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2128, BUNSPEC);
										}
										BgL_arg1263z00_825 = BgL_tmpz00_1225;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1226;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2131;

											BgL_tmpz00_2131 = (int) (2L);
											BgL_tmpz00_1226 = BGL_MVALUES_VAL(BgL_tmpz00_2131);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2134;

											BgL_tmpz00_2134 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2134, BUNSPEC);
										}
										BgL_arg1265z00_826 = BgL_tmpz00_1226;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1227;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2137;

											BgL_tmpz00_2137 = (int) (3L);
											BgL_tmpz00_1227 = BGL_MVALUES_VAL(BgL_tmpz00_2137);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2140;

											BgL_tmpz00_2140 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2140, BUNSPEC);
										}
										BgL_arg1266z00_827 = BgL_tmpz00_1227;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1228;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2143;

											BgL_tmpz00_2143 = (int) (4L);
											BgL_tmpz00_1228 = BGL_MVALUES_VAL(BgL_tmpz00_2143);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2146;

											BgL_tmpz00_2146 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2146, BUNSPEC);
										}
										BgL_arg1267z00_828 = BgL_tmpz00_1228;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1229;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2149;

											BgL_tmpz00_2149 = (int) (5L);
											BgL_tmpz00_1229 = BGL_MVALUES_VAL(BgL_tmpz00_2149);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2152;

											BgL_tmpz00_2152 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2152, BUNSPEC);
										}
										BgL_arg1269z00_829 = BgL_tmpz00_1229;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1230;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2155;

											BgL_tmpz00_2155 = (int) (6L);
											BgL_tmpz00_1230 = BGL_MVALUES_VAL(BgL_tmpz00_2155);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2158;

											BgL_tmpz00_2158 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2158, BUNSPEC);
										}
										BgL_arg1271z00_830 = BgL_tmpz00_1230;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1231;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2161;

											BgL_tmpz00_2161 = (int) (7L);
											BgL_tmpz00_1231 = BGL_MVALUES_VAL(BgL_tmpz00_2161);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2164;

											BgL_tmpz00_2164 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2164, BUNSPEC);
										}
										BgL_arg1274z00_831 = BgL_tmpz00_1231;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1232;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2167;

											BgL_tmpz00_2167 = (int) (8L);
											BgL_tmpz00_1232 = BGL_MVALUES_VAL(BgL_tmpz00_2167);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2170;

											BgL_tmpz00_2170 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2170, BUNSPEC);
										}
										BgL_arg1276z00_832 = BgL_tmpz00_1232;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1233;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2173;

											BgL_tmpz00_2173 = (int) (9L);
											BgL_tmpz00_1233 = BGL_MVALUES_VAL(BgL_tmpz00_2173);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2176;

											BgL_tmpz00_2176 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2176, BUNSPEC);
										}
										BgL_arg1278z00_833 = BgL_tmpz00_1233;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1234;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2179;

											BgL_tmpz00_2179 = (int) (10L);
											BgL_tmpz00_1234 = BGL_MVALUES_VAL(BgL_tmpz00_2179);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2182;

											BgL_tmpz00_2182 = (int) (10L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2182, BUNSPEC);
										}
										BgL_arg1279z00_834 = BgL_tmpz00_1234;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1235;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2185;

											BgL_tmpz00_2185 = (int) (11L);
											BgL_tmpz00_1235 = BGL_MVALUES_VAL(BgL_tmpz00_2185);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2188;

											BgL_tmpz00_2188 = (int) (11L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2188, BUNSPEC);
										}
										BgL_arg1280z00_835 = BgL_tmpz00_1235;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1236;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2191;

											BgL_tmpz00_2191 = (int) (12L);
											BgL_tmpz00_1236 = BGL_MVALUES_VAL(BgL_tmpz00_2191);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2194;

											BgL_tmpz00_2194 = (int) (12L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2194, BUNSPEC);
										}
										BgL_arg1281z00_836 = BgL_tmpz00_1236;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1237;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2197;

											BgL_tmpz00_2197 = (int) (13L);
											BgL_tmpz00_1237 = BGL_MVALUES_VAL(BgL_tmpz00_2197);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2200;

											BgL_tmpz00_2200 = (int) (13L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2200, BUNSPEC);
										}
										BgL_arg1282z00_837 = BgL_tmpz00_1237;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1238;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2203;

											BgL_tmpz00_2203 = (int) (14L);
											BgL_tmpz00_1238 = BGL_MVALUES_VAL(BgL_tmpz00_2203);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2206;

											BgL_tmpz00_2206 = (int) (14L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2206, BUNSPEC);
										}
										BgL_arg1283z00_838 = BgL_tmpz00_1238;
									}
									return
										BGL_PROCEDURE_CALL15(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1263z00_825, BgL_arg1265z00_826, BgL_arg1266z00_827,
										BgL_arg1267z00_828, BgL_arg1269z00_829, BgL_arg1271z00_830,
										BgL_arg1274z00_831, BgL_arg1276z00_832, BgL_arg1278z00_833,
										BgL_arg1279z00_834, BgL_arg1280z00_835, BgL_arg1281z00_836,
										BgL_arg1282z00_837, BgL_arg1283z00_838);
								}
								break;
							case 16L:

								{	/* Ieee/control5.scm 275 */
									obj_t BgL_arg1285z00_839;
									obj_t BgL_arg1287z00_840;
									obj_t BgL_arg1291z00_841;
									obj_t BgL_arg1292z00_842;
									obj_t BgL_arg1293z00_843;
									obj_t BgL_arg1295z00_844;
									obj_t BgL_arg1296z00_845;
									obj_t BgL_arg1298z00_846;
									obj_t BgL_arg1301z00_847;
									obj_t BgL_arg1322z00_848;
									obj_t BgL_arg1329z00_849;
									obj_t BgL_arg1330z00_850;
									obj_t BgL_arg1331z00_851;
									obj_t BgL_arg1332z00_852;
									obj_t BgL_arg1333z00_853;

									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1239;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2227;

											BgL_tmpz00_2227 = (int) (1L);
											BgL_tmpz00_1239 = BGL_MVALUES_VAL(BgL_tmpz00_2227);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2230;

											BgL_tmpz00_2230 = (int) (1L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2230, BUNSPEC);
										}
										BgL_arg1285z00_839 = BgL_tmpz00_1239;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1240;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2233;

											BgL_tmpz00_2233 = (int) (2L);
											BgL_tmpz00_1240 = BGL_MVALUES_VAL(BgL_tmpz00_2233);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2236;

											BgL_tmpz00_2236 = (int) (2L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2236, BUNSPEC);
										}
										BgL_arg1287z00_840 = BgL_tmpz00_1240;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1241;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2239;

											BgL_tmpz00_2239 = (int) (3L);
											BgL_tmpz00_1241 = BGL_MVALUES_VAL(BgL_tmpz00_2239);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2242;

											BgL_tmpz00_2242 = (int) (3L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2242, BUNSPEC);
										}
										BgL_arg1291z00_841 = BgL_tmpz00_1241;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1242;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2245;

											BgL_tmpz00_2245 = (int) (4L);
											BgL_tmpz00_1242 = BGL_MVALUES_VAL(BgL_tmpz00_2245);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2248;

											BgL_tmpz00_2248 = (int) (4L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2248, BUNSPEC);
										}
										BgL_arg1292z00_842 = BgL_tmpz00_1242;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1243;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2251;

											BgL_tmpz00_2251 = (int) (5L);
											BgL_tmpz00_1243 = BGL_MVALUES_VAL(BgL_tmpz00_2251);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2254;

											BgL_tmpz00_2254 = (int) (5L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2254, BUNSPEC);
										}
										BgL_arg1293z00_843 = BgL_tmpz00_1243;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1244;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2257;

											BgL_tmpz00_2257 = (int) (6L);
											BgL_tmpz00_1244 = BGL_MVALUES_VAL(BgL_tmpz00_2257);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2260;

											BgL_tmpz00_2260 = (int) (6L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2260, BUNSPEC);
										}
										BgL_arg1295z00_844 = BgL_tmpz00_1244;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1245;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2263;

											BgL_tmpz00_2263 = (int) (7L);
											BgL_tmpz00_1245 = BGL_MVALUES_VAL(BgL_tmpz00_2263);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2266;

											BgL_tmpz00_2266 = (int) (7L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2266, BUNSPEC);
										}
										BgL_arg1296z00_845 = BgL_tmpz00_1245;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1246;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2269;

											BgL_tmpz00_2269 = (int) (8L);
											BgL_tmpz00_1246 = BGL_MVALUES_VAL(BgL_tmpz00_2269);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2272;

											BgL_tmpz00_2272 = (int) (8L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2272, BUNSPEC);
										}
										BgL_arg1298z00_846 = BgL_tmpz00_1246;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1247;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2275;

											BgL_tmpz00_2275 = (int) (9L);
											BgL_tmpz00_1247 = BGL_MVALUES_VAL(BgL_tmpz00_2275);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2278;

											BgL_tmpz00_2278 = (int) (9L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2278, BUNSPEC);
										}
										BgL_arg1301z00_847 = BgL_tmpz00_1247;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1248;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2281;

											BgL_tmpz00_2281 = (int) (10L);
											BgL_tmpz00_1248 = BGL_MVALUES_VAL(BgL_tmpz00_2281);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2284;

											BgL_tmpz00_2284 = (int) (10L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2284, BUNSPEC);
										}
										BgL_arg1322z00_848 = BgL_tmpz00_1248;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1249;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2287;

											BgL_tmpz00_2287 = (int) (11L);
											BgL_tmpz00_1249 = BGL_MVALUES_VAL(BgL_tmpz00_2287);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2290;

											BgL_tmpz00_2290 = (int) (11L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2290, BUNSPEC);
										}
										BgL_arg1329z00_849 = BgL_tmpz00_1249;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1250;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2293;

											BgL_tmpz00_2293 = (int) (12L);
											BgL_tmpz00_1250 = BGL_MVALUES_VAL(BgL_tmpz00_2293);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2296;

											BgL_tmpz00_2296 = (int) (12L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2296, BUNSPEC);
										}
										BgL_arg1330z00_850 = BgL_tmpz00_1250;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1251;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2299;

											BgL_tmpz00_2299 = (int) (13L);
											BgL_tmpz00_1251 = BGL_MVALUES_VAL(BgL_tmpz00_2299);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2302;

											BgL_tmpz00_2302 = (int) (13L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2302, BUNSPEC);
										}
										BgL_arg1331z00_851 = BgL_tmpz00_1251;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1252;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2305;

											BgL_tmpz00_2305 = (int) (14L);
											BgL_tmpz00_1252 = BGL_MVALUES_VAL(BgL_tmpz00_2305);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2308;

											BgL_tmpz00_2308 = (int) (14L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2308, BUNSPEC);
										}
										BgL_arg1332z00_852 = BgL_tmpz00_1252;
									}
									{	/* Ieee/control5.scm 79 */
										obj_t BgL_tmpz00_1253;

										{	/* Ieee/control5.scm 79 */
											int BgL_tmpz00_2311;

											BgL_tmpz00_2311 = (int) (15L);
											BgL_tmpz00_1253 = BGL_MVALUES_VAL(BgL_tmpz00_2311);
										}
										{	/* Ieee/control5.scm 87 */
											int BgL_tmpz00_2314;

											BgL_tmpz00_2314 = (int) (15L);
											BGL_MVALUES_VAL_SET(BgL_tmpz00_2314, BUNSPEC);
										}
										BgL_arg1333z00_853 = BgL_tmpz00_1253;
									}
									return
										BGL_PROCEDURE_CALL16(BgL_consumerz00_9, BgL_res0z00_730,
										BgL_arg1285z00_839, BgL_arg1287z00_840, BgL_arg1291z00_841,
										BgL_arg1292z00_842, BgL_arg1293z00_843, BgL_arg1295z00_844,
										BgL_arg1296z00_845, BgL_arg1298z00_846, BgL_arg1301z00_847,
										BgL_arg1322z00_848, BgL_arg1329z00_849, BgL_arg1330z00_850,
										BgL_arg1331z00_851, BgL_arg1332z00_852, BgL_arg1333z00_853);
								}
								break;
							default:
								return apply(BgL_consumerz00_9, BgL_res0z00_730);
							}
					}
				}
			}
		}

	}



/* &call-with-values */
	obj_t BGl_z62callzd2withzd2valuesz62zz__r5_control_features_6_4z00(obj_t
		BgL_envz00_1317, obj_t BgL_producerz00_1318, obj_t BgL_consumerz00_1319)
	{
		{	/* Ieee/control5.scm 119 */
			{	/* Ieee/control5.scm 120 */
				obj_t BgL_auxz00_2347;
				obj_t BgL_auxz00_2340;

				if (PROCEDUREP(BgL_consumerz00_1319))
					{	/* Ieee/control5.scm 120 */
						BgL_auxz00_2347 = BgL_consumerz00_1319;
					}
				else
					{
						obj_t BgL_auxz00_2350;

						BgL_auxz00_2350 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1595z00zz__r5_control_features_6_4z00, BINT(4604L),
							BGl_string1600z00zz__r5_control_features_6_4z00,
							BGl_string1601z00zz__r5_control_features_6_4z00,
							BgL_consumerz00_1319);
						FAILURE(BgL_auxz00_2350, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_producerz00_1318))
					{	/* Ieee/control5.scm 120 */
						BgL_auxz00_2340 = BgL_producerz00_1318;
					}
				else
					{
						obj_t BgL_auxz00_2343;

						BgL_auxz00_2343 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1595z00zz__r5_control_features_6_4z00, BINT(4604L),
							BGl_string1600z00zz__r5_control_features_6_4z00,
							BGl_string1601z00zz__r5_control_features_6_4z00,
							BgL_producerz00_1318);
						FAILURE(BgL_auxz00_2343, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00
					(BgL_auxz00_2340, BgL_auxz00_2347);
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00(void)
	{
		{	/* Ieee/control5.scm 14 */
			return
				BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1602z00zz__r5_control_features_6_4z00));
		}

	}

#ifdef __cplusplus
}
#endif
