/*===========================================================================*/
/*   (Ieee/control.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/control.scm -indent -o objs/obj_u/Ieee/control.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___R4_CONTROL_FEATURES_6_9_TYPE_DEFINITIONS
#define BGL___R4_CONTROL_FEATURES_6_9_TYPE_DEFINITIONS
#endif													// BGL___R4_CONTROL_FEATURES_6_9_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	BGL_EXPORTED_DECL obj_t BGl_mapz12z12zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_appendzd2mapz12zc0zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00 =
		BUNSPEC;
	static obj_t BGl_z62forcez62zz__r4_control_features_6_9z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_mapzd22zd2zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_filterzd2mapzd22z00zz__r4_control_features_6_9z00(obj_t,
		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__r4_control_features_6_9z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__evaluatez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_EXPORTED_DECL obj_t
		BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00
		(obj_t);
	extern obj_t BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31194ze3ze5zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t BGl_z62mapz62zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_toplevelzd2initzd2zz__r4_control_features_6_9z00(void);
	static obj_t BGl_z62mapzd22zb0zz__r4_control_features_6_9z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_procedurezf3zf3zz__r4_control_features_6_9z00(obj_t);
	static obj_t
		BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00(void);
	static obj_t BGl_z62applyz62zz__r4_control_features_6_9z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_control_features_6_9z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31294ze3ze5zz__r4_control_features_6_9z00(obj_t);
	static obj_t BGl_z62filterz62zz__r4_control_features_6_9z00(obj_t, obj_t,
		obj_t);
	extern obj_t call_cc(obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_appendzd2mapzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_z62procedurezf3z91zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31296ze3ze5zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_filterz12z12zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31330ze3ze5zz__r4_control_features_6_9z00(obj_t);
	static obj_t BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62filterz12z70zz__r4_control_features_6_9z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t BGl_z62appendzd2mapzb0zz__r4_control_features_6_9z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_appendzd221011zd2zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_makezd2promisezd2zz__r4_control_features_6_9z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_callzf2cczf2zz__r4_control_features_6_9z00(obj_t);
	static obj_t BGl_z62callzf2ccz90zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t
		BGl_z62zc3z04anonymousza31299ze3ze5zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t BGl_loopze70ze7zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_loopze71ze7zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_loopze72ze7zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_loopze73ze7zz__r4_control_features_6_9z00(obj_t, obj_t);
	static obj_t BGl_loopze74ze7zz__r4_control_features_6_9z00(obj_t);
	static obj_t BGl_appendzd2map2z12zc0zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t
		BGl_z62callzd2withzd2currentzd2continuationzb0zz__r4_control_features_6_9z00
		(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	static obj_t BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_forcez00zz__r4_control_features_6_9z00(obj_t);
	extern obj_t BGl_getzd2evaluationzd2contextz00zz__evaluatez00(void);
	static obj_t BGl_z62mapz12z70zz__r4_control_features_6_9z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendzd2mapz12zd2envz12zz__r4_control_features_6_9z00,
		BgL_bgl_za762appendza7d2mapza71661za7, va_generic_entry,
		BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_forzd2eachzd22zd2envzd2zz__r4_control_features_6_9z00,
		BgL_bgl_za762forza7d2eachza7d21662za7,
		BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_forzd2eachzd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762forza7d2eachza7b01663za7, va_generic_entry,
		BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_makezd2promisezd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762makeza7d2promis1664z00,
		BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_mapzd2envzd2zz__r4_control_features_6_9z00,
		BgL_bgl_za762mapza762za7za7__r4_1665z00, va_generic_entry,
		BGl_z62mapz62zz__r4_control_features_6_9z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_appendzd2mapzd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762appendza7d2mapza71666za7, va_generic_entry,
		BGl_z62appendzd2mapzb0zz__r4_control_features_6_9z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filterzd2envzd2zz__r4_control_features_6_9z00,
		BgL_bgl_za762filterza762za7za7__1667z00,
		BGl_z62filterz62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filterz12zd2envzc0zz__r4_control_features_6_9z00,
		BgL_bgl_za762filterza712za770za71668z00,
		BGl_z62filterz12z70zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_mapzd22zd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762mapza7d22za7b0za7za7_1669za7,
		BGl_z62mapzd22zb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_procedurezf3zd2envz21zz__r4_control_features_6_9z00,
		BgL_bgl_za762procedureza7f3za71670za7,
		BGl_z62procedurezf3z91zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzd2withzd2currentzd2continuationzd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762callza7d2withza7d1671za7,
		BGl_z62callzd2withzd2currentzd2continuationzb0zz__r4_control_features_6_9z00,
		0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_forcezd2envzd2zz__r4_control_features_6_9z00,
		BgL_bgl_za762forceza762za7za7__r1672z00,
		BGl_z62forcez62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_applyzd2envzd2zz__r4_control_features_6_9z00,
		BgL_bgl_za762applyza762za7za7__r1673z00, va_generic_entry,
		BGl_z62applyz62zz__r4_control_features_6_9z00, BUNSPEC, -3);
	      BGL_DEFINE_STRING(BGl_string1642z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1642za700za7za7_1674za7,
		"/tmp/bigloo/runtime/Ieee/control.scm", 36);
	      BGL_DEFINE_STRING(BGl_string1643z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1643za700za7za7_1675za7, "&apply", 6);
	      BGL_DEFINE_STRING(BGl_string1644z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1644za700za7za7_1676za7, "procedure", 9);
	      BGL_DEFINE_STRING(BGl_string1645z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1645za700za7za7_1677za7, "&map-2", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_filterzd2mapzd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762filterza7d2mapza71678za7, va_generic_entry,
		BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string1646z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1646za700za7za7_1679za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string1647z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1647za700za7za7_1680za7, "&map", 4);
	      BGL_DEFINE_STRING(BGl_string1648z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1648za700za7za7_1681za7, "&map!", 5);
	      BGL_DEFINE_STRING(BGl_string1649z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1649za700za7za7_1682za7, "&append-map", 11);
	      BGL_DEFINE_STRING(BGl_string1650z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1650za700za7za7_1683za7, "&append-map!", 12);
	      BGL_DEFINE_STRING(BGl_string1651z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1651za700za7za7_1684za7, "&filter-map", 11);
	      BGL_DEFINE_STRING(BGl_string1652z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1652za700za7za7_1685za7, "&for-each-2", 11);
	      BGL_DEFINE_STRING(BGl_string1653z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1653za700za7za7_1686za7, "&for-each", 9);
	      BGL_DEFINE_STRING(BGl_string1654z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1654za700za7za7_1687za7, "&filter", 7);
	      BGL_DEFINE_STRING(BGl_string1655z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1655za700za7za7_1688za7, "&filter!", 8);
	      BGL_DEFINE_STRING(BGl_string1656z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1656za700za7za7_1689za7, "&make-promise", 13);
	      BGL_DEFINE_STRING(BGl_string1657z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1657za700za7za7_1690za7, "&call/cc", 8);
	      BGL_DEFINE_STRING(BGl_string1658z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1658za700za7za7_1691za7, "&call-with-current-continuation",
		31);
	      BGL_DEFINE_STRING(BGl_string1659z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1659za700za7za7_1692za7, "&dynamic-wind", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_mapz12zd2envzc0zz__r4_control_features_6_9z00,
		BgL_bgl_za762mapza712za770za7za7__1693za7, va_generic_entry,
		BGl_z62mapz12z70zz__r4_control_features_6_9z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string1660z00zz__r4_control_features_6_9z00,
		BgL_bgl_string1660za700za7za7_1694za7, "__r4_control_features_6_9", 25);
	extern obj_t BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_dynamiczd2windzd2envz00zz__r4_control_features_6_9z00,
		BgL_bgl_za762dynamicza7d2win1695z00,
		BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_callzf2cczd2envz20zz__r4_control_features_6_9z00,
		BgL_bgl_za762callza7f2ccza790za71696z00,
		BGl_z62callzf2ccz90zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
	extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_callzf2cczd2envz20zz__r4_control_features_6_9z00,
			BgL_bgl_za762callza7f2ccza790za71696z00);
		BGL_BIND_PROCEDURE
			(BGl_dynamiczd2windzd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762dynamicza7d2win1695z00);
		BGL_BIND_STRING(BGl_string1660z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1660za700za7za7_1694za7);
		BGL_BIND_PROCEDURE(BGl_mapz12zd2envzc0zz__r4_control_features_6_9z00,
			BgL_bgl_za762mapza712za770za7za7__1693za7);
		BGL_BIND_STRING(BGl_string1659z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1659za700za7za7_1692za7);
		BGL_BIND_STRING(BGl_string1658z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1658za700za7za7_1691za7);
		BGL_BIND_STRING(BGl_string1657z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1657za700za7za7_1690za7);
		BGL_BIND_STRING(BGl_string1656z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1656za700za7za7_1689za7);
		BGL_BIND_STRING(BGl_string1655z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1655za700za7za7_1688za7);
		BGL_BIND_STRING(BGl_string1654z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1654za700za7za7_1687za7);
		BGL_BIND_STRING(BGl_string1653z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1653za700za7za7_1686za7);
		BGL_BIND_STRING(BGl_string1652z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1652za700za7za7_1685za7);
		BGL_BIND_STRING(BGl_string1651z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1651za700za7za7_1684za7);
		BGL_BIND_STRING(BGl_string1650z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1650za700za7za7_1683za7);
		BGL_BIND_STRING(BGl_string1649z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1649za700za7za7_1682za7);
		BGL_BIND_STRING(BGl_string1648z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1648za700za7za7_1681za7);
		BGL_BIND_STRING(BGl_string1647z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1647za700za7za7_1680za7);
		BGL_BIND_STRING(BGl_string1646z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1646za700za7za7_1679za7);
		BGL_BIND_PROCEDURE(BGl_filterzd2mapzd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762filterza7d2mapza71678za7);
		BGL_BIND_STRING(BGl_string1645z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1645za700za7za7_1677za7);
		BGL_BIND_STRING(BGl_string1644z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1644za700za7za7_1676za7);
		BGL_BIND_STRING(BGl_string1643z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1643za700za7za7_1675za7);
		BGL_BIND_STRING(BGl_string1642z00zz__r4_control_features_6_9z00,
			BgL_bgl_string1642za700za7za7_1674za7);
		BGL_BIND_PROCEDURE(BGl_applyzd2envzd2zz__r4_control_features_6_9z00,
			BgL_bgl_za762applyza762za7za7__r1673z00);
		BGL_BIND_PROCEDURE(BGl_forcezd2envzd2zz__r4_control_features_6_9z00,
			BgL_bgl_za762forceza762za7za7__r1672z00);
		BGL_BIND_PROCEDURE
			(BGl_callzd2withzd2currentzd2continuationzd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762callza7d2withza7d1671za7);
		BGL_BIND_PROCEDURE(BGl_procedurezf3zd2envz21zz__r4_control_features_6_9z00,
			BgL_bgl_za762procedureza7f3za71670za7);
		BGL_BIND_PROCEDURE(BGl_mapzd22zd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762mapza7d22za7b0za7za7_1669za7);
		BGL_BIND_PROCEDURE(BGl_filterz12zd2envzc0zz__r4_control_features_6_9z00,
			BgL_bgl_za762filterza712za770za71668z00);
		BGL_BIND_PROCEDURE(BGl_filterzd2envzd2zz__r4_control_features_6_9z00,
			BgL_bgl_za762filterza762za7za7__1667z00);
		BGL_BIND_PROCEDURE(BGl_appendzd2mapzd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762appendza7d2mapza71666za7);
		BGL_BIND_PROCEDURE(BGl_mapzd2envzd2zz__r4_control_features_6_9z00,
			BgL_bgl_za762mapza762za7za7__r4_1665z00);
		BGL_BIND_PROCEDURE
			(BGl_makezd2promisezd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762makeza7d2promis1664z00);
		BGL_BIND_PROCEDURE(BGl_forzd2eachzd2envz00zz__r4_control_features_6_9z00,
			BgL_bgl_za762forza7d2eachza7b01663za7);
		BGL_BIND_PROCEDURE
			(BGl_forzd2eachzd22zd2envzd2zz__r4_control_features_6_9z00,
			BgL_bgl_za762forza7d2eachza7d21662za7);
		BGL_BIND_PROCEDURE
			(BGl_appendzd2mapz12zd2envz12zz__r4_control_features_6_9z00,
			BgL_bgl_za762appendza7d2mapza71661za7);
	}

/* 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__r4_control_features_6_9z00));
#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__r4_control_features_6_9z00(long
		BgL_checksumz00_1699, char *BgL_fromz00_1700)
	{
		{
			if (CBOOL
				(BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00))
				{
					BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					BGl_gczd2rootszd2initz00zz__r4_control_features_6_9z00();
					BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00();
					return BGl_toplevelzd2initzd2zz__r4_control_features_6_9z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



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

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__r4_control_features_6_9z00(void)
	{
		{	/* Ieee/control.scm 14 */
			return BUNSPEC;
		}

	}



/* append-21011 */
	obj_t BGl_appendzd221011zd2zz__r4_control_features_6_9z00(obj_t BgL_l1z00_1,
		obj_t BgL_l2z00_2)
	{
		{
			if (NULLP(BgL_l1z00_1))
				{
					return BgL_l2z00_2;
				}
			else
				{
					obj_t BgL_headz00_745;

					BgL_headz00_745 = MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2);
					{
						obj_t BgL_prevz00_1272;
						obj_t BgL_tailz00_1273;

						BgL_prevz00_1272 = BgL_headz00_745;
						BgL_tailz00_1273 = BgL_l1z00_1;
					BgL_loopz00_1271:
						if (PAIRP(BgL_tailz00_1273))
							{
								obj_t BgL_newzd2prevzd2_1279;

								BgL_newzd2prevzd2_1279 =
									MAKE_YOUNG_PAIR(CAR(BgL_tailz00_1273), BgL_l2z00_2);
								SET_CDR(BgL_prevz00_1272, BgL_newzd2prevzd2_1279);
								{
									obj_t BgL_tailz00_1718;
									obj_t BgL_prevz00_1717;

									BgL_prevz00_1717 = BgL_newzd2prevzd2_1279;
									BgL_tailz00_1718 = CDR(BgL_tailz00_1273);
									BgL_tailz00_1273 = BgL_tailz00_1718;
									BgL_prevz00_1272 = BgL_prevz00_1717;
									goto BgL_loopz00_1271;
								}
							}
						else
							{
								BNIL;
							}
					}
					return CDR(BgL_headz00_745);
				}
		}

	}



/* procedure? */
	BGL_EXPORTED_DEF bool_t
		BGl_procedurezf3zf3zz__r4_control_features_6_9z00(obj_t BgL_objz00_3)
	{
		{	/* Ieee/control.scm 79 */
			return PROCEDUREP(BgL_objz00_3);
		}

	}



/* &procedure? */
	obj_t BGl_z62procedurezf3z91zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1562, obj_t BgL_objz00_1563)
	{
		{	/* Ieee/control.scm 79 */
			return
				BBOOL(BGl_procedurezf3zf3zz__r4_control_features_6_9z00
				(BgL_objz00_1563));
		}

	}



/* apply */
	BGL_EXPORTED_DEF obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t
		BgL_procz00_4, obj_t BgL_argsz00_5, obj_t BgL_optz00_6)
	{
		{	/* Ieee/control.scm 85 */
			{	/* Ieee/control.scm 86 */
				obj_t BgL_argsz00_753;

				if (PAIRP(BgL_optz00_6))
					{	/* Ieee/control.scm 86 */
						BgL_argsz00_753 =
							MAKE_YOUNG_PAIR(BgL_argsz00_5,
							BGl_loopze74ze7zz__r4_control_features_6_9z00(BgL_optz00_6));
					}
				else
					{	/* Ieee/control.scm 86 */
						BgL_argsz00_753 = BgL_argsz00_5;
					}
				return apply(BgL_procz00_4, BgL_argsz00_753);
			}
		}

	}



/* loop~4 */
	obj_t BGl_loopze74ze7zz__r4_control_features_6_9z00(obj_t BgL_optz00_757)
	{
		{	/* Ieee/control.scm 87 */
			{	/* Ieee/control.scm 88 */
				bool_t BgL_test1701z00_1730;

				{	/* Ieee/control.scm 88 */
					obj_t BgL_tmpz00_1731;

					BgL_tmpz00_1731 = CDR(((obj_t) BgL_optz00_757));
					BgL_test1701z00_1730 = PAIRP(BgL_tmpz00_1731);
				}
				if (BgL_test1701z00_1730)
					{	/* Ieee/control.scm 89 */
						obj_t BgL_arg1069z00_761;
						obj_t BgL_arg1070z00_762;

						BgL_arg1069z00_761 = CAR(((obj_t) BgL_optz00_757));
						{	/* Ieee/control.scm 89 */
							obj_t BgL_arg1072z00_763;

							BgL_arg1072z00_763 = CDR(((obj_t) BgL_optz00_757));
							BgL_arg1070z00_762 =
								BGl_loopze74ze7zz__r4_control_features_6_9z00
								(BgL_arg1072z00_763);
						}
						return MAKE_YOUNG_PAIR(BgL_arg1069z00_761, BgL_arg1070z00_762);
					}
				else
					{	/* Ieee/control.scm 88 */
						return CAR(((obj_t) BgL_optz00_757));
					}
			}
		}

	}



/* &apply */
	obj_t BGl_z62applyz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1564,
		obj_t BgL_procz00_1565, obj_t BgL_argsz00_1566, obj_t BgL_optz00_1567)
	{
		{	/* Ieee/control.scm 85 */
			{	/* Ieee/control.scm 86 */
				obj_t BgL_auxz00_1743;

				if (PROCEDUREP(BgL_procz00_1565))
					{	/* Ieee/control.scm 86 */
						BgL_auxz00_1743 = BgL_procz00_1565;
					}
				else
					{
						obj_t BgL_auxz00_1746;

						BgL_auxz00_1746 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(3301L),
							BGl_string1643z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_procz00_1565);
						FAILURE(BgL_auxz00_1746, BFALSE, BFALSE);
					}
				return
					BGl_applyz00zz__r4_control_features_6_9z00(BgL_auxz00_1743,
					BgL_argsz00_1566, BgL_optz00_1567);
			}
		}

	}



/* map-2 */
	BGL_EXPORTED_DEF obj_t BGl_mapzd22zd2zz__r4_control_features_6_9z00(obj_t
		BgL_fz00_7, obj_t BgL_lz00_8)
	{
		{	/* Ieee/control.scm 97 */
			{
				obj_t BgL_lz00_1305;
				obj_t BgL_resz00_1306;

				BgL_lz00_1305 = BgL_lz00_8;
				BgL_resz00_1306 = BNIL;
			BgL_loopz00_1304:
				if (NULLP(BgL_lz00_1305))
					{	/* Ieee/control.scm 100 */
						return bgl_reverse_bang(BgL_resz00_1306);
					}
				else
					{	/* Ieee/control.scm 102 */
						obj_t BgL_arg1079z00_1313;
						obj_t BgL_arg1080z00_1314;

						BgL_arg1079z00_1313 = CDR(((obj_t) BgL_lz00_1305));
						{	/* Ieee/control.scm 102 */
							obj_t BgL_arg1081z00_1315;

							{	/* Ieee/control.scm 102 */
								obj_t BgL_arg1084z00_1316;

								BgL_arg1084z00_1316 = CAR(((obj_t) BgL_lz00_1305));
								BgL_arg1081z00_1315 =
									BGL_PROCEDURE_CALL1(BgL_fz00_7, BgL_arg1084z00_1316);
							}
							BgL_arg1080z00_1314 =
								MAKE_YOUNG_PAIR(BgL_arg1081z00_1315, BgL_resz00_1306);
						}
						{
							obj_t BgL_resz00_1764;
							obj_t BgL_lz00_1763;

							BgL_lz00_1763 = BgL_arg1079z00_1313;
							BgL_resz00_1764 = BgL_arg1080z00_1314;
							BgL_resz00_1306 = BgL_resz00_1764;
							BgL_lz00_1305 = BgL_lz00_1763;
							goto BgL_loopz00_1304;
						}
					}
			}
		}

	}



/* &map-2 */
	obj_t BGl_z62mapzd22zb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1568,
		obj_t BgL_fz00_1569, obj_t BgL_lz00_1570)
	{
		{	/* Ieee/control.scm 97 */
			{	/* Ieee/control.scm 98 */
				obj_t BgL_auxz00_1772;
				obj_t BgL_auxz00_1765;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_1570))
					{	/* Ieee/control.scm 98 */
						BgL_auxz00_1772 = BgL_lz00_1570;
					}
				else
					{
						obj_t BgL_auxz00_1775;

						BgL_auxz00_1775 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(3744L),
							BGl_string1645z00zz__r4_control_features_6_9z00,
							BGl_string1646z00zz__r4_control_features_6_9z00, BgL_lz00_1570);
						FAILURE(BgL_auxz00_1775, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_fz00_1569))
					{	/* Ieee/control.scm 98 */
						BgL_auxz00_1765 = BgL_fz00_1569;
					}
				else
					{
						obj_t BgL_auxz00_1768;

						BgL_auxz00_1768 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(3744L),
							BGl_string1645z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1569);
						FAILURE(BgL_auxz00_1768, BFALSE, BFALSE);
					}
				return
					BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_auxz00_1765,
					BgL_auxz00_1772);
			}
		}

	}



/* map */
	BGL_EXPORTED_DEF obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t
		BgL_fz00_9, obj_t BgL_lz00_10)
	{
		{	/* Ieee/control.scm 107 */
			if (NULLP(BgL_lz00_10))
				{	/* Ieee/control.scm 109 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 109 */
					if (NULLP(CDR(((obj_t) BgL_lz00_10))))
						{	/* Ieee/control.scm 112 */
							obj_t BgL_arg1088z00_780;

							BgL_arg1088z00_780 = CAR(((obj_t) BgL_lz00_10));
							return
								BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_fz00_9,
								BgL_arg1088z00_780);
						}
					else
						{	/* Ieee/control.scm 111 */
							BGL_TAIL return
								BGl_loopze73ze7zz__r4_control_features_6_9z00(BgL_fz00_9,
								BgL_lz00_10);
						}
				}
		}

	}



/* loop~3 */
	obj_t BGl_loopze73ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1648,
		obj_t BgL_lz00_782)
	{
		{	/* Ieee/control.scm 114 */
			if (NULLP(CAR(((obj_t) BgL_lz00_782))))
				{	/* Ieee/control.scm 115 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 117 */
					obj_t BgL_arg1092z00_786;
					obj_t BgL_arg1096z00_787;

					BgL_arg1092z00_786 =
						apply(BgL_fz00_1648,
						BGl_mapzd22zd2zz__r4_control_features_6_9z00
						(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_lz00_782));
					BgL_arg1096z00_787 =
						BGl_loopze73ze7zz__r4_control_features_6_9z00(BgL_fz00_1648,
						BGl_mapzd22zd2zz__r4_control_features_6_9z00
						(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_lz00_782));
					return MAKE_YOUNG_PAIR(BgL_arg1092z00_786, BgL_arg1096z00_787);
				}
		}

	}



/* &map */
	obj_t BGl_z62mapz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1571,
		obj_t BgL_fz00_1572, obj_t BgL_lz00_1573)
	{
		{	/* Ieee/control.scm 107 */
			{	/* Ieee/control.scm 109 */
				obj_t BgL_auxz00_1800;

				if (PROCEDUREP(BgL_fz00_1572))
					{	/* Ieee/control.scm 109 */
						BgL_auxz00_1800 = BgL_fz00_1572;
					}
				else
					{
						obj_t BgL_auxz00_1803;

						BgL_auxz00_1803 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(4121L),
							BGl_string1647z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1572);
						FAILURE(BgL_auxz00_1803, BFALSE, BFALSE);
					}
				return
					BGl_mapz00zz__r4_control_features_6_9z00(BgL_auxz00_1800,
					BgL_lz00_1573);
			}
		}

	}



/* map! */
	BGL_EXPORTED_DEF obj_t BGl_mapz12z12zz__r4_control_features_6_9z00(obj_t
		BgL_fz00_13, obj_t BgL_lz00_14)
	{
		{	/* Ieee/control.scm 134 */
			if (NULLP(BgL_lz00_14))
				{	/* Ieee/control.scm 136 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 136 */
					if (NULLP(CDR(((obj_t) BgL_lz00_14))))
						{	/* Ieee/control.scm 139 */
							obj_t BgL_arg1120z00_803;

							BgL_arg1120z00_803 = CAR(((obj_t) BgL_lz00_14));
							{
								obj_t BgL_lz00_1334;

								BgL_lz00_1334 = BgL_arg1120z00_803;
							BgL_loopz00_1333:
								if (NULLP(BgL_lz00_1334))
									{	/* Ieee/control.scm 125 */
										return BgL_arg1120z00_803;
									}
								else
									{	/* Ieee/control.scm 125 */
										{	/* Ieee/control.scm 128 */
											obj_t BgL_arg1111z00_1336;

											{	/* Ieee/control.scm 128 */
												obj_t BgL_arg1115z00_1337;

												BgL_arg1115z00_1337 = CAR(((obj_t) BgL_lz00_1334));
												BgL_arg1111z00_1336 =
													BGL_PROCEDURE_CALL1(BgL_fz00_13, BgL_arg1115z00_1337);
											}
											{	/* Ieee/control.scm 128 */
												obj_t BgL_tmpz00_1824;

												BgL_tmpz00_1824 = ((obj_t) BgL_lz00_1334);
												SET_CAR(BgL_tmpz00_1824, BgL_arg1111z00_1336);
											}
										}
										{	/* Ieee/control.scm 129 */
											obj_t BgL_arg1116z00_1338;

											BgL_arg1116z00_1338 = CDR(((obj_t) BgL_lz00_1334));
											{
												obj_t BgL_lz00_1829;

												BgL_lz00_1829 = BgL_arg1116z00_1338;
												BgL_lz00_1334 = BgL_lz00_1829;
												goto BgL_loopz00_1333;
											}
										}
									}
							}
						}
					else
						{	/* Ieee/control.scm 141 */
							obj_t BgL_l0z00_804;

							BgL_l0z00_804 = CAR(((obj_t) BgL_lz00_14));
							{
								obj_t BgL_lz00_806;

								BgL_lz00_806 = BgL_lz00_14;
							BgL_zc3z04anonymousza31121ze3z87_807:
								if (NULLP(CAR(((obj_t) BgL_lz00_806))))
									{	/* Ieee/control.scm 143 */
										return BgL_l0z00_804;
									}
								else
									{	/* Ieee/control.scm 143 */
										{	/* Ieee/control.scm 146 */
											obj_t BgL_arg1129z00_810;
											obj_t BgL_arg1130z00_811;

											BgL_arg1129z00_810 = CAR(((obj_t) BgL_lz00_806));
											BgL_arg1130z00_811 =
												apply(BgL_fz00_13,
												BGl_mapzd22zd2zz__r4_control_features_6_9z00
												(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00,
													BgL_lz00_806));
											{	/* Ieee/control.scm 146 */
												obj_t BgL_tmpz00_1841;

												BgL_tmpz00_1841 = ((obj_t) BgL_arg1129z00_810);
												SET_CAR(BgL_tmpz00_1841, BgL_arg1130z00_811);
											}
										}
										{
											obj_t BgL_lz00_1844;

											BgL_lz00_1844 =
												BGl_mapzd22zd2zz__r4_control_features_6_9z00
												(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
												BgL_lz00_806);
											BgL_lz00_806 = BgL_lz00_1844;
											goto BgL_zc3z04anonymousza31121ze3z87_807;
										}
									}
							}
						}
				}
		}

	}



/* &map! */
	obj_t BGl_z62mapz12z70zz__r4_control_features_6_9z00(obj_t BgL_envz00_1578,
		obj_t BgL_fz00_1579, obj_t BgL_lz00_1580)
	{
		{	/* Ieee/control.scm 134 */
			{	/* Ieee/control.scm 136 */
				obj_t BgL_auxz00_1846;

				if (PROCEDUREP(BgL_fz00_1579))
					{	/* Ieee/control.scm 136 */
						BgL_auxz00_1846 = BgL_fz00_1579;
					}
				else
					{
						obj_t BgL_auxz00_1849;

						BgL_auxz00_1849 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(4952L),
							BGl_string1648z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1579);
						FAILURE(BgL_auxz00_1849, BFALSE, BFALSE);
					}
				return
					BGl_mapz12z12zz__r4_control_features_6_9z00(BgL_auxz00_1846,
					BgL_lz00_1580);
			}
		}

	}



/* append-map */
	BGL_EXPORTED_DEF obj_t BGl_appendzd2mapzd2zz__r4_control_features_6_9z00(obj_t
		BgL_fz00_17, obj_t BgL_lz00_18)
	{
		{	/* Ieee/control.scm 161 */
			if (NULLP(BgL_lz00_18))
				{	/* Ieee/control.scm 163 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 163 */
					if (NULLP(CDR(((obj_t) BgL_lz00_18))))
						{	/* Ieee/control.scm 166 */
							obj_t BgL_arg1149z00_828;

							BgL_arg1149z00_828 = CAR(((obj_t) BgL_lz00_18));
							BGL_TAIL return
								BGl_loopze72ze7zz__r4_control_features_6_9z00(BgL_fz00_17,
								BgL_arg1149z00_828);
						}
					else
						{	/* Ieee/control.scm 165 */
							BGL_TAIL return
								BGl_loopze71ze7zz__r4_control_features_6_9z00(BgL_fz00_17,
								BgL_lz00_18);
						}
				}
		}

	}



/* loop~1 */
	obj_t BGl_loopze71ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1646,
		obj_t BgL_lz00_830)
	{
		{	/* Ieee/control.scm 168 */
			if (NULLP(CAR(((obj_t) BgL_lz00_830))))
				{	/* Ieee/control.scm 169 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 171 */
					obj_t BgL_arg1155z00_834;
					obj_t BgL_arg1156z00_835;

					BgL_arg1155z00_834 =
						apply(BgL_fz00_1646,
						BGl_mapzd22zd2zz__r4_control_features_6_9z00
						(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_lz00_830));
					BgL_arg1156z00_835 =
						BGl_loopze71ze7zz__r4_control_features_6_9z00(BgL_fz00_1646,
						BGl_mapzd22zd2zz__r4_control_features_6_9z00
						(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_lz00_830));
					return
						BGl_appendzd221011zd2zz__r4_control_features_6_9z00
						(BgL_arg1155z00_834, BgL_arg1156z00_835);
				}
		}

	}



/* loop~2 */
	obj_t BGl_loopze72ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1647,
		obj_t BgL_lz00_1358)
	{
		{	/* Ieee/control.scm 153 */
			if (NULLP(BgL_lz00_1358))
				{	/* Ieee/control.scm 154 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 156 */
					obj_t BgL_arg1139z00_1360;
					obj_t BgL_arg1141z00_1361;

					{	/* Ieee/control.scm 156 */
						obj_t BgL_arg1142z00_1362;

						BgL_arg1142z00_1362 = CAR(((obj_t) BgL_lz00_1358));
						BgL_arg1139z00_1360 =
							BGL_PROCEDURE_CALL1(BgL_fz00_1647, BgL_arg1142z00_1362);
					}
					{	/* Ieee/control.scm 156 */
						obj_t BgL_arg1145z00_1363;

						BgL_arg1145z00_1363 = CDR(((obj_t) BgL_lz00_1358));
						BgL_arg1141z00_1361 =
							BGl_loopze72ze7zz__r4_control_features_6_9z00(BgL_fz00_1647,
							BgL_arg1145z00_1363);
					}
					return
						BGl_appendzd221011zd2zz__r4_control_features_6_9z00
						(BgL_arg1139z00_1360, BgL_arg1141z00_1361);
				}
		}

	}



/* &append-map */
	obj_t BGl_z62appendzd2mapzb0zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1581, obj_t BgL_fz00_1582, obj_t BgL_lz00_1583)
	{
		{	/* Ieee/control.scm 161 */
			{	/* Ieee/control.scm 163 */
				obj_t BgL_auxz00_1886;

				if (PROCEDUREP(BgL_fz00_1582))
					{	/* Ieee/control.scm 163 */
						BgL_auxz00_1886 = BgL_fz00_1582;
					}
				else
					{
						obj_t BgL_auxz00_1889;

						BgL_auxz00_1889 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(5814L),
							BGl_string1649z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1582);
						FAILURE(BgL_auxz00_1889, BFALSE, BFALSE);
					}
				return
					BGl_appendzd2mapzd2zz__r4_control_features_6_9z00(BgL_auxz00_1886,
					BgL_lz00_1583);
			}
		}

	}



/* append-map2! */
	obj_t BGl_appendzd2map2z12zc0zz__r4_control_features_6_9z00(obj_t BgL_fz00_19,
		obj_t BgL_lz00_20)
	{
		{	/* Ieee/control.scm 176 */
			if (NULLP(BgL_lz00_20))
				{	/* Ieee/control.scm 177 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 179 */
					obj_t BgL_resultz00_841;

					{	/* Ieee/control.scm 179 */
						obj_t BgL_list1168z00_852;

						BgL_list1168z00_852 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
						BgL_resultz00_841 = BgL_list1168z00_852;
					}
					{	/* Ieee/control.scm 179 */
						obj_t BgL_lpairz00_842;

						BgL_lpairz00_842 = BgL_resultz00_841;
						{	/* Ieee/control.scm 180 */

							{
								obj_t BgL_l1028z00_844;

								BgL_l1028z00_844 = BgL_lz00_20;
							BgL_zc3z04anonymousza31162ze3z87_845:
								if (PAIRP(BgL_l1028z00_844))
									{	/* Ieee/control.scm 181 */
										{	/* Ieee/control.scm 182 */
											obj_t BgL_xz00_847;

											BgL_xz00_847 = CAR(BgL_l1028z00_844);
											{	/* Ieee/control.scm 182 */
												obj_t BgL_result2z00_848;

												BgL_result2z00_848 =
													BGL_PROCEDURE_CALL1(BgL_fz00_19, BgL_xz00_847);
												if (PAIRP(BgL_result2z00_848))
													{	/* Ieee/control.scm 183 */
														SET_CDR(BgL_lpairz00_842, BgL_result2z00_848);
														BgL_lpairz00_842 =
															BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
															(BgL_result2z00_848);
													}
												else
													{	/* Ieee/control.scm 183 */
														BFALSE;
													}
											}
										}
										{
											obj_t BgL_l1028z00_1908;

											BgL_l1028z00_1908 = CDR(BgL_l1028z00_844);
											BgL_l1028z00_844 = BgL_l1028z00_1908;
											goto BgL_zc3z04anonymousza31162ze3z87_845;
										}
									}
								else
									{	/* Ieee/control.scm 181 */
										((bool_t) 1);
									}
							}
							return CDR(((obj_t) BgL_resultz00_841));
						}
					}
				}
		}

	}



/* append-map! */
	BGL_EXPORTED_DEF obj_t
		BGl_appendzd2mapz12zc0zz__r4_control_features_6_9z00(obj_t BgL_fz00_21,
		obj_t BgL_lz00_22)
	{
		{	/* Ieee/control.scm 192 */
			if (NULLP(BgL_lz00_22))
				{	/* Ieee/control.scm 194 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 194 */
					if (NULLP(CDR(((obj_t) BgL_lz00_22))))
						{	/* Ieee/control.scm 197 */
							obj_t BgL_arg1187z00_856;

							BgL_arg1187z00_856 = CAR(((obj_t) BgL_lz00_22));
							BGL_TAIL return
								BGl_appendzd2map2z12zc0zz__r4_control_features_6_9z00
								(BgL_fz00_21, BgL_arg1187z00_856);
						}
					else
						{	/* Ieee/control.scm 196 */
							if (NULLP(CAR(((obj_t) BgL_lz00_22))))
								{	/* Ieee/control.scm 199 */
									return BNIL;
								}
							else
								{	/* Ieee/control.scm 201 */
									obj_t BgL_resultz00_859;

									{	/* Ieee/control.scm 201 */
										obj_t BgL_list1198z00_870;

										BgL_list1198z00_870 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
										BgL_resultz00_859 = BgL_list1198z00_870;
									}
									{	/* Ieee/control.scm 201 */
										obj_t BgL_lpairz00_1593;

										BgL_lpairz00_1593 = BGL_MAKE_UNSAFE_CELL(BgL_resultz00_859);
										{	/* Ieee/control.scm 202 */

											{	/* Ieee/control.scm 203 */
												obj_t BgL_runner1197z00_869;

												{	/* Ieee/control.scm 204 */
													obj_t BgL_zc3z04anonymousza31194ze3z87_1584;

													BgL_zc3z04anonymousza31194ze3z87_1584 =
														MAKE_VA_PROCEDURE
														(BGl_z62zc3z04anonymousza31194ze3ze5zz__r4_control_features_6_9z00,
														(int) ((-1L)), (int) (2L));
													PROCEDURE_SET(BgL_zc3z04anonymousza31194ze3z87_1584,
														(int) (0L), BgL_fz00_21);
													PROCEDURE_SET(BgL_zc3z04anonymousza31194ze3z87_1584,
														(int) (1L), ((obj_t) BgL_lpairz00_1593));
													{	/* Ieee/control.scm 203 */
														obj_t BgL_list1193z00_862;

														BgL_list1193z00_862 =
															MAKE_YOUNG_PAIR(BgL_lz00_22, BNIL);
														BgL_runner1197z00_869 =
															BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
															(BgL_zc3z04anonymousza31194ze3z87_1584,
															BgL_list1193z00_862);
												}}
												{	/* Ieee/control.scm 203 */
													obj_t BgL_aux1196z00_868;

													BgL_aux1196z00_868 = CAR(BgL_runner1197z00_869);
													BgL_runner1197z00_869 = CDR(BgL_runner1197z00_869);
													BGl_forzd2eachzd2zz__r4_control_features_6_9z00
														(BgL_aux1196z00_868, BgL_runner1197z00_869);
											}}
											return CDR(((obj_t) BgL_resultz00_859));
										}
									}
								}
						}
				}
		}

	}



/* &append-map! */
	obj_t BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1585, obj_t BgL_fz00_1586, obj_t BgL_lz00_1587)
	{
		{	/* Ieee/control.scm 192 */
			{	/* Ieee/control.scm 194 */
				obj_t BgL_auxz00_1941;

				if (PROCEDUREP(BgL_fz00_1586))
					{	/* Ieee/control.scm 194 */
						BgL_auxz00_1941 = BgL_fz00_1586;
					}
				else
					{
						obj_t BgL_auxz00_1944;

						BgL_auxz00_1944 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(6818L),
							BGl_string1650z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1586);
						FAILURE(BgL_auxz00_1944, BFALSE, BFALSE);
					}
				return
					BGl_appendzd2mapz12zc0zz__r4_control_features_6_9z00(BgL_auxz00_1941,
					BgL_lz00_1587);
			}
		}

	}



/* &<@anonymous:1194> */
	obj_t BGl_z62zc3z04anonymousza31194ze3ze5zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1588, obj_t BgL_xsz00_1591)
	{
		{	/* Ieee/control.scm 203 */
			{	/* Ieee/control.scm 204 */
				obj_t BgL_fz00_1589;
				obj_t BgL_lpairz00_1590;

				BgL_fz00_1589 = ((obj_t) PROCEDURE_REF(BgL_envz00_1588, (int) (0L)));
				BgL_lpairz00_1590 = PROCEDURE_REF(BgL_envz00_1588, (int) (1L));
				{	/* Ieee/control.scm 204 */
					obj_t BgL_result2z00_1691;

					BgL_result2z00_1691 = apply(BgL_fz00_1589, BgL_xsz00_1591);
					if (PAIRP(BgL_result2z00_1691))
						{	/* Ieee/control.scm 205 */
							{	/* Ieee/control.scm 206 */
								obj_t BgL_pairz00_1692;

								BgL_pairz00_1692 = BGL_UNSAFE_CELL_REF(BgL_lpairz00_1590);
								SET_CDR(BgL_pairz00_1692, BgL_result2z00_1691);
							}
							{	/* Ieee/control.scm 207 */
								obj_t BgL_auxz00_1693;

								BgL_auxz00_1693 =
									BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
									(BgL_result2z00_1691);
								return BGL_UNSAFE_CELL_SET(BgL_lpairz00_1590, BgL_auxz00_1693);
							}
						}
					else
						{	/* Ieee/control.scm 205 */
							return BFALSE;
						}
				}
			}
		}

	}



/* filter-map-2 */
	obj_t BGl_filterzd2mapzd22z00zz__r4_control_features_6_9z00(obj_t BgL_fz00_23,
		obj_t BgL_lz00_24)
	{
		{	/* Ieee/control.scm 214 */
			{
				obj_t BgL_lz00_875;
				obj_t BgL_resz00_876;

				BgL_lz00_875 = BgL_lz00_24;
				BgL_resz00_876 = BNIL;
			BgL_zc3z04anonymousza31203ze3z87_877:
				if (NULLP(BgL_lz00_875))
					{	/* Ieee/control.scm 217 */
						return bgl_reverse_bang(BgL_resz00_876);
					}
				else
					{	/* Ieee/control.scm 219 */
						obj_t BgL_hdz00_879;

						{	/* Ieee/control.scm 219 */
							obj_t BgL_arg1211z00_883;

							BgL_arg1211z00_883 = CAR(((obj_t) BgL_lz00_875));
							BgL_hdz00_879 =
								BGL_PROCEDURE_CALL1(BgL_fz00_23, BgL_arg1211z00_883);
						}
						if (CBOOL(BgL_hdz00_879))
							{	/* Ieee/control.scm 221 */
								obj_t BgL_arg1206z00_880;
								obj_t BgL_arg1207z00_881;

								BgL_arg1206z00_880 = CDR(((obj_t) BgL_lz00_875));
								BgL_arg1207z00_881 =
									MAKE_YOUNG_PAIR(BgL_hdz00_879, BgL_resz00_876);
								{
									obj_t BgL_resz00_1975;
									obj_t BgL_lz00_1974;

									BgL_lz00_1974 = BgL_arg1206z00_880;
									BgL_resz00_1975 = BgL_arg1207z00_881;
									BgL_resz00_876 = BgL_resz00_1975;
									BgL_lz00_875 = BgL_lz00_1974;
									goto BgL_zc3z04anonymousza31203ze3z87_877;
								}
							}
						else
							{	/* Ieee/control.scm 222 */
								obj_t BgL_arg1208z00_882;

								BgL_arg1208z00_882 = CDR(((obj_t) BgL_lz00_875));
								{
									obj_t BgL_lz00_1978;

									BgL_lz00_1978 = BgL_arg1208z00_882;
									BgL_lz00_875 = BgL_lz00_1978;
									goto BgL_zc3z04anonymousza31203ze3z87_877;
								}
							}
					}
			}
		}

	}



/* filter-map */
	BGL_EXPORTED_DEF obj_t BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(obj_t
		BgL_fz00_25, obj_t BgL_lz00_26)
	{
		{	/* Ieee/control.scm 227 */
			if (NULLP(BgL_lz00_26))
				{	/* Ieee/control.scm 229 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 229 */
					if (NULLP(CDR(((obj_t) BgL_lz00_26))))
						{	/* Ieee/control.scm 232 */
							obj_t BgL_arg1215z00_888;

							BgL_arg1215z00_888 = CAR(((obj_t) BgL_lz00_26));
							BGL_TAIL return
								BGl_filterzd2mapzd22z00zz__r4_control_features_6_9z00
								(BgL_fz00_25, BgL_arg1215z00_888);
						}
					else
						{	/* Ieee/control.scm 231 */
							BGL_TAIL return
								BGl_loopze70ze7zz__r4_control_features_6_9z00(BgL_fz00_25,
								BgL_lz00_26);
						}
				}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1645,
		obj_t BgL_lz00_890)
	{
		{	/* Ieee/control.scm 234 */
		BGl_loopze70ze7zz__r4_control_features_6_9z00:
			if (NULLP(CAR(((obj_t) BgL_lz00_890))))
				{	/* Ieee/control.scm 235 */
					return BNIL;
				}
			else
				{	/* Ieee/control.scm 237 */
					obj_t BgL_hdz00_894;

					BgL_hdz00_894 =
						apply(BgL_fz00_1645,
						BGl_mapzd22zd2zz__r4_control_features_6_9z00
						(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_lz00_890));
					if (CBOOL(BgL_hdz00_894))
						{	/* Ieee/control.scm 238 */
							return
								MAKE_YOUNG_PAIR(BgL_hdz00_894,
								BGl_loopze70ze7zz__r4_control_features_6_9z00(BgL_fz00_1645,
									BGl_mapzd22zd2zz__r4_control_features_6_9z00
									(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
										BgL_lz00_890)));
						}
					else
						{
							obj_t BgL_lz00_2001;

							BgL_lz00_2001 =
								BGl_mapzd22zd2zz__r4_control_features_6_9z00
								(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_lz00_890);
							BgL_lz00_890 = BgL_lz00_2001;
							goto BGl_loopze70ze7zz__r4_control_features_6_9z00;
						}
				}
		}

	}



/* &filter-map */
	obj_t BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1595, obj_t BgL_fz00_1596, obj_t BgL_lz00_1597)
	{
		{	/* Ieee/control.scm 227 */
			{	/* Ieee/control.scm 229 */
				obj_t BgL_auxz00_2003;

				if (PROCEDUREP(BgL_fz00_1596))
					{	/* Ieee/control.scm 229 */
						BgL_auxz00_2003 = BgL_fz00_1596;
					}
				else
					{
						obj_t BgL_auxz00_2006;

						BgL_auxz00_2006 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(7913L),
							BGl_string1651z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1596);
						FAILURE(BgL_auxz00_2006, BFALSE, BFALSE);
					}
				return
					BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(BgL_auxz00_2003,
					BgL_lz00_1597);
			}
		}

	}



/* for-each-2 */
	BGL_EXPORTED_DEF obj_t
		BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(obj_t BgL_fz00_27,
		obj_t BgL_lz00_28)
	{
		{	/* Ieee/control.scm 245 */
			{
				obj_t BgL_lz00_1404;

				BgL_lz00_1404 = BgL_lz00_28;
			BgL_loopz00_1403:
				if (NULLP(BgL_lz00_1404))
					{	/* Ieee/control.scm 247 */
						return BUNSPEC;
					}
				else
					{	/* Ieee/control.scm 247 */
						{	/* Ieee/control.scm 250 */
							obj_t BgL_arg1234z00_1409;

							BgL_arg1234z00_1409 = CAR(((obj_t) BgL_lz00_1404));
							BGL_PROCEDURE_CALL1(BgL_fz00_27, BgL_arg1234z00_1409);
						}
						{	/* Ieee/control.scm 251 */
							obj_t BgL_arg1235z00_1410;

							BgL_arg1235z00_1410 = CDR(((obj_t) BgL_lz00_1404));
							{
								obj_t BgL_lz00_2021;

								BgL_lz00_2021 = BgL_arg1235z00_1410;
								BgL_lz00_1404 = BgL_lz00_2021;
								goto BgL_loopz00_1403;
							}
						}
					}
			}
		}

	}



/* &for-each-2 */
	obj_t BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1598, obj_t BgL_fz00_1599, obj_t BgL_lz00_1600)
	{
		{	/* Ieee/control.scm 245 */
			{	/* Ieee/control.scm 246 */
				obj_t BgL_auxz00_2029;
				obj_t BgL_auxz00_2022;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_1600))
					{	/* Ieee/control.scm 246 */
						BgL_auxz00_2029 = BgL_lz00_1600;
					}
				else
					{
						obj_t BgL_auxz00_2032;

						BgL_auxz00_2032 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(8440L),
							BGl_string1652z00zz__r4_control_features_6_9z00,
							BGl_string1646z00zz__r4_control_features_6_9z00, BgL_lz00_1600);
						FAILURE(BgL_auxz00_2032, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_fz00_1599))
					{	/* Ieee/control.scm 246 */
						BgL_auxz00_2022 = BgL_fz00_1599;
					}
				else
					{
						obj_t BgL_auxz00_2025;

						BgL_auxz00_2025 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(8440L),
							BGl_string1652z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1599);
						FAILURE(BgL_auxz00_2025, BFALSE, BFALSE);
					}
				return
					BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(BgL_auxz00_2022,
					BgL_auxz00_2029);
			}
		}

	}



/* for-each */
	BGL_EXPORTED_DEF obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t
		BgL_fz00_29, obj_t BgL_lz00_30)
	{
		{	/* Ieee/control.scm 256 */
			if (NULLP(BgL_lz00_30))
				{	/* Ieee/control.scm 258 */
					return BUNSPEC;
				}
			else
				{	/* Ieee/control.scm 258 */
					if (NULLP(CDR(((obj_t) BgL_lz00_30))))
						{	/* Ieee/control.scm 261 */
							obj_t BgL_arg1241z00_911;

							BgL_arg1241z00_911 = CAR(((obj_t) BgL_lz00_30));
							{
								obj_t BgL_lz00_1418;

								BgL_lz00_1418 = ((obj_t) BgL_arg1241z00_911);
							BgL_loopz00_1417:
								if (NULLP(BgL_lz00_1418))
									{	/* Ieee/control.scm 247 */
										return BUNSPEC;
									}
								else
									{	/* Ieee/control.scm 247 */
										{	/* Ieee/control.scm 250 */
											obj_t BgL_arg1234z00_1423;

											BgL_arg1234z00_1423 = CAR(((obj_t) BgL_lz00_1418));
											BGL_PROCEDURE_CALL1(BgL_fz00_29, BgL_arg1234z00_1423);
										}
										{	/* Ieee/control.scm 251 */
											obj_t BgL_arg1235z00_1424;

											BgL_arg1235z00_1424 = CDR(((obj_t) BgL_lz00_1418));
											{
												obj_t BgL_lz00_2055;

												BgL_lz00_2055 = BgL_arg1235z00_1424;
												BgL_lz00_1418 = BgL_lz00_2055;
												goto BgL_loopz00_1417;
											}
										}
									}
							}
						}
					else
						{
							obj_t BgL_lz00_913;

							BgL_lz00_913 = BgL_lz00_30;
						BgL_zc3z04anonymousza31242ze3z87_914:
							if (NULLP(CAR(((obj_t) BgL_lz00_913))))
								{	/* Ieee/control.scm 264 */
									return BUNSPEC;
								}
							else
								{	/* Ieee/control.scm 264 */
									apply(BgL_fz00_29,
										BGl_mapzd22zd2zz__r4_control_features_6_9z00
										(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00,
											BgL_lz00_913));
									{
										obj_t BgL_lz00_2064;

										BgL_lz00_2064 =
											BGl_mapzd22zd2zz__r4_control_features_6_9z00
											(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00,
											BgL_lz00_913);
										BgL_lz00_913 = BgL_lz00_2064;
										goto BgL_zc3z04anonymousza31242ze3z87_914;
									}
								}
						}
				}
		}

	}



/* &for-each */
	obj_t BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1601, obj_t BgL_fz00_1602, obj_t BgL_lz00_1603)
	{
		{	/* Ieee/control.scm 256 */
			{	/* Ieee/control.scm 258 */
				obj_t BgL_auxz00_2066;

				if (PROCEDUREP(BgL_fz00_1602))
					{	/* Ieee/control.scm 258 */
						BgL_auxz00_2066 = BgL_fz00_1602;
					}
				else
					{
						obj_t BgL_auxz00_2069;

						BgL_auxz00_2069 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(8810L),
							BGl_string1653z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00, BgL_fz00_1602);
						FAILURE(BgL_auxz00_2069, BFALSE, BFALSE);
					}
				return
					BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BgL_auxz00_2066,
					BgL_lz00_1603);
			}
		}

	}



/* filter */
	BGL_EXPORTED_DEF obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t
		BgL_predz00_31, obj_t BgL_lz00_32)
	{
		{	/* Ieee/control.scm 273 */
			{	/* Ieee/control.scm 274 */
				obj_t BgL_hookz00_921;

				BgL_hookz00_921 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
				{
					obj_t BgL_lz00_923;
					obj_t BgL_hz00_924;

					BgL_lz00_923 = BgL_lz00_32;
					BgL_hz00_924 = BgL_hookz00_921;
				BgL_zc3z04anonymousza31255ze3z87_925:
					if (NULLP(BgL_lz00_923))
						{	/* Ieee/control.scm 278 */
							return CDR(BgL_hookz00_921);
						}
					else
						{	/* Ieee/control.scm 280 */
							bool_t BgL_test1744z00_2078;

							{	/* Ieee/control.scm 280 */
								obj_t BgL_arg1265z00_933;

								BgL_arg1265z00_933 = CAR(((obj_t) BgL_lz00_923));
								BgL_test1744z00_2078 =
									CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_31,
										BgL_arg1265z00_933));
							}
							if (BgL_test1744z00_2078)
								{	/* Ieee/control.scm 281 */
									obj_t BgL_nhz00_929;

									{	/* Ieee/control.scm 281 */
										obj_t BgL_arg1262z00_931;

										BgL_arg1262z00_931 = CAR(((obj_t) BgL_lz00_923));
										BgL_nhz00_929 = MAKE_YOUNG_PAIR(BgL_arg1262z00_931, BNIL);
									}
									SET_CDR(BgL_hz00_924, BgL_nhz00_929);
									{	/* Ieee/control.scm 283 */
										obj_t BgL_arg1261z00_930;

										BgL_arg1261z00_930 = CDR(((obj_t) BgL_lz00_923));
										{
											obj_t BgL_hz00_2093;
											obj_t BgL_lz00_2092;

											BgL_lz00_2092 = BgL_arg1261z00_930;
											BgL_hz00_2093 = BgL_nhz00_929;
											BgL_hz00_924 = BgL_hz00_2093;
											BgL_lz00_923 = BgL_lz00_2092;
											goto BgL_zc3z04anonymousza31255ze3z87_925;
										}
									}
								}
							else
								{	/* Ieee/control.scm 285 */
									obj_t BgL_arg1263z00_932;

									BgL_arg1263z00_932 = CDR(((obj_t) BgL_lz00_923));
									{
										obj_t BgL_lz00_2096;

										BgL_lz00_2096 = BgL_arg1263z00_932;
										BgL_lz00_923 = BgL_lz00_2096;
										goto BgL_zc3z04anonymousza31255ze3z87_925;
									}
								}
						}
				}
			}
		}

	}



/* &filter */
	obj_t BGl_z62filterz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1604,
		obj_t BgL_predz00_1605, obj_t BgL_lz00_1606)
	{
		{	/* Ieee/control.scm 273 */
			{	/* Ieee/control.scm 274 */
				obj_t BgL_auxz00_2104;
				obj_t BgL_auxz00_2097;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lz00_1606))
					{	/* Ieee/control.scm 274 */
						BgL_auxz00_2104 = BgL_lz00_1606;
					}
				else
					{
						obj_t BgL_auxz00_2107;

						BgL_auxz00_2107 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(9297L),
							BGl_string1654z00zz__r4_control_features_6_9z00,
							BGl_string1646z00zz__r4_control_features_6_9z00, BgL_lz00_1606);
						FAILURE(BgL_auxz00_2107, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_predz00_1605))
					{	/* Ieee/control.scm 274 */
						BgL_auxz00_2097 = BgL_predz00_1605;
					}
				else
					{
						obj_t BgL_auxz00_2100;

						BgL_auxz00_2100 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(9297L),
							BGl_string1654z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_predz00_1605);
						FAILURE(BgL_auxz00_2100, BFALSE, BFALSE);
					}
				return
					BGl_filterz00zz__r4_control_features_6_9z00(BgL_auxz00_2097,
					BgL_auxz00_2104);
			}
		}

	}



/* filter! */
	BGL_EXPORTED_DEF obj_t BGl_filterz12z12zz__r4_control_features_6_9z00(obj_t
		BgL_predz00_33, obj_t BgL_lisz00_34)
	{
		{	/* Ieee/control.scm 290 */
			{
				obj_t BgL_ansz00_936;

				BgL_ansz00_936 = BgL_lisz00_34;
			BgL_zc3z04anonymousza31266ze3z87_937:
				if (NULLP(BgL_ansz00_936))
					{	/* Ieee/control.scm 293 */
						return BgL_ansz00_936;
					}
				else
					{	/* Ieee/control.scm 295 */
						bool_t BgL_test1748z00_2114;

						{	/* Ieee/control.scm 295 */
							obj_t BgL_arg1293z00_969;

							BgL_arg1293z00_969 = CAR(((obj_t) BgL_ansz00_936));
							BgL_test1748z00_2114 =
								CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_33, BgL_arg1293z00_969));
						}
						if (BgL_test1748z00_2114)
							{
								obj_t BgL_prevz00_953;
								obj_t BgL_lisz00_954;

								{	/* Ieee/control.scm 312 */
									obj_t BgL_arg1271z00_943;

									BgL_arg1271z00_943 = CDR(((obj_t) BgL_ansz00_936));
									{
										obj_t BgL_prevz00_1474;
										obj_t BgL_lisz00_1475;

										BgL_prevz00_1474 = BgL_ansz00_936;
										BgL_lisz00_1475 = BgL_arg1271z00_943;
									BgL_scanzd2inzd2_1473:
										if (PAIRP(BgL_lisz00_1475))
											{	/* Ieee/control.scm 300 */
												bool_t BgL_test1750z00_2126;

												{	/* Ieee/control.scm 300 */
													obj_t BgL_arg1279z00_1483;

													BgL_arg1279z00_1483 = CAR(BgL_lisz00_1475);
													BgL_test1750z00_2126 =
														CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_33,
															BgL_arg1279z00_1483));
												}
												if (BgL_test1750z00_2126)
													{
														obj_t BgL_lisz00_2134;
														obj_t BgL_prevz00_2133;

														BgL_prevz00_2133 = BgL_lisz00_1475;
														BgL_lisz00_2134 = CDR(BgL_lisz00_1475);
														BgL_lisz00_1475 = BgL_lisz00_2134;
														BgL_prevz00_1474 = BgL_prevz00_2133;
														goto BgL_scanzd2inzd2_1473;
													}
												else
													{	/* Ieee/control.scm 300 */
														BgL_prevz00_953 = BgL_prevz00_1474;
														BgL_lisz00_954 = CDR(BgL_lisz00_1475);
													BgL_zc3z04anonymousza31280ze3z87_955:
														{
															obj_t BgL_lisz00_957;

															BgL_lisz00_957 = BgL_lisz00_954;
														BgL_zc3z04anonymousza31281ze3z87_958:
															if (PAIRP(BgL_lisz00_957))
																{	/* Ieee/control.scm 306 */
																	bool_t BgL_test1752z00_2138;

																	{	/* Ieee/control.scm 306 */
																		obj_t BgL_arg1291z00_964;

																		BgL_arg1291z00_964 = CAR(BgL_lisz00_957);
																		BgL_test1752z00_2138 =
																			CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_33,
																				BgL_arg1291z00_964));
																	}
																	if (BgL_test1752z00_2138)
																		{	/* Ieee/control.scm 306 */
																			{	/* Ieee/control.scm 308 */
																				obj_t BgL_tmpz00_2145;

																				BgL_tmpz00_2145 =
																					((obj_t) BgL_prevz00_953);
																				SET_CDR(BgL_tmpz00_2145,
																					BgL_lisz00_957);
																			}
																			{	/* Ieee/control.scm 309 */
																				obj_t BgL_arg1285z00_962;

																				BgL_arg1285z00_962 =
																					CDR(BgL_lisz00_957);
																				{
																					obj_t BgL_prevz00_1455;
																					obj_t BgL_lisz00_1456;

																					BgL_prevz00_1455 = BgL_lisz00_957;
																					BgL_lisz00_1456 = BgL_arg1285z00_962;
																				BgL_scanzd2inzd2_1454:
																					if (PAIRP(BgL_lisz00_1456))
																						{	/* Ieee/control.scm 300 */
																							bool_t BgL_test1754z00_2151;

																							{	/* Ieee/control.scm 300 */
																								obj_t BgL_arg1279z00_1464;

																								BgL_arg1279z00_1464 =
																									CAR(BgL_lisz00_1456);
																								BgL_test1754z00_2151 =
																									CBOOL(BGL_PROCEDURE_CALL1
																									(BgL_predz00_33,
																										BgL_arg1279z00_1464));
																							}
																							if (BgL_test1754z00_2151)
																								{
																									obj_t BgL_lisz00_2159;
																									obj_t BgL_prevz00_2158;

																									BgL_prevz00_2158 =
																										BgL_lisz00_1456;
																									BgL_lisz00_2159 =
																										CDR(BgL_lisz00_1456);
																									BgL_lisz00_1456 =
																										BgL_lisz00_2159;
																									BgL_prevz00_1455 =
																										BgL_prevz00_2158;
																									goto BgL_scanzd2inzd2_1454;
																								}
																							else
																								{
																									obj_t BgL_lisz00_2162;
																									obj_t BgL_prevz00_2161;

																									BgL_prevz00_2161 =
																										BgL_prevz00_1455;
																									BgL_lisz00_2162 =
																										CDR(BgL_lisz00_1456);
																									BgL_lisz00_954 =
																										BgL_lisz00_2162;
																									BgL_prevz00_953 =
																										BgL_prevz00_2161;
																									goto
																										BgL_zc3z04anonymousza31280ze3z87_955;
																								}
																						}
																					else
																						{	/* Ieee/control.scm 299 */
																							BFALSE;
																						}
																				}
																			}
																		}
																	else
																		{
																			obj_t BgL_lisz00_2164;

																			BgL_lisz00_2164 = CDR(BgL_lisz00_957);
																			BgL_lisz00_957 = BgL_lisz00_2164;
																			goto BgL_zc3z04anonymousza31281ze3z87_958;
																		}
																}
															else
																{	/* Ieee/control.scm 311 */
																	obj_t BgL_tmpz00_2166;

																	BgL_tmpz00_2166 = ((obj_t) BgL_prevz00_953);
																	SET_CDR(BgL_tmpz00_2166, BgL_lisz00_957);
																}
														}
													}
											}
										else
											{	/* Ieee/control.scm 299 */
												BFALSE;
											}
									}
								}
								return BgL_ansz00_936;
							}
						else
							{	/* Ieee/control.scm 296 */
								obj_t BgL_arg1292z00_968;

								BgL_arg1292z00_968 = CDR(((obj_t) BgL_ansz00_936));
								{
									obj_t BgL_ansz00_2172;

									BgL_ansz00_2172 = BgL_arg1292z00_968;
									BgL_ansz00_936 = BgL_ansz00_2172;
									goto BgL_zc3z04anonymousza31266ze3z87_937;
								}
							}
					}
			}
		}

	}



/* &filter! */
	obj_t BGl_z62filterz12z70zz__r4_control_features_6_9z00(obj_t BgL_envz00_1607,
		obj_t BgL_predz00_1608, obj_t BgL_lisz00_1609)
	{
		{	/* Ieee/control.scm 290 */
			{	/* Ieee/control.scm 293 */
				obj_t BgL_auxz00_2180;
				obj_t BgL_auxz00_2173;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_lisz00_1609))
					{	/* Ieee/control.scm 293 */
						BgL_auxz00_2180 = BgL_lisz00_1609;
					}
				else
					{
						obj_t BgL_auxz00_2183;

						BgL_auxz00_2183 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(9827L),
							BGl_string1655z00zz__r4_control_features_6_9z00,
							BGl_string1646z00zz__r4_control_features_6_9z00, BgL_lisz00_1609);
						FAILURE(BgL_auxz00_2183, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_predz00_1608))
					{	/* Ieee/control.scm 293 */
						BgL_auxz00_2173 = BgL_predz00_1608;
					}
				else
					{
						obj_t BgL_auxz00_2176;

						BgL_auxz00_2176 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(9827L),
							BGl_string1655z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_predz00_1608);
						FAILURE(BgL_auxz00_2176, BFALSE, BFALSE);
					}
				return
					BGl_filterz12z12zz__r4_control_features_6_9z00(BgL_auxz00_2173,
					BgL_auxz00_2180);
			}
		}

	}



/* force */
	BGL_EXPORTED_DEF obj_t BGl_forcez00zz__r4_control_features_6_9z00(obj_t
		BgL_promisez00_35)
	{
		{	/* Ieee/control.scm 318 */
			return BGL_PROCEDURE_CALL0(BgL_promisez00_35);
		}

	}



/* &force */
	obj_t BGl_z62forcez62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1610,
		obj_t BgL_promisez00_1611)
	{
		{	/* Ieee/control.scm 318 */
			return BGl_forcez00zz__r4_control_features_6_9z00(BgL_promisez00_1611);
		}

	}



/* make-promise */
	BGL_EXPORTED_DEF obj_t
		BGl_makezd2promisezd2zz__r4_control_features_6_9z00(obj_t BgL_procz00_36)
	{
		{	/* Ieee/control.scm 324 */
			{	/* Ieee/control.scm 325 */
				obj_t BgL_resultzd2readyzf3z21_1621;
				obj_t BgL_resultz00_1622;

				BgL_resultzd2readyzf3z21_1621 = BGL_MAKE_UNSAFE_CELL(BFALSE);
				BgL_resultz00_1622 = BGL_MAKE_UNSAFE_CELL(BFALSE);
				{	/* Ieee/control.scm 327 */
					obj_t BgL_zc3z04anonymousza31294ze3z87_1612;

					BgL_zc3z04anonymousza31294ze3z87_1612 =
						MAKE_FX_PROCEDURE
						(BGl_z62zc3z04anonymousza31294ze3ze5zz__r4_control_features_6_9z00,
						(int) (0L), (int) (3L));
					PROCEDURE_SET(BgL_zc3z04anonymousza31294ze3z87_1612, (int) (0L),
						BgL_procz00_36);
					PROCEDURE_SET(BgL_zc3z04anonymousza31294ze3z87_1612, (int) (1L),
						((obj_t) BgL_resultzd2readyzf3z21_1621));
					PROCEDURE_SET(BgL_zc3z04anonymousza31294ze3z87_1612, (int) (2L),
						((obj_t) BgL_resultz00_1622));
					return BgL_zc3z04anonymousza31294ze3z87_1612;
				}
			}
		}

	}



/* &make-promise */
	obj_t BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1613, obj_t BgL_procz00_1614)
	{
		{	/* Ieee/control.scm 324 */
			{	/* Ieee/control.scm 325 */
				obj_t BgL_auxz00_2203;

				if (PROCEDUREP(BgL_procz00_1614))
					{	/* Ieee/control.scm 325 */
						BgL_auxz00_2203 = BgL_procz00_1614;
					}
				else
					{
						obj_t BgL_auxz00_2206;

						BgL_auxz00_2206 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(10893L),
							BGl_string1656z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_procz00_1614);
						FAILURE(BgL_auxz00_2206, BFALSE, BFALSE);
					}
				return
					BGl_makezd2promisezd2zz__r4_control_features_6_9z00(BgL_auxz00_2203);
			}
		}

	}



/* &<@anonymous:1294> */
	obj_t BGl_z62zc3z04anonymousza31294ze3ze5zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1615)
	{
		{	/* Ieee/control.scm 327 */
			{	/* Ieee/control.scm 328 */
				obj_t BgL_procz00_1616;
				obj_t BgL_resultzd2readyzf3z21_1617;
				obj_t BgL_resultz00_1618;

				BgL_procz00_1616 = ((obj_t) PROCEDURE_REF(BgL_envz00_1615, (int) (0L)));
				BgL_resultzd2readyzf3z21_1617 =
					PROCEDURE_REF(BgL_envz00_1615, (int) (1L));
				BgL_resultz00_1618 = PROCEDURE_REF(BgL_envz00_1615, (int) (2L));
				if (CBOOL(BGL_UNSAFE_CELL_REF(BgL_resultzd2readyzf3z21_1617)))
					{	/* Ieee/control.scm 328 */
						return BGL_UNSAFE_CELL_REF(BgL_resultz00_1618);
					}
				else
					{	/* Ieee/control.scm 330 */
						obj_t BgL_xz00_1694;

						BgL_xz00_1694 = BGL_PROCEDURE_CALL0(BgL_procz00_1616);
						if (CBOOL(BGL_UNSAFE_CELL_REF(BgL_resultzd2readyzf3z21_1617)))
							{	/* Ieee/control.scm 331 */
								return BGL_UNSAFE_CELL_REF(BgL_resultz00_1618);
							}
						else
							{	/* Ieee/control.scm 331 */
								{	/* Ieee/control.scm 334 */
									obj_t BgL_auxz00_1695;

									BgL_auxz00_1695 = BTRUE;
									BGL_UNSAFE_CELL_SET(BgL_resultzd2readyzf3z21_1617,
										BgL_auxz00_1695);
								}
								BGL_UNSAFE_CELL_SET(BgL_resultz00_1618, BgL_xz00_1694);
								return BGL_UNSAFE_CELL_REF(BgL_resultz00_1618);
							}
					}
			}
		}

	}



/* call/cc */
	BGL_EXPORTED_DEF obj_t BGl_callzf2cczf2zz__r4_control_features_6_9z00(obj_t
		BgL_procz00_37)
	{
		{	/* Ieee/control.scm 341 */
			{	/* Ieee/control.scm 343 */
				obj_t BgL_zc3z04anonymousza31296ze3z87_1626;

				BgL_zc3z04anonymousza31296ze3z87_1626 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza31296ze3ze5zz__r4_control_features_6_9z00,
					(int) (1L), (int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza31296ze3z87_1626, (int) (0L),
					BgL_procz00_37);
				BGL_TAIL return call_cc(BgL_zc3z04anonymousza31296ze3z87_1626);
			}
		}

	}



/* &call/cc */
	obj_t BGl_z62callzf2ccz90zz__r4_control_features_6_9z00(obj_t BgL_envz00_1627,
		obj_t BgL_procz00_1628)
	{
		{	/* Ieee/control.scm 341 */
			{	/* Ieee/control.scm 343 */
				obj_t BgL_auxz00_2231;

				if (PROCEDUREP(BgL_procz00_1628))
					{	/* Ieee/control.scm 343 */
						BgL_auxz00_2231 = BgL_procz00_1628;
					}
				else
					{
						obj_t BgL_auxz00_2234;

						BgL_auxz00_2234 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(11423L),
							BGl_string1657z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_procz00_1628);
						FAILURE(BgL_auxz00_2234, BFALSE, BFALSE);
					}
				return BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_auxz00_2231);
			}
		}

	}



/* &<@anonymous:1296> */
	obj_t BGl_z62zc3z04anonymousza31296ze3ze5zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1629, obj_t BgL_contz00_1631)
	{
		{	/* Ieee/control.scm 342 */
			{	/* Ieee/control.scm 343 */
				obj_t BgL_procz00_1630;

				BgL_procz00_1630 = ((obj_t) PROCEDURE_REF(BgL_envz00_1629, (int) (0L)));
				{	/* Ieee/control.scm 343 */
					obj_t BgL_evcz00_1696;

					BgL_evcz00_1696 = BGl_getzd2evaluationzd2contextz00zz__evaluatez00();
					{	/* Ieee/control.scm 345 */
						obj_t BgL_zc3z04anonymousza31299ze3z87_1697;

						BgL_zc3z04anonymousza31299ze3z87_1697 =
							MAKE_VA_PROCEDURE
							(BGl_z62zc3z04anonymousza31299ze3ze5zz__r4_control_features_6_9z00,
							(int) ((-1L)), (int) (2L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31299ze3z87_1697, (int) (0L),
							BgL_evcz00_1696);
						PROCEDURE_SET(BgL_zc3z04anonymousza31299ze3z87_1697, (int) (1L),
							BgL_contz00_1631);
						return BGL_PROCEDURE_CALL1(BgL_procz00_1630,
							BgL_zc3z04anonymousza31299ze3z87_1697);
					}
				}
			}
		}

	}



/* &<@anonymous:1299> */
	obj_t BGl_z62zc3z04anonymousza31299ze3ze5zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1632, obj_t BgL_valsz00_1635)
	{
		{	/* Ieee/control.scm 344 */
			{	/* Ieee/control.scm 345 */
				obj_t BgL_evcz00_1633;
				obj_t BgL_contz00_1634;

				BgL_evcz00_1633 = PROCEDURE_REF(BgL_envz00_1632, (int) (0L));
				BgL_contz00_1634 = PROCEDURE_REF(BgL_envz00_1632, (int) (1L));
				BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(BgL_evcz00_1633);
				{	/* Ieee/control.scm 346 */
					bool_t BgL_test1761z00_2259;

					if (PAIRP(BgL_valsz00_1635))
						{	/* Ieee/control.scm 346 */
							BgL_test1761z00_2259 = NULLP(CDR(BgL_valsz00_1635));
						}
					else
						{	/* Ieee/control.scm 346 */
							BgL_test1761z00_2259 = ((bool_t) 0);
						}
					if (BgL_test1761z00_2259)
						{	/* Ieee/control.scm 347 */
							obj_t BgL_arg1322z00_1698;

							BgL_arg1322z00_1698 = CAR(BgL_valsz00_1635);
							return BGL_PROCEDURE_CALL1(BgL_contz00_1634, BgL_arg1322z00_1698);
						}
					else
						{	/* Ieee/control.scm 346 */
							{	/* Ieee/control.scm 349 */
								int BgL_tmpz00_2269;

								BgL_tmpz00_2269 = (int) ((-1L));
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_2269);
							}
							return BGL_PROCEDURE_CALL1(BgL_contz00_1634, BgL_valsz00_1635);
						}
				}
			}
		}

	}



/* call-with-current-continuation */
	BGL_EXPORTED_DEF obj_t
		BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00
		(obj_t BgL_procz00_38)
	{
		{	/* Ieee/control.scm 359 */
			BGL_TAIL return
				BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_procz00_38);
		}

	}



/* &call-with-current-continuation */
	obj_t
		BGl_z62callzd2withzd2currentzd2continuationzb0zz__r4_control_features_6_9z00
		(obj_t BgL_envz00_1636, obj_t BgL_procz00_1637)
	{
		{	/* Ieee/control.scm 359 */
			{	/* Ieee/control.scm 360 */
				obj_t BgL_auxz00_2277;

				if (PROCEDUREP(BgL_procz00_1637))
					{	/* Ieee/control.scm 360 */
						BgL_auxz00_2277 = BgL_procz00_1637;
					}
				else
					{
						obj_t BgL_auxz00_2280;

						BgL_auxz00_2280 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(12040L),
							BGl_string1658z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_procz00_1637);
						FAILURE(BgL_auxz00_2280, BFALSE, BFALSE);
					}
				return
					BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00
					(BgL_auxz00_2277);
			}
		}

	}



/* dynamic-wind */
	BGL_EXPORTED_DEF obj_t
		BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t BgL_beforez00_39,
		obj_t BgL_thunkz00_40, obj_t BgL_afterz00_41)
	{
		{	/* Ieee/control.scm 365 */
			BGL_PROCEDURE_CALL0(BgL_beforez00_39);
			{	/* Ieee/control.scm 367 */

				PUSH_BEFORE(BgL_beforez00_39);
				{	/* Ieee/control.scm 369 */
					obj_t BgL_exitd1014z00_1492;

					BgL_exitd1014z00_1492 = BGL_EXITD_TOP_AS_OBJ();
					{	/* Ieee/control.scm 372 */
						obj_t BgL_zc3z04anonymousza31330ze3z87_1638;

						BgL_zc3z04anonymousza31330ze3z87_1638 =
							MAKE_FX_PROCEDURE
							(BGl_z62zc3z04anonymousza31330ze3ze5zz__r4_control_features_6_9z00,
							(int) (0L), (int) (1L));
						PROCEDURE_SET(BgL_zc3z04anonymousza31330ze3z87_1638, (int) (0L),
							BgL_afterz00_41);
						{	/* Ieee/control.scm 369 */
							obj_t BgL_arg1596z00_1495;

							{	/* Ieee/control.scm 369 */
								obj_t BgL_arg1597z00_1496;

								BgL_arg1597z00_1496 = BGL_EXITD_PROTECT(BgL_exitd1014z00_1492);
								BgL_arg1596z00_1495 =
									MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31330ze3z87_1638,
									BgL_arg1597z00_1496);
							}
							BGL_EXITD_PROTECT_SET(BgL_exitd1014z00_1492, BgL_arg1596z00_1495);
							BUNSPEC;
						}
						{	/* Ieee/control.scm 370 */
							obj_t BgL_tmp1016z00_1494;

							BgL_tmp1016z00_1494 = BGL_PROCEDURE_CALL0(BgL_thunkz00_40);
							{	/* Ieee/control.scm 369 */
								bool_t BgL_test1764z00_2301;

								{	/* Ieee/control.scm 369 */
									obj_t BgL_arg1595z00_1498;

									BgL_arg1595z00_1498 =
										BGL_EXITD_PROTECT(BgL_exitd1014z00_1492);
									BgL_test1764z00_2301 = PAIRP(BgL_arg1595z00_1498);
								}
								if (BgL_test1764z00_2301)
									{	/* Ieee/control.scm 369 */
										obj_t BgL_arg1592z00_1499;

										{	/* Ieee/control.scm 369 */
											obj_t BgL_arg1593z00_1500;

											BgL_arg1593z00_1500 =
												BGL_EXITD_PROTECT(BgL_exitd1014z00_1492);
											BgL_arg1592z00_1499 = CDR(((obj_t) BgL_arg1593z00_1500));
										}
										BGL_EXITD_PROTECT_SET(BgL_exitd1014z00_1492,
											BgL_arg1592z00_1499);
										BUNSPEC;
									}
								else
									{	/* Ieee/control.scm 369 */
										BFALSE;
									}
							}
							BGL_PROCEDURE_CALL0(BgL_afterz00_41);
							POP_BEFORE();
							return BgL_tmp1016z00_1494;
						}
					}
				}
			}
		}

	}



/* &dynamic-wind */
	obj_t BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1639, obj_t BgL_beforez00_1640, obj_t BgL_thunkz00_1641,
		obj_t BgL_afterz00_1642)
	{
		{	/* Ieee/control.scm 365 */
			{	/* Ieee/control.scm 366 */
				obj_t BgL_auxz00_2326;
				obj_t BgL_auxz00_2319;
				obj_t BgL_auxz00_2312;

				if (PROCEDUREP(BgL_afterz00_1642))
					{	/* Ieee/control.scm 366 */
						BgL_auxz00_2326 = BgL_afterz00_1642;
					}
				else
					{
						obj_t BgL_auxz00_2329;

						BgL_auxz00_2329 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(12364L),
							BGl_string1659z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_afterz00_1642);
						FAILURE(BgL_auxz00_2329, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_thunkz00_1641))
					{	/* Ieee/control.scm 366 */
						BgL_auxz00_2319 = BgL_thunkz00_1641;
					}
				else
					{
						obj_t BgL_auxz00_2322;

						BgL_auxz00_2322 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(12364L),
							BGl_string1659z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_thunkz00_1641);
						FAILURE(BgL_auxz00_2322, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_beforez00_1640))
					{	/* Ieee/control.scm 366 */
						BgL_auxz00_2312 = BgL_beforez00_1640;
					}
				else
					{
						obj_t BgL_auxz00_2315;

						BgL_auxz00_2315 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1642z00zz__r4_control_features_6_9z00, BINT(12364L),
							BGl_string1659z00zz__r4_control_features_6_9z00,
							BGl_string1644z00zz__r4_control_features_6_9z00,
							BgL_beforez00_1640);
						FAILURE(BgL_auxz00_2315, BFALSE, BFALSE);
					}
				return
					BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_auxz00_2312,
					BgL_auxz00_2319, BgL_auxz00_2326);
			}
		}

	}



/* &<@anonymous:1330> */
	obj_t BGl_z62zc3z04anonymousza31330ze3ze5zz__r4_control_features_6_9z00(obj_t
		BgL_envz00_1643)
	{
		{	/* Ieee/control.scm 369 */
			{	/* Ieee/control.scm 372 */
				obj_t BgL_afterz00_1644;

				BgL_afterz00_1644 =
					((obj_t) PROCEDURE_REF(BgL_envz00_1643, (int) (0L)));
				BGL_PROCEDURE_CALL0(BgL_afterz00_1644);
				return POP_BEFORE();
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00(void)
	{
		{	/* Ieee/control.scm 14 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1660z00zz__r4_control_features_6_9z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1660z00zz__r4_control_features_6_9z00));
			return
				BGl_modulezd2initializa7ationz75zz__evaluatez00(398574045L,
				BSTRING_TO_STRING(BGl_string1660z00zz__r4_control_features_6_9z00));
		}

	}

#ifdef __cplusplus
}
#endif
