/*===========================================================================*/
/*   (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-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/control.scm -indent -o objs/obj_s/Ieee/control.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* 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);
static obj_t BGl_symbol1911z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1916z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1918z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1840z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_appendzd2mapz12zc0zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol1843z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1925z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1845z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1929z00zz__r4_control_features_6_9z00 = BUNSPEC;
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);
static obj_t BGl_symbol1932z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1900z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1854z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1903z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1856z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1939z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1858z00zz__r4_control_features_6_9z00 = BUNSPEC;
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_list1910z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1863z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1947z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1866z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1915z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1868z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62mapz62zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1951z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1870z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1953z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1874z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1956z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1842z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1924z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__r4_control_features_6_9z00(void);
static obj_t BGl_symbol1877z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1928z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_mapzd22z12zc0zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol1961z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1882z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1964z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1931z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1886z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1853z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1968z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1938z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31196ze3ze5zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_control_features_6_9z00(void);
extern long bgl_list_length(obj_t);
static obj_t BGl_z62mapzd22zb0zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1890z00zz__r4_control_features_6_9z00 = BUNSPEC;
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_list1943z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1864z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r4_control_features_6_9z00(void);
static obj_t BGl_list1946z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1865z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1899z00zz__r4_control_features_6_9z00 = BUNSPEC;
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_list1950z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62filterz62zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1873z00zz__r4_control_features_6_9z00 = BUNSPEC;
extern obj_t call_cc(obj_t);
static obj_t BGl_list1955z00zz__r4_control_features_6_9z00 = BUNSPEC;
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_list1960z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1881z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62procedurezf3z91zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list1963z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1967z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31296ze3ze5zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list1889z00zz__r4_control_features_6_9z00 = BUNSPEC;
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);
extern obj_t bstring_to_symbol(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);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, 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);
static obj_t BGl_symbol1901z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1904z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1908z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_appendzd2mapz12zd2envz12zz__r4_control_features_6_9z00, BgL_bgl_za762appendza7d2mapza71973za7, va_generic_entry, BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string1952z00zz__r4_control_features_6_9z00, BgL_bgl_string1952za700za7za7_1974za7, "cont", 4 );
BGL_DEFINE_STRING(BGl_string1871z00zz__r4_control_features_6_9z00, BgL_bgl_string1871za700za7za7_1975za7, "l", 1 );
BGL_DEFINE_STRING(BGl_string1872z00zz__r4_control_features_6_9z00, BgL_bgl_string1872za700za7za7_1976za7, "&map", 4 );
BGL_DEFINE_STRING(BGl_string1954z00zz__r4_control_features_6_9z00, BgL_bgl_string1954za700za7za7_1977za7, "arg1322", 7 );
BGL_DEFINE_STRING(BGl_string1875z00zz__r4_control_features_6_9z00, BgL_bgl_string1875za700za7za7_1978za7, "arg1115", 7 );
BGL_DEFINE_STRING(BGl_string1957z00zz__r4_control_features_6_9z00, BgL_bgl_string1957za700za7za7_1979za7, "vals", 4 );
BGL_DEFINE_STRING(BGl_string1876z00zz__r4_control_features_6_9z00, BgL_bgl_string1876za700za7za7_1980za7, "map!", 4 );
BGL_DEFINE_STRING(BGl_string1958z00zz__r4_control_features_6_9z00, BgL_bgl_string1958za700za7za7_1981za7, "&call-with-current-continuation", 31 );
BGL_DEFINE_STRING(BGl_string1959z00zz__r4_control_features_6_9z00, BgL_bgl_string1959za700za7za7_1982za7, "dynamic-wind:Wrong number of arguments", 38 );
BGL_DEFINE_STRING(BGl_string1878z00zz__r4_control_features_6_9z00, BgL_bgl_string1878za700za7za7_1983za7, "&map!", 5 );
BGL_DEFINE_STRING(BGl_string1879z00zz__r4_control_features_6_9z00, BgL_bgl_string1879za700za7za7_1984za7, "loop~2", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_forzd2eachzd22zd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762forza7d2eachza7d21985za7, BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_forzd2eachzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762forza7d2eachza7b01986za7, va_generic_entry, BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string1880z00zz__r4_control_features_6_9z00, BgL_bgl_string1880za700za7za7_1987za7, "loop~2:Wrong number of arguments", 32 );
BGL_DEFINE_STRING(BGl_string1962z00zz__r4_control_features_6_9z00, BgL_bgl_string1962za700za7za7_1988za7, "before", 6 );
BGL_DEFINE_STRING(BGl_string1883z00zz__r4_control_features_6_9z00, BgL_bgl_string1883za700za7za7_1989za7, "arg1142", 7 );
BGL_DEFINE_STRING(BGl_string1965z00zz__r4_control_features_6_9z00, BgL_bgl_string1965za700za7za7_1990za7, "thunk", 5 );
BGL_DEFINE_STRING(BGl_string1884z00zz__r4_control_features_6_9z00, BgL_bgl_string1884za700za7za7_1991za7, "append-map", 10 );
BGL_DEFINE_STRING(BGl_string1966z00zz__r4_control_features_6_9z00, BgL_bgl_string1966za700za7za7_1992za7, "dynamic-wind", 12 );
BGL_DEFINE_STRING(BGl_string1885z00zz__r4_control_features_6_9z00, BgL_bgl_string1885za700za7za7_1993za7, "loop~1", 6 );
BGL_DEFINE_STRING(BGl_string1887z00zz__r4_control_features_6_9z00, BgL_bgl_string1887za700za7za7_1994za7, "&append-map", 11 );
BGL_DEFINE_STRING(BGl_string1969z00zz__r4_control_features_6_9z00, BgL_bgl_string1969za700za7za7_1995za7, "after", 5 );
BGL_DEFINE_STRING(BGl_string1888z00zz__r4_control_features_6_9z00, BgL_bgl_string1888za700za7za7_1996za7, "<@anonymous:1162>:Wrong number of arguments", 43 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2promisezd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762makeza7d2promis1997z00, BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1970z00zz__r4_control_features_6_9z00, BgL_bgl_string1970za700za7za7_1998za7, "&dynamic-wind", 13 );
BGL_DEFINE_STRING(BGl_string1971z00zz__r4_control_features_6_9z00, BgL_bgl_string1971za700za7za7_1999za7, "<@anonymous:1330>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string1972z00zz__r4_control_features_6_9z00, BgL_bgl_string1972za700za7za7_2000za7, "__r4_control_features_6_9", 25 );
BGL_DEFINE_STRING(BGl_string1891z00zz__r4_control_features_6_9z00, BgL_bgl_string1891za700za7za7_2001za7, "x", 1 );
BGL_DEFINE_STRING(BGl_string1892z00zz__r4_control_features_6_9z00, BgL_bgl_string1892za700za7za7_2002za7, "<@anonymous:1162>", 17 );
BGL_DEFINE_STRING(BGl_string1893z00zz__r4_control_features_6_9z00, BgL_bgl_string1893za700za7za7_2003za7, "for-each", 8 );
BGL_DEFINE_STRING(BGl_string1894z00zz__r4_control_features_6_9z00, BgL_bgl_string1894za700za7za7_2004za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string1895z00zz__r4_control_features_6_9z00, BgL_bgl_string1895za700za7za7_2005za7, "append-map2!", 12 );
BGL_DEFINE_STRING(BGl_string1896z00zz__r4_control_features_6_9z00, BgL_bgl_string1896za700za7za7_2006za7, "append-map!", 11 );
BGL_DEFINE_STRING(BGl_string1897z00zz__r4_control_features_6_9z00, BgL_bgl_string1897za700za7za7_2007za7, "&append-map!", 12 );
BGL_DEFINE_STRING(BGl_string1898z00zz__r4_control_features_6_9z00, BgL_bgl_string1898za700za7za7_2008za7, "<@anonymous:1196>", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mapzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762mapza762za7za7__r4_2009z00, 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_za762appendza7d2mapza72010za7, 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__2011z00, BGl_z62filterz62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filterz12zd2envzc0zz__r4_control_features_6_9z00, BgL_bgl_za762filterza712za770za72012z00, BGl_z62filterz12z70zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mapzd22zd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762mapza7d22za7b0za7za7_2013za7, BGl_z62mapzd22zb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_procedurezf3zd2envz21zz__r4_control_features_6_9z00, BgL_bgl_za762procedureza7f3za72014za7, BGl_z62procedurezf3z91zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2currentzd2continuationzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762callza7d2withza7d2015za7, BGl_z62callzd2withzd2currentzd2continuationzb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_forcezd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762forceza762za7za7__r2016z00, BGl_z62forcez62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_applyzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762applyza762za7za7__r2017z00, va_generic_entry, BGl_z62applyz62zz__r4_control_features_6_9z00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_filterzd2mapzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762filterza7d2mapza72018za7, va_generic_entry, BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_mapz12zd2envzc0zz__r4_control_features_6_9z00, BgL_bgl_za762mapza712za770za7za7__2019za7, va_generic_entry, BGl_z62mapz12z70zz__r4_control_features_6_9z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string1902z00zz__r4_control_features_6_9z00, BgL_bgl_string1902za700za7za7_2020za7, "xs", 2 );
BGL_DEFINE_STRING(BGl_string1905z00zz__r4_control_features_6_9z00, BgL_bgl_string1905za700za7za7_2021za7, "arg1211", 7 );
BGL_DEFINE_STRING(BGl_string1906z00zz__r4_control_features_6_9z00, BgL_bgl_string1906za700za7za7_2022za7, "filter-map", 10 );
BGL_DEFINE_STRING(BGl_string1907z00zz__r4_control_features_6_9z00, BgL_bgl_string1907za700za7za7_2023za7, "loop~0", 6 );
BGL_DEFINE_STRING(BGl_string1909z00zz__r4_control_features_6_9z00, BgL_bgl_string1909za700za7za7_2024za7, "&filter-map", 11 );
BGL_DEFINE_STRING(BGl_string1912z00zz__r4_control_features_6_9z00, BgL_bgl_string1912za700za7za7_2025za7, "arg1234", 7 );
BGL_DEFINE_STRING(BGl_string1913z00zz__r4_control_features_6_9z00, BgL_bgl_string1913za700za7za7_2026za7, "&for-each-2", 11 );
BGL_DEFINE_STRING(BGl_string1914z00zz__r4_control_features_6_9z00, BgL_bgl_string1914za700za7za7_2027za7, "&for-each", 9 );
BGL_DEFINE_STRING(BGl_string1917z00zz__r4_control_features_6_9z00, BgL_bgl_string1917za700za7za7_2028za7, "pred", 4 );
BGL_DEFINE_STRING(BGl_string1837z00zz__r4_control_features_6_9z00, BgL_bgl_string1837za700za7za7_2029za7, "/tmp/bigloo/runtime/Ieee/control.scm", 36 );
BGL_DEFINE_STRING(BGl_string1919z00zz__r4_control_features_6_9z00, BgL_bgl_string1919za700za7za7_2030za7, "arg1265", 7 );
BGL_DEFINE_STRING(BGl_string1838z00zz__r4_control_features_6_9z00, BgL_bgl_string1838za700za7za7_2031za7, "apply", 5 );
BGL_DEFINE_STRING(BGl_string1839z00zz__r4_control_features_6_9z00, BgL_bgl_string1839za700za7za7_2032za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string1920z00zz__r4_control_features_6_9z00, BgL_bgl_string1920za700za7za7_2033za7, "filter", 6 );
BGL_DEFINE_STRING(BGl_string1921z00zz__r4_control_features_6_9z00, BgL_bgl_string1921za700za7za7_2034za7, "&filter", 7 );
BGL_DEFINE_STRING(BGl_string1922z00zz__r4_control_features_6_9z00, BgL_bgl_string1922za700za7za7_2035za7, "lp", 2 );
BGL_DEFINE_STRING(BGl_string1841z00zz__r4_control_features_6_9z00, BgL_bgl_string1841za700za7za7_2036za7, "Wrong number of arguments", 25 );
BGL_DEFINE_STRING(BGl_string1923z00zz__r4_control_features_6_9z00, BgL_bgl_string1923za700za7za7_2037za7, "lp:Wrong number of arguments", 28 );
BGL_DEFINE_STRING(BGl_string1844z00zz__r4_control_features_6_9z00, BgL_bgl_string1844za700za7za7_2038za7, "proc", 4 );
BGL_DEFINE_STRING(BGl_string1926z00zz__r4_control_features_6_9z00, BgL_bgl_string1926za700za7za7_2039za7, "arg1293", 7 );
BGL_DEFINE_STRING(BGl_string1927z00zz__r4_control_features_6_9z00, BgL_bgl_string1927za700za7za7_2040za7, "scan-in:Wrong number of arguments", 33 );
BGL_DEFINE_STRING(BGl_string1846z00zz__r4_control_features_6_9z00, BgL_bgl_string1846za700za7za7_2041za7, "args", 4 );
BGL_DEFINE_STRING(BGl_string1847z00zz__r4_control_features_6_9z00, BgL_bgl_string1847za700za7za7_2042za7, "loop~4", 6 );
BGL_DEFINE_STRING(BGl_string1848z00zz__r4_control_features_6_9z00, BgL_bgl_string1848za700za7za7_2043za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string1849z00zz__r4_control_features_6_9z00, BgL_bgl_string1849za700za7za7_2044za7, "&apply", 6 );
extern obj_t BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dynamiczd2windzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762dynamicza7d2win2045z00, BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string1930z00zz__r4_control_features_6_9z00, BgL_bgl_string1930za700za7za7_2046za7, "arg1279", 7 );
BGL_DEFINE_STRING(BGl_string1850z00zz__r4_control_features_6_9z00, BgL_bgl_string1850za700za7za7_2047za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string1851z00zz__r4_control_features_6_9z00, BgL_bgl_string1851za700za7za7_2048za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string1933z00zz__r4_control_features_6_9z00, BgL_bgl_string1933za700za7za7_2049za7, "arg1291", 7 );
BGL_DEFINE_STRING(BGl_string1852z00zz__r4_control_features_6_9z00, BgL_bgl_string1852za700za7za7_2050za7, "loop:Wrong number of arguments", 30 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzf2cczd2envz20zz__r4_control_features_6_9z00, BgL_bgl_za762callza7f2ccza790za72051z00, BGl_z62callzf2ccz90zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1934z00zz__r4_control_features_6_9z00, BgL_bgl_string1934za700za7za7_2052za7, "filter!", 7 );
BGL_DEFINE_STRING(BGl_string1935z00zz__r4_control_features_6_9z00, BgL_bgl_string1935za700za7za7_2053za7, "&filter!", 8 );
BGL_DEFINE_STRING(BGl_string1936z00zz__r4_control_features_6_9z00, BgL_bgl_string1936za700za7za7_2054za7, "force", 5 );
BGL_DEFINE_STRING(BGl_string1855z00zz__r4_control_features_6_9z00, BgL_bgl_string1855za700za7za7_2055za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string1937z00zz__r4_control_features_6_9z00, BgL_bgl_string1937za700za7za7_2056za7, "force:Wrong number of arguments", 31 );
BGL_DEFINE_STRING(BGl_string1857z00zz__r4_control_features_6_9z00, BgL_bgl_string1857za700za7za7_2057za7, "f", 1 );
extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
BGL_DEFINE_STRING(BGl_string1859z00zz__r4_control_features_6_9z00, BgL_bgl_string1859za700za7za7_2058za7, "arg1084", 7 );
BGL_DEFINE_STRING(BGl_string1940z00zz__r4_control_features_6_9z00, BgL_bgl_string1940za700za7za7_2059za7, "promise", 7 );
BGL_DEFINE_STRING(BGl_string1941z00zz__r4_control_features_6_9z00, BgL_bgl_string1941za700za7za7_2060za7, "&make-promise", 13 );
BGL_DEFINE_STRING(BGl_string1860z00zz__r4_control_features_6_9z00, BgL_bgl_string1860za700za7za7_2061za7, "&map-2", 6 );
BGL_DEFINE_STRING(BGl_string1942z00zz__r4_control_features_6_9z00, BgL_bgl_string1942za700za7za7_2062za7, "<@anonymous:1294>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string1861z00zz__r4_control_features_6_9z00, BgL_bgl_string1861za700za7za7_2063za7, "map", 3 );
BGL_DEFINE_STRING(BGl_string1862z00zz__r4_control_features_6_9z00, BgL_bgl_string1862za700za7za7_2064za7, "loop~3", 6 );
BGL_DEFINE_STRING(BGl_string1944z00zz__r4_control_features_6_9z00, BgL_bgl_string1944za700za7za7_2065za7, "&call/cc", 8 );
BGL_DEFINE_STRING(BGl_string1945z00zz__r4_control_features_6_9z00, BgL_bgl_string1945za700za7za7_2066za7, "<@anonymous:1296>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string1948z00zz__r4_control_features_6_9z00, BgL_bgl_string1948za700za7za7_2067za7, "<@anonymous:1299>", 17 );
BGL_DEFINE_STRING(BGl_string1867z00zz__r4_control_features_6_9z00, BgL_bgl_string1867za700za7za7_2068za7, "map-2", 5 );
BGL_DEFINE_STRING(BGl_string1949z00zz__r4_control_features_6_9z00, BgL_bgl_string1949za700za7za7_2069za7, "<@anonymous:1299>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string1869z00zz__r4_control_features_6_9z00, BgL_bgl_string1869za700za7za7_2070za7, "car-env", 7 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string1869z00zz__r4_control_features_6_9z00, BgL_bgl_string1869za700za7za7_2070za7);
BGL_BIND_STRING(BGl_string1949z00zz__r4_control_features_6_9z00, BgL_bgl_string1949za700za7za7_2069za7);
BGL_BIND_STRING(BGl_string1867z00zz__r4_control_features_6_9z00, BgL_bgl_string1867za700za7za7_2068za7);
BGL_BIND_STRING(BGl_string1948z00zz__r4_control_features_6_9z00, BgL_bgl_string1948za700za7za7_2067za7);
BGL_BIND_STRING(BGl_string1945z00zz__r4_control_features_6_9z00, BgL_bgl_string1945za700za7za7_2066za7);
BGL_BIND_STRING(BGl_string1944z00zz__r4_control_features_6_9z00, BgL_bgl_string1944za700za7za7_2065za7);
BGL_BIND_STRING(BGl_string1862z00zz__r4_control_features_6_9z00, BgL_bgl_string1862za700za7za7_2064za7);
BGL_BIND_STRING(BGl_string1861z00zz__r4_control_features_6_9z00, BgL_bgl_string1861za700za7za7_2063za7);
BGL_BIND_STRING(BGl_string1942z00zz__r4_control_features_6_9z00, BgL_bgl_string1942za700za7za7_2062za7);
BGL_BIND_STRING(BGl_string1860z00zz__r4_control_features_6_9z00, BgL_bgl_string1860za700za7za7_2061za7);
BGL_BIND_STRING(BGl_string1941z00zz__r4_control_features_6_9z00, BgL_bgl_string1941za700za7za7_2060za7);
BGL_BIND_STRING(BGl_string1940z00zz__r4_control_features_6_9z00, BgL_bgl_string1940za700za7za7_2059za7);
BGL_BIND_STRING(BGl_string1859z00zz__r4_control_features_6_9z00, BgL_bgl_string1859za700za7za7_2058za7);
BGL_BIND_STRING(BGl_string1857z00zz__r4_control_features_6_9z00, BgL_bgl_string1857za700za7za7_2057za7);
BGL_BIND_STRING(BGl_string1937z00zz__r4_control_features_6_9z00, BgL_bgl_string1937za700za7za7_2056za7);
BGL_BIND_STRING(BGl_string1855z00zz__r4_control_features_6_9z00, BgL_bgl_string1855za700za7za7_2055za7);
BGL_BIND_STRING(BGl_string1936z00zz__r4_control_features_6_9z00, BgL_bgl_string1936za700za7za7_2054za7);
BGL_BIND_STRING(BGl_string1935z00zz__r4_control_features_6_9z00, BgL_bgl_string1935za700za7za7_2053za7);
BGL_BIND_STRING(BGl_string1934z00zz__r4_control_features_6_9z00, BgL_bgl_string1934za700za7za7_2052za7);
BGL_BIND_PROCEDURE(BGl_callzf2cczd2envz20zz__r4_control_features_6_9z00, BgL_bgl_za762callza7f2ccza790za72051z00);
BGL_BIND_STRING(BGl_string1852z00zz__r4_control_features_6_9z00, BgL_bgl_string1852za700za7za7_2050za7);
BGL_BIND_STRING(BGl_string1933z00zz__r4_control_features_6_9z00, BgL_bgl_string1933za700za7za7_2049za7);
BGL_BIND_STRING(BGl_string1851z00zz__r4_control_features_6_9z00, BgL_bgl_string1851za700za7za7_2048za7);
BGL_BIND_STRING(BGl_string1850z00zz__r4_control_features_6_9z00, BgL_bgl_string1850za700za7za7_2047za7);
BGL_BIND_STRING(BGl_string1930z00zz__r4_control_features_6_9z00, BgL_bgl_string1930za700za7za7_2046za7);
BGL_BIND_PROCEDURE(BGl_dynamiczd2windzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762dynamicza7d2win2045z00);
BGL_BIND_STRING(BGl_string1849z00zz__r4_control_features_6_9z00, BgL_bgl_string1849za700za7za7_2044za7);
BGL_BIND_STRING(BGl_string1848z00zz__r4_control_features_6_9z00, BgL_bgl_string1848za700za7za7_2043za7);
BGL_BIND_STRING(BGl_string1847z00zz__r4_control_features_6_9z00, BgL_bgl_string1847za700za7za7_2042za7);
BGL_BIND_STRING(BGl_string1846z00zz__r4_control_features_6_9z00, BgL_bgl_string1846za700za7za7_2041za7);
BGL_BIND_STRING(BGl_string1927z00zz__r4_control_features_6_9z00, BgL_bgl_string1927za700za7za7_2040za7);
BGL_BIND_STRING(BGl_string1926z00zz__r4_control_features_6_9z00, BgL_bgl_string1926za700za7za7_2039za7);
BGL_BIND_STRING(BGl_string1844z00zz__r4_control_features_6_9z00, BgL_bgl_string1844za700za7za7_2038za7);
BGL_BIND_STRING(BGl_string1923z00zz__r4_control_features_6_9z00, BgL_bgl_string1923za700za7za7_2037za7);
BGL_BIND_STRING(BGl_string1841z00zz__r4_control_features_6_9z00, BgL_bgl_string1841za700za7za7_2036za7);
BGL_BIND_STRING(BGl_string1922z00zz__r4_control_features_6_9z00, BgL_bgl_string1922za700za7za7_2035za7);
BGL_BIND_STRING(BGl_string1921z00zz__r4_control_features_6_9z00, BgL_bgl_string1921za700za7za7_2034za7);
BGL_BIND_STRING(BGl_string1920z00zz__r4_control_features_6_9z00, BgL_bgl_string1920za700za7za7_2033za7);
BGL_BIND_STRING(BGl_string1839z00zz__r4_control_features_6_9z00, BgL_bgl_string1839za700za7za7_2032za7);
BGL_BIND_STRING(BGl_string1838z00zz__r4_control_features_6_9z00, BgL_bgl_string1838za700za7za7_2031za7);
BGL_BIND_STRING(BGl_string1919z00zz__r4_control_features_6_9z00, BgL_bgl_string1919za700za7za7_2030za7);
BGL_BIND_STRING(BGl_string1837z00zz__r4_control_features_6_9z00, BgL_bgl_string1837za700za7za7_2029za7);
BGL_BIND_STRING(BGl_string1917z00zz__r4_control_features_6_9z00, BgL_bgl_string1917za700za7za7_2028za7);
BGL_BIND_STRING(BGl_string1914z00zz__r4_control_features_6_9z00, BgL_bgl_string1914za700za7za7_2027za7);
BGL_BIND_STRING(BGl_string1913z00zz__r4_control_features_6_9z00, BgL_bgl_string1913za700za7za7_2026za7);
BGL_BIND_STRING(BGl_string1912z00zz__r4_control_features_6_9z00, BgL_bgl_string1912za700za7za7_2025za7);
BGL_BIND_STRING(BGl_string1909z00zz__r4_control_features_6_9z00, BgL_bgl_string1909za700za7za7_2024za7);
BGL_BIND_STRING(BGl_string1907z00zz__r4_control_features_6_9z00, BgL_bgl_string1907za700za7za7_2023za7);
BGL_BIND_STRING(BGl_string1906z00zz__r4_control_features_6_9z00, BgL_bgl_string1906za700za7za7_2022za7);
BGL_BIND_STRING(BGl_string1905z00zz__r4_control_features_6_9z00, BgL_bgl_string1905za700za7za7_2021za7);
BGL_BIND_STRING(BGl_string1902z00zz__r4_control_features_6_9z00, BgL_bgl_string1902za700za7za7_2020za7);
BGL_BIND_PROCEDURE(BGl_mapz12zd2envzc0zz__r4_control_features_6_9z00, BgL_bgl_za762mapza712za770za7za7__2019za7);
BGL_BIND_PROCEDURE(BGl_filterzd2mapzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762filterza7d2mapza72018za7);
BGL_BIND_PROCEDURE(BGl_applyzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762applyza762za7za7__r2017z00);
BGL_BIND_PROCEDURE(BGl_forcezd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762forceza762za7za7__r2016z00);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2currentzd2continuationzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762callza7d2withza7d2015za7);
BGL_BIND_PROCEDURE(BGl_procedurezf3zd2envz21zz__r4_control_features_6_9z00, BgL_bgl_za762procedureza7f3za72014za7);
BGL_BIND_PROCEDURE(BGl_mapzd22zd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762mapza7d22za7b0za7za7_2013za7);
BGL_BIND_PROCEDURE(BGl_filterz12zd2envzc0zz__r4_control_features_6_9z00, BgL_bgl_za762filterza712za770za72012z00);
BGL_BIND_PROCEDURE(BGl_filterzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762filterza762za7za7__2011z00);
BGL_BIND_PROCEDURE(BGl_appendzd2mapzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762appendza7d2mapza72010za7);
BGL_BIND_PROCEDURE(BGl_mapzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762mapza762za7za7__r4_2009z00);
BGL_BIND_STRING(BGl_string1898z00zz__r4_control_features_6_9z00, BgL_bgl_string1898za700za7za7_2008za7);
BGL_BIND_STRING(BGl_string1897z00zz__r4_control_features_6_9z00, BgL_bgl_string1897za700za7za7_2007za7);
BGL_BIND_STRING(BGl_string1896z00zz__r4_control_features_6_9z00, BgL_bgl_string1896za700za7za7_2006za7);
BGL_BIND_STRING(BGl_string1895z00zz__r4_control_features_6_9z00, BgL_bgl_string1895za700za7za7_2005za7);
BGL_BIND_STRING(BGl_string1894z00zz__r4_control_features_6_9z00, BgL_bgl_string1894za700za7za7_2004za7);
BGL_BIND_STRING(BGl_string1893z00zz__r4_control_features_6_9z00, BgL_bgl_string1893za700za7za7_2003za7);
BGL_BIND_STRING(BGl_string1892z00zz__r4_control_features_6_9z00, BgL_bgl_string1892za700za7za7_2002za7);
BGL_BIND_STRING(BGl_string1891z00zz__r4_control_features_6_9z00, BgL_bgl_string1891za700za7za7_2001za7);
BGL_BIND_STRING(BGl_string1972z00zz__r4_control_features_6_9z00, BgL_bgl_string1972za700za7za7_2000za7);
BGL_BIND_STRING(BGl_string1971z00zz__r4_control_features_6_9z00, BgL_bgl_string1971za700za7za7_1999za7);
BGL_BIND_STRING(BGl_string1970z00zz__r4_control_features_6_9z00, BgL_bgl_string1970za700za7za7_1998za7);
BGL_BIND_PROCEDURE(BGl_makezd2promisezd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762makeza7d2promis1997z00);
BGL_BIND_STRING(BGl_string1888z00zz__r4_control_features_6_9z00, BgL_bgl_string1888za700za7za7_1996za7);
BGL_BIND_STRING(BGl_string1969z00zz__r4_control_features_6_9z00, BgL_bgl_string1969za700za7za7_1995za7);
BGL_BIND_STRING(BGl_string1887z00zz__r4_control_features_6_9z00, BgL_bgl_string1887za700za7za7_1994za7);
BGL_BIND_STRING(BGl_string1885z00zz__r4_control_features_6_9z00, BgL_bgl_string1885za700za7za7_1993za7);
BGL_BIND_STRING(BGl_string1966z00zz__r4_control_features_6_9z00, BgL_bgl_string1966za700za7za7_1992za7);
BGL_BIND_STRING(BGl_string1884z00zz__r4_control_features_6_9z00, BgL_bgl_string1884za700za7za7_1991za7);
BGL_BIND_STRING(BGl_string1965z00zz__r4_control_features_6_9z00, BgL_bgl_string1965za700za7za7_1990za7);
BGL_BIND_STRING(BGl_string1883z00zz__r4_control_features_6_9z00, BgL_bgl_string1883za700za7za7_1989za7);
BGL_BIND_STRING(BGl_string1962z00zz__r4_control_features_6_9z00, BgL_bgl_string1962za700za7za7_1988za7);
BGL_BIND_STRING(BGl_string1880z00zz__r4_control_features_6_9z00, BgL_bgl_string1880za700za7za7_1987za7);
BGL_BIND_PROCEDURE(BGl_forzd2eachzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762forza7d2eachza7b01986za7);
BGL_BIND_PROCEDURE(BGl_forzd2eachzd22zd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762forza7d2eachza7d21985za7);
BGL_BIND_STRING(BGl_string1879z00zz__r4_control_features_6_9z00, BgL_bgl_string1879za700za7za7_1984za7);
BGL_BIND_STRING(BGl_string1878z00zz__r4_control_features_6_9z00, BgL_bgl_string1878za700za7za7_1983za7);
BGL_BIND_STRING(BGl_string1959z00zz__r4_control_features_6_9z00, BgL_bgl_string1959za700za7za7_1982za7);
BGL_BIND_STRING(BGl_string1958z00zz__r4_control_features_6_9z00, BgL_bgl_string1958za700za7za7_1981za7);
BGL_BIND_STRING(BGl_string1876z00zz__r4_control_features_6_9z00, BgL_bgl_string1876za700za7za7_1980za7);
BGL_BIND_STRING(BGl_string1957z00zz__r4_control_features_6_9z00, BgL_bgl_string1957za700za7za7_1979za7);
BGL_BIND_STRING(BGl_string1875z00zz__r4_control_features_6_9z00, BgL_bgl_string1875za700za7za7_1978za7);
BGL_BIND_STRING(BGl_string1954z00zz__r4_control_features_6_9z00, BgL_bgl_string1954za700za7za7_1977za7);
BGL_BIND_STRING(BGl_string1872z00zz__r4_control_features_6_9z00, BgL_bgl_string1872za700za7za7_1976za7);
BGL_BIND_STRING(BGl_string1871z00zz__r4_control_features_6_9z00, BgL_bgl_string1871za700za7za7_1975za7);
BGL_BIND_STRING(BGl_string1952z00zz__r4_control_features_6_9z00, BgL_bgl_string1952za700za7za7_1974za7);
BGL_BIND_PROCEDURE(BGl_appendzd2mapz12zd2envz12zz__r4_control_features_6_9z00, BgL_bgl_za762appendza7d2mapza71973za7);
}

/* 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_symbol1911z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1916z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1918z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1840z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1843z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1925z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1845z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1929z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1932z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1900z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1854z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1903z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1856z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1939z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1858z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1910z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1863z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1947z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1866z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1915z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1868z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1951z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1870z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1953z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1874z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1956z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1842z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1924z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1877z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1928z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1961z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1882z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1964z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1931z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1886z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1853z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1968z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1938z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1890z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1943z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1864z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1946z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1865z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1899z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1950z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1873z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1955z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1960z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1881z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1963z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1967z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1889z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1901z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1904z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1908z00zz__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_1832, char * BgL_fromz00_1833)
{
{ 
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_cnstzd2initzd2zz__r4_control_features_6_9z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00(); 
return 
BGl_toplevelzd2initzd2zz__r4_control_features_6_9z00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_control_features_6_9z00(void)
{
{ /* Ieee/control.scm 14 */
BGl_symbol1840z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1838z00zz__r4_control_features_6_9z00); 
BGl_symbol1843z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1844z00zz__r4_control_features_6_9z00); 
BGl_symbol1845z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1846z00zz__r4_control_features_6_9z00); 
BGl_list1842z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1840z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1854z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1855z00zz__r4_control_features_6_9z00); 
BGl_symbol1856z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1857z00zz__r4_control_features_6_9z00); 
BGl_symbol1858z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1859z00zz__r4_control_features_6_9z00); 
BGl_list1853z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1858z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1863z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1862z00zz__r4_control_features_6_9z00); 
BGl_symbol1866z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1867z00zz__r4_control_features_6_9z00); 
BGl_symbol1868z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1869z00zz__r4_control_features_6_9z00); 
BGl_symbol1870z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1871z00zz__r4_control_features_6_9z00); 
BGl_list1865z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1866z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1868z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1870z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_list1864z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1840z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_list1865z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1874z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1875z00zz__r4_control_features_6_9z00); 
BGl_list1873z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1874z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1877z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1851z00zz__r4_control_features_6_9z00); 
BGl_symbol1882z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1883z00zz__r4_control_features_6_9z00); 
BGl_list1881z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1882z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1886z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1885z00zz__r4_control_features_6_9z00); 
BGl_symbol1890z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1891z00zz__r4_control_features_6_9z00); 
BGl_list1889z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1890z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1899z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1898z00zz__r4_control_features_6_9z00); 
BGl_symbol1901z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1902z00zz__r4_control_features_6_9z00); 
BGl_list1900z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1840z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1904z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1905z00zz__r4_control_features_6_9z00); 
BGl_list1903z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1904z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1908z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1907z00zz__r4_control_features_6_9z00); 
BGl_symbol1911z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1912z00zz__r4_control_features_6_9z00); 
BGl_list1910z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1856z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1911z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1916z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1917z00zz__r4_control_features_6_9z00); 
BGl_symbol1918z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1919z00zz__r4_control_features_6_9z00); 
BGl_list1915z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1918z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1925z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1926z00zz__r4_control_features_6_9z00); 
BGl_list1924z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1925z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1929z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1930z00zz__r4_control_features_6_9z00); 
BGl_list1928z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1929z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1932z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1933z00zz__r4_control_features_6_9z00); 
BGl_list1931z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1916z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1932z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1939z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1940z00zz__r4_control_features_6_9z00); 
BGl_list1938z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1939z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1939z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_list1943z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1947z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1948z00zz__r4_control_features_6_9z00); 
BGl_list1946z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1947z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1951z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1952z00zz__r4_control_features_6_9z00); 
BGl_symbol1953z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1954z00zz__r4_control_features_6_9z00); 
BGl_list1950z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1951z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1951z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1953z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1956z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1957z00zz__r4_control_features_6_9z00); 
BGl_list1955z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1951z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1951z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1956z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1961z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1962z00zz__r4_control_features_6_9z00); 
BGl_list1960z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1961z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1961z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1964z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1965z00zz__r4_control_features_6_9z00); 
BGl_list1963z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1964z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1964z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1968z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1969z00zz__r4_control_features_6_9z00); 
return ( 
BGl_list1967z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1854z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1968z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1968z00zz__r4_control_features_6_9z00, BNIL))), 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_746; obj_t BgL_tailz00_747;
BgL_prevz00_746 = BgL_headz00_745; 
BgL_tailz00_747 = BgL_l1z00_1; 
BgL_loopz00_748:
if(
PAIRP(BgL_tailz00_747))
{ 
 obj_t BgL_newzd2prevzd2_750;
BgL_newzd2prevzd2_750 = 
MAKE_YOUNG_PAIR(
CAR(BgL_tailz00_747), BgL_l2z00_2); 
SET_CDR(BgL_prevz00_746, BgL_newzd2prevzd2_750); 
{ 
 obj_t BgL_tailz00_1964; obj_t BgL_prevz00_1963;
BgL_prevz00_1963 = BgL_newzd2prevzd2_750; 
BgL_tailz00_1964 = 
CDR(BgL_tailz00_747); 
BgL_tailz00_747 = BgL_tailz00_1964; 
BgL_prevz00_746 = BgL_prevz00_1963; 
goto BgL_loopz00_748;} }  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_1406, obj_t BgL_objz00_1407)
{
{ /* Ieee/control.scm 79 */
return 
BBOOL(
BGl_procedurezf3zf3zz__r4_control_features_6_9z00(BgL_objz00_1407));} 

}



/* 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; } 
{ /* Ieee/control.scm 92 */
 obj_t BgL_valz00_1496;
{ /* Ieee/control.scm 92 */
 bool_t BgL_test2075z00_1974;
if(
PAIRP(BgL_argsz00_753))
{ /* Ieee/control.scm 92 */
BgL_test2075z00_1974 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 92 */
BgL_test2075z00_1974 = 
NULLP(BgL_argsz00_753)
; } 
if(BgL_test2075z00_1974)
{ /* Ieee/control.scm 92 */
BgL_valz00_1496 = BgL_argsz00_753; }  else 
{ 
 obj_t BgL_auxz00_1978;
BgL_auxz00_1978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3478L), BGl_string1838z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_argsz00_753); 
FAILURE(BgL_auxz00_1978,BFALSE,BFALSE);} } 
{ /* Ieee/control.scm 92 */
 long BgL_len1607z00_1497;
BgL_len1607z00_1497 = 
(int)(
bgl_list_length(BgL_valz00_1496)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_4, BgL_len1607z00_1497))
{ /* Ieee/control.scm 92 */
return 
apply(BgL_procz00_4, BgL_valz00_1496);}  else 
{ /* Ieee/control.scm 92 */
FAILURE(BGl_symbol1840z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1842z00zz__r4_control_features_6_9z00);} } } } } 

}



/* 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_test2078z00_1989;
{ /* Ieee/control.scm 88 */
 obj_t BgL_tmpz00_1990;
{ /* Ieee/control.scm 88 */
 obj_t BgL_pairz00_1266;
if(
PAIRP(BgL_optz00_757))
{ /* Ieee/control.scm 88 */
BgL_pairz00_1266 = BgL_optz00_757; }  else 
{ 
 obj_t BgL_auxz00_1993;
BgL_auxz00_1993 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3388L), BGl_string1847z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_optz00_757); 
FAILURE(BgL_auxz00_1993,BFALSE,BFALSE);} 
BgL_tmpz00_1990 = 
CDR(BgL_pairz00_1266); } 
BgL_test2078z00_1989 = 
PAIRP(BgL_tmpz00_1990); } 
if(BgL_test2078z00_1989)
{ /* Ieee/control.scm 89 */
 obj_t BgL_arg1069z00_761; obj_t BgL_arg1070z00_762;
{ /* Ieee/control.scm 89 */
 obj_t BgL_pairz00_1267;
if(
PAIRP(BgL_optz00_757))
{ /* Ieee/control.scm 89 */
BgL_pairz00_1267 = BgL_optz00_757; }  else 
{ 
 obj_t BgL_auxz00_2001;
BgL_auxz00_2001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3414L), BGl_string1847z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_optz00_757); 
FAILURE(BgL_auxz00_2001,BFALSE,BFALSE);} 
BgL_arg1069z00_761 = 
CAR(BgL_pairz00_1267); } 
{ /* Ieee/control.scm 89 */
 obj_t BgL_arg1072z00_763;
{ /* Ieee/control.scm 89 */
 obj_t BgL_pairz00_1268;
if(
PAIRP(BgL_optz00_757))
{ /* Ieee/control.scm 89 */
BgL_pairz00_1268 = BgL_optz00_757; }  else 
{ 
 obj_t BgL_auxz00_2008;
BgL_auxz00_2008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3430L), BGl_string1847z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_optz00_757); 
FAILURE(BgL_auxz00_2008,BFALSE,BFALSE);} 
BgL_arg1072z00_763 = 
CDR(BgL_pairz00_1268); } 
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 90 */
 obj_t BgL_pairz00_1269;
if(
PAIRP(BgL_optz00_757))
{ /* Ieee/control.scm 90 */
BgL_pairz00_1269 = BgL_optz00_757; }  else 
{ 
 obj_t BgL_auxz00_2017;
BgL_auxz00_2017 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3451L), BGl_string1847z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_optz00_757); 
FAILURE(BgL_auxz00_2017,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1269);} } } 

}



/* &apply */
obj_t BGl_z62applyz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1408, obj_t BgL_procz00_1409, obj_t BgL_argsz00_1410, obj_t BgL_optz00_1411)
{
{ /* Ieee/control.scm 85 */
{ /* Ieee/control.scm 86 */
 obj_t BgL_auxz00_2022;
if(
PROCEDUREP(BgL_procz00_1409))
{ /* Ieee/control.scm 86 */
BgL_auxz00_2022 = BgL_procz00_1409
; }  else 
{ 
 obj_t BgL_auxz00_2025;
BgL_auxz00_2025 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3301L), BGl_string1849z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_procz00_1409); 
FAILURE(BgL_auxz00_2025,BFALSE,BFALSE);} 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BgL_auxz00_2022, BgL_argsz00_1410, BgL_optz00_1411);} } 

}



/* 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_768; obj_t BgL_resz00_769;
BgL_lz00_768 = BgL_lz00_8; 
BgL_resz00_769 = BNIL; 
BgL_zc3z04anonymousza31074ze3z87_770:
if(
NULLP(BgL_lz00_768))
{ /* Ieee/control.scm 100 */
return 
bgl_reverse_bang(BgL_resz00_769);}  else 
{ /* Ieee/control.scm 102 */
 obj_t BgL_arg1079z00_772; obj_t BgL_arg1080z00_773;
{ /* Ieee/control.scm 102 */
 obj_t BgL_pairz00_1270;
if(
PAIRP(BgL_lz00_768))
{ /* Ieee/control.scm 102 */
BgL_pairz00_1270 = BgL_lz00_768; }  else 
{ 
 obj_t BgL_auxz00_2035;
BgL_auxz00_2035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3833L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_768); 
FAILURE(BgL_auxz00_2035,BFALSE,BFALSE);} 
BgL_arg1079z00_772 = 
CDR(BgL_pairz00_1270); } 
{ /* Ieee/control.scm 102 */
 obj_t BgL_arg1081z00_774;
{ /* Ieee/control.scm 102 */
 obj_t BgL_arg1084z00_775;
{ /* Ieee/control.scm 102 */
 obj_t BgL_pairz00_1271;
if(
PAIRP(BgL_lz00_768))
{ /* Ieee/control.scm 102 */
BgL_pairz00_1271 = BgL_lz00_768; }  else 
{ 
 obj_t BgL_auxz00_2042;
BgL_auxz00_2042 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3850L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_768); 
FAILURE(BgL_auxz00_2042,BFALSE,BFALSE);} 
BgL_arg1084z00_775 = 
CAR(BgL_pairz00_1271); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_7, 1))
{ /* Ieee/control.scm 102 */
BgL_arg1081z00_774 = 
BGL_PROCEDURE_CALL1(BgL_fz00_7, BgL_arg1084z00_775); }  else 
{ /* Ieee/control.scm 102 */
FAILURE(BGl_string1852z00zz__r4_control_features_6_9z00,BGl_list1853z00zz__r4_control_features_6_9z00,BgL_fz00_7);} } 
BgL_arg1080z00_773 = 
MAKE_YOUNG_PAIR(BgL_arg1081z00_774, BgL_resz00_769); } 
{ 
 obj_t BgL_resz00_2056; obj_t BgL_lz00_2055;
BgL_lz00_2055 = BgL_arg1079z00_772; 
BgL_resz00_2056 = BgL_arg1080z00_773; 
BgL_resz00_769 = BgL_resz00_2056; 
BgL_lz00_768 = BgL_lz00_2055; 
goto BgL_zc3z04anonymousza31074ze3z87_770;} } } } 

}



/* &map-2 */
obj_t BGl_z62mapzd22zb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1412, obj_t BgL_fz00_1413, obj_t BgL_lz00_1414)
{
{ /* Ieee/control.scm 97 */
{ /* Ieee/control.scm 100 */
 obj_t BgL_auxz00_2064; obj_t BgL_auxz00_2057;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1414))
{ /* Ieee/control.scm 100 */
BgL_auxz00_2064 = BgL_lz00_1414
; }  else 
{ 
 obj_t BgL_auxz00_2067;
BgL_auxz00_2067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3787L), BGl_string1860z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_1414); 
FAILURE(BgL_auxz00_2067,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_fz00_1413))
{ /* Ieee/control.scm 100 */
BgL_auxz00_2057 = BgL_fz00_1413
; }  else 
{ 
 obj_t BgL_auxz00_2060;
BgL_auxz00_2060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(3787L), BGl_string1860z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1413); 
FAILURE(BgL_auxz00_2060,BFALSE,BFALSE);} 
return 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_auxz00_2057, BgL_auxz00_2064);} } 

}



/* 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 111 */
 bool_t BgL_test2091z00_2074;
{ /* Ieee/control.scm 111 */
 obj_t BgL_tmpz00_2075;
{ /* Ieee/control.scm 111 */
 obj_t BgL_pairz00_1272;
if(
PAIRP(BgL_lz00_10))
{ /* Ieee/control.scm 111 */
BgL_pairz00_1272 = BgL_lz00_10; }  else 
{ 
 obj_t BgL_auxz00_2078;
BgL_auxz00_2078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4163L), BGl_string1861z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_10); 
FAILURE(BgL_auxz00_2078,BFALSE,BFALSE);} 
BgL_tmpz00_2075 = 
CDR(BgL_pairz00_1272); } 
BgL_test2091z00_2074 = 
NULLP(BgL_tmpz00_2075); } 
if(BgL_test2091z00_2074)
{ /* Ieee/control.scm 112 */
 obj_t BgL_arg1088z00_780;
{ /* Ieee/control.scm 112 */
 obj_t BgL_pairz00_1273;
if(
PAIRP(BgL_lz00_10))
{ /* Ieee/control.scm 112 */
BgL_pairz00_1273 = BgL_lz00_10; }  else 
{ 
 obj_t BgL_auxz00_2086;
BgL_auxz00_2086 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4188L), BGl_string1861z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_10); 
FAILURE(BgL_auxz00_2086,BFALSE,BFALSE);} 
BgL_arg1088z00_780 = 
CAR(BgL_pairz00_1273); } 
{ /* Ieee/control.scm 112 */
 obj_t BgL_auxz00_2091;
{ /* Ieee/control.scm 112 */
 bool_t BgL_test2094z00_2092;
if(
PAIRP(BgL_arg1088z00_780))
{ /* Ieee/control.scm 112 */
BgL_test2094z00_2092 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 112 */
BgL_test2094z00_2092 = 
NULLP(BgL_arg1088z00_780)
; } 
if(BgL_test2094z00_2092)
{ /* Ieee/control.scm 112 */
BgL_auxz00_2091 = BgL_arg1088z00_780
; }  else 
{ 
 obj_t BgL_auxz00_2096;
BgL_auxz00_2096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4189L), BGl_string1861z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_arg1088z00_780); 
FAILURE(BgL_auxz00_2096,BFALSE,BFALSE);} } 
return 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_fz00_9, BgL_auxz00_2091);} }  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_1492, obj_t BgL_lz00_782)
{
{ /* Ieee/control.scm 114 */
{ /* Ieee/control.scm 115 */
 bool_t BgL_test2096z00_2102;
{ /* Ieee/control.scm 115 */
 obj_t BgL_tmpz00_2103;
{ /* Ieee/control.scm 115 */
 obj_t BgL_pairz00_1274;
if(
PAIRP(BgL_lz00_782))
{ /* Ieee/control.scm 115 */
BgL_pairz00_1274 = BgL_lz00_782; }  else 
{ 
 obj_t BgL_auxz00_2106;
BgL_auxz00_2106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4249L), BGl_string1862z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_782); 
FAILURE(BgL_auxz00_2106,BFALSE,BFALSE);} 
BgL_tmpz00_2103 = 
CAR(BgL_pairz00_1274); } 
BgL_test2096z00_2102 = 
NULLP(BgL_tmpz00_2103); } 
if(BgL_test2096z00_2102)
{ /* Ieee/control.scm 115 */
return BNIL;}  else 
{ /* Ieee/control.scm 117 */
 obj_t BgL_arg1092z00_786; obj_t BgL_arg1096z00_787;
{ /* Ieee/control.scm 117 */
 obj_t BgL_valz00_1529;
{ /* Ieee/control.scm 117 */
 obj_t BgL_auxz00_2112;
{ /* Ieee/control.scm 117 */
 bool_t BgL_test2098z00_2113;
if(
PAIRP(BgL_lz00_782))
{ /* Ieee/control.scm 117 */
BgL_test2098z00_2113 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 117 */
BgL_test2098z00_2113 = 
NULLP(BgL_lz00_782)
; } 
if(BgL_test2098z00_2113)
{ /* Ieee/control.scm 117 */
BgL_auxz00_2112 = BgL_lz00_782
; }  else 
{ 
 obj_t BgL_auxz00_2117;
BgL_auxz00_2117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4297L), BGl_string1862z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_782); 
FAILURE(BgL_auxz00_2117,BFALSE,BFALSE);} } 
BgL_valz00_1529 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2112); } 
{ /* Ieee/control.scm 117 */
 long BgL_len1637z00_1530;
BgL_len1637z00_1530 = 
(int)(
bgl_list_length(BgL_valz00_1529)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1492, BgL_len1637z00_1530))
{ /* Ieee/control.scm 117 */
BgL_arg1092z00_786 = 
apply(BgL_fz00_1492, BgL_valz00_1529); }  else 
{ /* Ieee/control.scm 117 */
FAILURE(BGl_symbol1863z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1864z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 118 */
 obj_t BgL_arg1097z00_788;
{ /* Ieee/control.scm 118 */
 obj_t BgL_auxz00_2129;
{ /* Ieee/control.scm 118 */
 bool_t BgL_test2101z00_2130;
if(
PAIRP(BgL_lz00_782))
{ /* Ieee/control.scm 118 */
BgL_test2101z00_2130 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 118 */
BgL_test2101z00_2130 = 
NULLP(BgL_lz00_782)
; } 
if(BgL_test2101z00_2130)
{ /* Ieee/control.scm 118 */
BgL_auxz00_2129 = BgL_lz00_782
; }  else 
{ 
 obj_t BgL_auxz00_2134;
BgL_auxz00_2134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4324L), BGl_string1862z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_782); 
FAILURE(BgL_auxz00_2134,BFALSE,BFALSE);} } 
BgL_arg1097z00_788 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2129); } 
BgL_arg1096z00_787 = 
BGl_loopze73ze7zz__r4_control_features_6_9z00(BgL_fz00_1492, BgL_arg1097z00_788); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1092z00_786, BgL_arg1096z00_787);} } } 

}



/* &map */
obj_t BGl_z62mapz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1415, obj_t BgL_fz00_1416, obj_t BgL_lz00_1417)
{
{ /* Ieee/control.scm 107 */
{ /* Ieee/control.scm 109 */
 obj_t BgL_auxz00_2141;
if(
PROCEDUREP(BgL_fz00_1416))
{ /* Ieee/control.scm 109 */
BgL_auxz00_2141 = BgL_fz00_1416
; }  else 
{ 
 obj_t BgL_auxz00_2144;
BgL_auxz00_2144 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4121L), BGl_string1872z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1416); 
FAILURE(BgL_auxz00_2144,BFALSE,BFALSE);} 
return 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_auxz00_2141, BgL_lz00_1417);} } 

}



/* map-2! */
obj_t BGl_mapzd22z12zc0zz__r4_control_features_6_9z00(obj_t BgL_fz00_11, obj_t BgL_l0z00_12)
{
{ /* Ieee/control.scm 123 */
{ 
 obj_t BgL_lz00_793;
BgL_lz00_793 = BgL_l0z00_12; 
BgL_zc3z04anonymousza31109ze3z87_794:
if(
NULLP(BgL_lz00_793))
{ /* Ieee/control.scm 125 */
return BgL_l0z00_12;}  else 
{ /* Ieee/control.scm 125 */
{ /* Ieee/control.scm 128 */
 obj_t BgL_arg1111z00_796;
{ /* Ieee/control.scm 128 */
 obj_t BgL_arg1115z00_797;
{ /* Ieee/control.scm 128 */
 obj_t BgL_pairz00_1275;
if(
PAIRP(BgL_lz00_793))
{ /* Ieee/control.scm 128 */
BgL_pairz00_1275 = BgL_lz00_793; }  else 
{ 
 obj_t BgL_auxz00_2153;
BgL_auxz00_2153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4663L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_793); 
FAILURE(BgL_auxz00_2153,BFALSE,BFALSE);} 
BgL_arg1115z00_797 = 
CAR(BgL_pairz00_1275); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_11, 1))
{ /* Ieee/control.scm 128 */
BgL_arg1111z00_796 = 
BGL_PROCEDURE_CALL1(BgL_fz00_11, BgL_arg1115z00_797); }  else 
{ /* Ieee/control.scm 128 */
FAILURE(BGl_string1852z00zz__r4_control_features_6_9z00,BGl_list1873z00zz__r4_control_features_6_9z00,BgL_fz00_11);} } 
{ /* Ieee/control.scm 128 */
 obj_t BgL_pairz00_1276;
if(
PAIRP(BgL_lz00_793))
{ /* Ieee/control.scm 128 */
BgL_pairz00_1276 = BgL_lz00_793; }  else 
{ 
 obj_t BgL_auxz00_2167;
BgL_auxz00_2167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4653L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_793); 
FAILURE(BgL_auxz00_2167,BFALSE,BFALSE);} 
SET_CAR(BgL_pairz00_1276, BgL_arg1111z00_796); } } 
{ /* Ieee/control.scm 129 */
 obj_t BgL_arg1116z00_798;
{ /* Ieee/control.scm 129 */
 obj_t BgL_pairz00_1277;
if(
PAIRP(BgL_lz00_793))
{ /* Ieee/control.scm 129 */
BgL_pairz00_1277 = BgL_lz00_793; }  else 
{ 
 obj_t BgL_auxz00_2174;
BgL_auxz00_2174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4685L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_793); 
FAILURE(BgL_auxz00_2174,BFALSE,BFALSE);} 
BgL_arg1116z00_798 = 
CDR(BgL_pairz00_1277); } 
{ 
 obj_t BgL_lz00_2179;
BgL_lz00_2179 = BgL_arg1116z00_798; 
BgL_lz00_793 = BgL_lz00_2179; 
goto BgL_zc3z04anonymousza31109ze3z87_794;} } } } } 

}



/* 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 138 */
 bool_t BgL_test2110z00_2182;
{ /* Ieee/control.scm 138 */
 obj_t BgL_tmpz00_2183;
{ /* Ieee/control.scm 138 */
 obj_t BgL_pairz00_1278;
if(
PAIRP(BgL_lz00_14))
{ /* Ieee/control.scm 138 */
BgL_pairz00_1278 = BgL_lz00_14; }  else 
{ 
 obj_t BgL_auxz00_2186;
BgL_auxz00_2186 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4994L), BGl_string1876z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_14); 
FAILURE(BgL_auxz00_2186,BFALSE,BFALSE);} 
BgL_tmpz00_2183 = 
CDR(BgL_pairz00_1278); } 
BgL_test2110z00_2182 = 
NULLP(BgL_tmpz00_2183); } 
if(BgL_test2110z00_2182)
{ /* Ieee/control.scm 139 */
 obj_t BgL_arg1120z00_803;
{ /* Ieee/control.scm 139 */
 obj_t BgL_pairz00_1279;
if(
PAIRP(BgL_lz00_14))
{ /* Ieee/control.scm 139 */
BgL_pairz00_1279 = BgL_lz00_14; }  else 
{ 
 obj_t BgL_auxz00_2194;
BgL_auxz00_2194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5020L), BGl_string1876z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_14); 
FAILURE(BgL_auxz00_2194,BFALSE,BFALSE);} 
BgL_arg1120z00_803 = 
CAR(BgL_pairz00_1279); } 
{ /* Ieee/control.scm 139 */
 obj_t BgL_aux1653z00_1547;
BgL_aux1653z00_1547 = 
BGl_mapzd22z12zc0zz__r4_control_features_6_9z00(BgL_fz00_13, BgL_arg1120z00_803); 
{ /* Ieee/control.scm 139 */
 bool_t BgL_test2113z00_2200;
if(
PAIRP(BgL_aux1653z00_1547))
{ /* Ieee/control.scm 139 */
BgL_test2113z00_2200 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 139 */
BgL_test2113z00_2200 = 
NULLP(BgL_aux1653z00_1547)
; } 
if(BgL_test2113z00_2200)
{ /* Ieee/control.scm 139 */
return BgL_aux1653z00_1547;}  else 
{ 
 obj_t BgL_auxz00_2204;
BgL_auxz00_2204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5005L), BGl_string1876z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1653z00_1547); 
FAILURE(BgL_auxz00_2204,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/control.scm 141 */
 obj_t BgL_l0z00_804;
{ /* Ieee/control.scm 141 */
 obj_t BgL_pairz00_1280;
if(
PAIRP(BgL_lz00_14))
{ /* Ieee/control.scm 141 */
BgL_pairz00_1280 = BgL_lz00_14; }  else 
{ 
 obj_t BgL_auxz00_2210;
BgL_auxz00_2210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5059L), BGl_string1876z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_14); 
FAILURE(BgL_auxz00_2210,BFALSE,BFALSE);} 
BgL_l0z00_804 = 
CAR(BgL_pairz00_1280); } 
{ 
 obj_t BgL_lz00_806;
{ /* Ieee/control.scm 142 */
 obj_t BgL_aux1668z00_1564;
BgL_lz00_806 = BgL_lz00_14; 
BgL_zc3z04anonymousza31121ze3z87_807:
{ /* Ieee/control.scm 143 */
 bool_t BgL_test2116z00_2215;
{ /* Ieee/control.scm 143 */
 obj_t BgL_tmpz00_2216;
{ /* Ieee/control.scm 143 */
 obj_t BgL_pairz00_1281;
if(
PAIRP(BgL_lz00_806))
{ /* Ieee/control.scm 143 */
BgL_pairz00_1281 = BgL_lz00_806; }  else 
{ 
 obj_t BgL_auxz00_2219;
BgL_auxz00_2219 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5107L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_806); 
FAILURE(BgL_auxz00_2219,BFALSE,BFALSE);} 
BgL_tmpz00_2216 = 
CAR(BgL_pairz00_1281); } 
BgL_test2116z00_2215 = 
NULLP(BgL_tmpz00_2216); } 
if(BgL_test2116z00_2215)
{ /* Ieee/control.scm 143 */
BgL_aux1668z00_1564 = BgL_l0z00_804; }  else 
{ /* Ieee/control.scm 143 */
{ /* Ieee/control.scm 146 */
 obj_t BgL_arg1129z00_810; obj_t BgL_arg1130z00_811;
{ /* Ieee/control.scm 146 */
 obj_t BgL_pairz00_1282;
if(
PAIRP(BgL_lz00_806))
{ /* Ieee/control.scm 146 */
BgL_pairz00_1282 = BgL_lz00_806; }  else 
{ 
 obj_t BgL_auxz00_2227;
BgL_auxz00_2227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5148L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_806); 
FAILURE(BgL_auxz00_2227,BFALSE,BFALSE);} 
BgL_arg1129z00_810 = 
CAR(BgL_pairz00_1282); } 
{ /* Ieee/control.scm 146 */
 obj_t BgL_valz00_1558;
{ /* Ieee/control.scm 146 */
 obj_t BgL_auxz00_2232;
{ /* Ieee/control.scm 146 */
 bool_t BgL_test2119z00_2233;
if(
PAIRP(BgL_lz00_806))
{ /* Ieee/control.scm 146 */
BgL_test2119z00_2233 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 146 */
BgL_test2119z00_2233 = 
NULLP(BgL_lz00_806)
; } 
if(BgL_test2119z00_2233)
{ /* Ieee/control.scm 146 */
BgL_auxz00_2232 = BgL_lz00_806
; }  else 
{ 
 obj_t BgL_auxz00_2237;
BgL_auxz00_2237 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5171L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_806); 
FAILURE(BgL_auxz00_2237,BFALSE,BFALSE);} } 
BgL_valz00_1558 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2232); } 
{ /* Ieee/control.scm 146 */
 long BgL_len1663z00_1559;
BgL_len1663z00_1559 = 
(int)(
bgl_list_length(BgL_valz00_1558)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_13, BgL_len1663z00_1559))
{ /* Ieee/control.scm 146 */
BgL_arg1130z00_811 = 
apply(BgL_fz00_13, BgL_valz00_1558); }  else 
{ /* Ieee/control.scm 146 */
FAILURE(BGl_symbol1877z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1864z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 146 */
 obj_t BgL_pairz00_1283;
if(
PAIRP(BgL_arg1129z00_810))
{ /* Ieee/control.scm 146 */
BgL_pairz00_1283 = BgL_arg1129z00_810; }  else 
{ 
 obj_t BgL_auxz00_2251;
BgL_auxz00_2251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5149L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_arg1129z00_810); 
FAILURE(BgL_auxz00_2251,BFALSE,BFALSE);} 
SET_CAR(BgL_pairz00_1283, BgL_arg1130z00_811); } } 
{ /* Ieee/control.scm 147 */
 obj_t BgL_arg1132z00_812;
{ /* Ieee/control.scm 147 */
 obj_t BgL_auxz00_2256;
{ /* Ieee/control.scm 147 */
 bool_t BgL_test2123z00_2257;
if(
PAIRP(BgL_lz00_806))
{ /* Ieee/control.scm 147 */
BgL_test2123z00_2257 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 147 */
BgL_test2123z00_2257 = 
NULLP(BgL_lz00_806)
; } 
if(BgL_test2123z00_2257)
{ /* Ieee/control.scm 147 */
BgL_auxz00_2256 = BgL_lz00_806
; }  else 
{ 
 obj_t BgL_auxz00_2261;
BgL_auxz00_2261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5199L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_806); 
FAILURE(BgL_auxz00_2261,BFALSE,BFALSE);} } 
BgL_arg1132z00_812 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2256); } 
{ 
 obj_t BgL_lz00_2266;
BgL_lz00_2266 = BgL_arg1132z00_812; 
BgL_lz00_806 = BgL_lz00_2266; 
goto BgL_zc3z04anonymousza31121ze3z87_807;} } } } 
{ /* Ieee/control.scm 142 */
 bool_t BgL_test2125z00_2267;
if(
PAIRP(BgL_aux1668z00_1564))
{ /* Ieee/control.scm 142 */
BgL_test2125z00_2267 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 142 */
BgL_test2125z00_2267 = 
NULLP(BgL_aux1668z00_1564)
; } 
if(BgL_test2125z00_2267)
{ /* Ieee/control.scm 142 */
return BgL_aux1668z00_1564;}  else 
{ 
 obj_t BgL_auxz00_2271;
BgL_auxz00_2271 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5067L), BGl_string1876z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1668z00_1564); 
FAILURE(BgL_auxz00_2271,BFALSE,BFALSE);} } } } } } } 

}



/* &map! */
obj_t BGl_z62mapz12z70zz__r4_control_features_6_9z00(obj_t BgL_envz00_1422, obj_t BgL_fz00_1423, obj_t BgL_lz00_1424)
{
{ /* Ieee/control.scm 134 */
{ /* Ieee/control.scm 136 */
 obj_t BgL_auxz00_2275;
if(
PROCEDUREP(BgL_fz00_1423))
{ /* Ieee/control.scm 136 */
BgL_auxz00_2275 = BgL_fz00_1423
; }  else 
{ 
 obj_t BgL_auxz00_2278;
BgL_auxz00_2278 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(4952L), BGl_string1878z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1423); 
FAILURE(BgL_auxz00_2278,BFALSE,BFALSE);} 
return 
BGl_mapz12z12zz__r4_control_features_6_9z00(BgL_auxz00_2275, BgL_lz00_1424);} } 

}



/* loop~2 */
obj_t BGl_loopze72ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1491, obj_t BgL_lz00_817)
{
{ /* Ieee/control.scm 153 */
if(
NULLP(BgL_lz00_817))
{ /* Ieee/control.scm 154 */
return BNIL;}  else 
{ /* Ieee/control.scm 156 */
 obj_t BgL_arg1139z00_820; obj_t BgL_arg1141z00_821;
{ /* Ieee/control.scm 156 */
 obj_t BgL_arg1142z00_822;
{ /* Ieee/control.scm 156 */
 obj_t BgL_pairz00_1284;
if(
PAIRP(BgL_lz00_817))
{ /* Ieee/control.scm 156 */
BgL_pairz00_1284 = BgL_lz00_817; }  else 
{ 
 obj_t BgL_auxz00_2287;
BgL_auxz00_2287 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5526L), BGl_string1879z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_817); 
FAILURE(BgL_auxz00_2287,BFALSE,BFALSE);} 
BgL_arg1142z00_822 = 
CAR(BgL_pairz00_1284); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1491, 1))
{ /* Ieee/control.scm 156 */
BgL_arg1139z00_820 = 
BGL_PROCEDURE_CALL1(BgL_fz00_1491, BgL_arg1142z00_822); }  else 
{ /* Ieee/control.scm 156 */
FAILURE(BGl_string1880z00zz__r4_control_features_6_9z00,BGl_list1881z00zz__r4_control_features_6_9z00,BgL_fz00_1491);} } 
{ /* Ieee/control.scm 156 */
 obj_t BgL_arg1145z00_823;
{ /* Ieee/control.scm 156 */
 obj_t BgL_pairz00_1285;
if(
PAIRP(BgL_lz00_817))
{ /* Ieee/control.scm 156 */
BgL_pairz00_1285 = BgL_lz00_817; }  else 
{ 
 obj_t BgL_auxz00_2301;
BgL_auxz00_2301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5541L), BGl_string1879z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_817); 
FAILURE(BgL_auxz00_2301,BFALSE,BFALSE);} 
BgL_arg1145z00_823 = 
CDR(BgL_pairz00_1285); } 
BgL_arg1141z00_821 = 
BGl_loopze72ze7zz__r4_control_features_6_9z00(BgL_fz00_1491, BgL_arg1145z00_823); } 
{ /* Ieee/control.scm 156 */
 obj_t BgL_auxz00_2307;
{ /* Ieee/control.scm 156 */
 bool_t BgL_test2132z00_2308;
if(
PAIRP(BgL_arg1139z00_820))
{ /* Ieee/control.scm 156 */
BgL_test2132z00_2308 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 156 */
BgL_test2132z00_2308 = 
NULLP(BgL_arg1139z00_820)
; } 
if(BgL_test2132z00_2308)
{ /* Ieee/control.scm 156 */
BgL_auxz00_2307 = BgL_arg1139z00_820
; }  else 
{ 
 obj_t BgL_auxz00_2312;
BgL_auxz00_2312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5510L), BGl_string1879z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_arg1139z00_820); 
FAILURE(BgL_auxz00_2312,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r4_control_features_6_9z00(BgL_auxz00_2307, BgL_arg1141z00_821);} } } 

}



/* 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 165 */
 bool_t BgL_test2135z00_2319;
{ /* Ieee/control.scm 165 */
 obj_t BgL_tmpz00_2320;
{ /* Ieee/control.scm 165 */
 obj_t BgL_pairz00_1286;
if(
PAIRP(BgL_lz00_18))
{ /* Ieee/control.scm 165 */
BgL_pairz00_1286 = BgL_lz00_18; }  else 
{ 
 obj_t BgL_auxz00_2323;
BgL_auxz00_2323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5856L), BGl_string1884z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_18); 
FAILURE(BgL_auxz00_2323,BFALSE,BFALSE);} 
BgL_tmpz00_2320 = 
CDR(BgL_pairz00_1286); } 
BgL_test2135z00_2319 = 
NULLP(BgL_tmpz00_2320); } 
if(BgL_test2135z00_2319)
{ /* Ieee/control.scm 166 */
 obj_t BgL_arg1149z00_828;
{ /* Ieee/control.scm 166 */
 obj_t BgL_pairz00_1287;
if(
PAIRP(BgL_lz00_18))
{ /* Ieee/control.scm 166 */
BgL_pairz00_1287 = BgL_lz00_18; }  else 
{ 
 obj_t BgL_auxz00_2331;
BgL_auxz00_2331 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5887L), BGl_string1884z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_18); 
FAILURE(BgL_auxz00_2331,BFALSE,BFALSE);} 
BgL_arg1149z00_828 = 
CAR(BgL_pairz00_1287); } 
{ /* Ieee/control.scm 166 */
 obj_t BgL_aux1683z00_1580;
BgL_aux1683z00_1580 = 
BGl_loopze72ze7zz__r4_control_features_6_9z00(BgL_fz00_17, BgL_arg1149z00_828); 
{ /* Ieee/control.scm 166 */
 bool_t BgL_test2138z00_2337;
if(
PAIRP(BgL_aux1683z00_1580))
{ /* Ieee/control.scm 166 */
BgL_test2138z00_2337 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 166 */
BgL_test2138z00_2337 = 
NULLP(BgL_aux1683z00_1580)
; } 
if(BgL_test2138z00_2337)
{ /* Ieee/control.scm 166 */
return BgL_aux1683z00_1580;}  else 
{ 
 obj_t BgL_auxz00_2341;
BgL_auxz00_2341 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5867L), BGl_string1884z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1683z00_1580); 
FAILURE(BgL_auxz00_2341,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/control.scm 168 */
 obj_t BgL_aux1685z00_1582;
BgL_aux1685z00_1582 = 
BGl_loopze71ze7zz__r4_control_features_6_9z00(BgL_fz00_17, BgL_lz00_18); 
{ /* Ieee/control.scm 168 */
 bool_t BgL_test2140z00_2346;
if(
PAIRP(BgL_aux1685z00_1582))
{ /* Ieee/control.scm 168 */
BgL_test2140z00_2346 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 168 */
BgL_test2140z00_2346 = 
NULLP(BgL_aux1685z00_1582)
; } 
if(BgL_test2140z00_2346)
{ /* Ieee/control.scm 168 */
return BgL_aux1685z00_1582;}  else 
{ 
 obj_t BgL_auxz00_2350;
BgL_auxz00_2350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5911L), BGl_string1884z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1685z00_1582); 
FAILURE(BgL_auxz00_2350,BFALSE,BFALSE);} } } } } 

}



/* loop~1 */
obj_t BGl_loopze71ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1490, obj_t BgL_lz00_830)
{
{ /* Ieee/control.scm 168 */
{ /* Ieee/control.scm 169 */
 bool_t BgL_test2142z00_2354;
{ /* Ieee/control.scm 169 */
 obj_t BgL_tmpz00_2355;
{ /* Ieee/control.scm 169 */
 obj_t BgL_pairz00_1288;
if(
PAIRP(BgL_lz00_830))
{ /* Ieee/control.scm 169 */
BgL_pairz00_1288 = BgL_lz00_830; }  else 
{ 
 obj_t BgL_auxz00_2358;
BgL_auxz00_2358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5948L), BGl_string1885z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_830); 
FAILURE(BgL_auxz00_2358,BFALSE,BFALSE);} 
BgL_tmpz00_2355 = 
CAR(BgL_pairz00_1288); } 
BgL_test2142z00_2354 = 
NULLP(BgL_tmpz00_2355); } 
if(BgL_test2142z00_2354)
{ /* Ieee/control.scm 169 */
return BNIL;}  else 
{ /* Ieee/control.scm 171 */
 obj_t BgL_arg1155z00_834; obj_t BgL_arg1156z00_835;
{ /* Ieee/control.scm 171 */
 obj_t BgL_valz00_1589;
{ /* Ieee/control.scm 171 */
 obj_t BgL_auxz00_2364;
{ /* Ieee/control.scm 171 */
 bool_t BgL_test2144z00_2365;
if(
PAIRP(BgL_lz00_830))
{ /* Ieee/control.scm 171 */
BgL_test2144z00_2365 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 171 */
BgL_test2144z00_2365 = 
NULLP(BgL_lz00_830)
; } 
if(BgL_test2144z00_2365)
{ /* Ieee/control.scm 171 */
BgL_auxz00_2364 = BgL_lz00_830
; }  else 
{ 
 obj_t BgL_auxz00_2369;
BgL_auxz00_2369 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5998L), BGl_string1885z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_830); 
FAILURE(BgL_auxz00_2369,BFALSE,BFALSE);} } 
BgL_valz00_1589 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2364); } 
{ /* Ieee/control.scm 171 */
 long BgL_len1691z00_1590;
BgL_len1691z00_1590 = 
(int)(
bgl_list_length(BgL_valz00_1589)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1490, BgL_len1691z00_1590))
{ /* Ieee/control.scm 171 */
BgL_arg1155z00_834 = 
apply(BgL_fz00_1490, BgL_valz00_1589); }  else 
{ /* Ieee/control.scm 171 */
FAILURE(BGl_symbol1886z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1864z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 171 */
 obj_t BgL_arg1157z00_836;
{ /* Ieee/control.scm 171 */
 obj_t BgL_auxz00_2381;
{ /* Ieee/control.scm 171 */
 bool_t BgL_test2147z00_2382;
if(
PAIRP(BgL_lz00_830))
{ /* Ieee/control.scm 171 */
BgL_test2147z00_2382 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 171 */
BgL_test2147z00_2382 = 
NULLP(BgL_lz00_830)
; } 
if(BgL_test2147z00_2382)
{ /* Ieee/control.scm 171 */
BgL_auxz00_2381 = BgL_lz00_830
; }  else 
{ 
 obj_t BgL_auxz00_2386;
BgL_auxz00_2386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6019L), BGl_string1885z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_830); 
FAILURE(BgL_auxz00_2386,BFALSE,BFALSE);} } 
BgL_arg1157z00_836 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2381); } 
BgL_arg1156z00_835 = 
BGl_loopze71ze7zz__r4_control_features_6_9z00(BgL_fz00_1490, BgL_arg1157z00_836); } 
{ /* Ieee/control.scm 171 */
 obj_t BgL_auxz00_2392;
{ /* Ieee/control.scm 171 */
 bool_t BgL_test2149z00_2393;
if(
PAIRP(BgL_arg1155z00_834))
{ /* Ieee/control.scm 171 */
BgL_test2149z00_2393 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 171 */
BgL_test2149z00_2393 = 
NULLP(BgL_arg1155z00_834)
; } 
if(BgL_test2149z00_2393)
{ /* Ieee/control.scm 171 */
BgL_auxz00_2392 = BgL_arg1155z00_834
; }  else 
{ 
 obj_t BgL_auxz00_2397;
BgL_auxz00_2397 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5970L), BGl_string1885z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_arg1155z00_834); 
FAILURE(BgL_auxz00_2397,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r4_control_features_6_9z00(BgL_auxz00_2392, BgL_arg1156z00_835);} } } } 

}



/* &append-map */
obj_t BGl_z62appendzd2mapzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1425, obj_t BgL_fz00_1426, obj_t BgL_lz00_1427)
{
{ /* Ieee/control.scm 161 */
{ /* Ieee/control.scm 163 */
 obj_t BgL_auxz00_2402;
if(
PROCEDUREP(BgL_fz00_1426))
{ /* Ieee/control.scm 163 */
BgL_auxz00_2402 = BgL_fz00_1426
; }  else 
{ 
 obj_t BgL_auxz00_2405;
BgL_auxz00_2405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(5814L), BGl_string1887z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1426); 
FAILURE(BgL_auxz00_2405,BFALSE,BFALSE);} 
return 
BGl_appendzd2mapzd2zz__r4_control_features_6_9z00(BgL_auxz00_2402, BgL_lz00_1427);} } 

}



/* 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_list1169z00_853;
BgL_list1169z00_853 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_resultz00_841 = BgL_list1169z00_853; } 
{ /* 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;
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_19, 1))
{ /* Ieee/control.scm 182 */
BgL_result2z00_848 = 
BGL_PROCEDURE_CALL1(BgL_fz00_19, BgL_xz00_847); }  else 
{ /* Ieee/control.scm 182 */
FAILURE(BGl_string1888z00zz__r4_control_features_6_9z00,BGl_list1889z00zz__r4_control_features_6_9z00,BgL_fz00_19);} 
if(
PAIRP(BgL_result2z00_848))
{ /* Ieee/control.scm 183 */
{ /* Ieee/control.scm 184 */
 obj_t BgL_pairz00_1291;
{ /* Ieee/control.scm 184 */
 obj_t BgL_aux1699z00_1599;
BgL_aux1699z00_1599 = BgL_lpairz00_842; 
if(
NULLP(BgL_aux1699z00_1599))
{ 
 obj_t BgL_auxz00_2427;
BgL_auxz00_2427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6465L), BGl_string1892z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_aux1699z00_1599); 
FAILURE(BgL_auxz00_2427,BFALSE,BFALSE);}  else 
{ /* Ieee/control.scm 184 */
BgL_pairz00_1291 = BgL_aux1699z00_1599; } } 
SET_CDR(BgL_pairz00_1291, 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_2433;
BgL_l1028z00_2433 = 
CDR(BgL_l1028z00_844); 
BgL_l1028z00_844 = BgL_l1028z00_2433; 
goto BgL_zc3z04anonymousza31162ze3z87_845;} }  else 
{ /* Ieee/control.scm 181 */
if(
NULLP(BgL_l1028z00_844))
{ /* Ieee/control.scm 181 */BTRUE; }  else 
{ /* Ieee/control.scm 181 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1893z00zz__r4_control_features_6_9z00, BGl_string1894z00zz__r4_control_features_6_9z00, BgL_l1028z00_844, BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6366L)); } } } 
{ /* Ieee/control.scm 187 */
 obj_t BgL_pairz00_1293;
if(
NULLP(BgL_resultz00_841))
{ 
 obj_t BgL_auxz00_2441;
BgL_auxz00_2441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6541L), BGl_string1895z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_resultz00_841); 
FAILURE(BgL_auxz00_2441,BFALSE,BFALSE);}  else 
{ /* Ieee/control.scm 187 */
BgL_pairz00_1293 = BgL_resultz00_841; } 
return 
CDR(BgL_pairz00_1293);} } } } } 

}



/* 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 196 */
 bool_t BgL_test2160z00_2448;
{ /* Ieee/control.scm 196 */
 obj_t BgL_tmpz00_2449;
{ /* Ieee/control.scm 196 */
 obj_t BgL_pairz00_1294;
if(
PAIRP(BgL_lz00_22))
{ /* Ieee/control.scm 196 */
BgL_pairz00_1294 = BgL_lz00_22; }  else 
{ 
 obj_t BgL_auxz00_2452;
BgL_auxz00_2452 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6860L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_22); 
FAILURE(BgL_auxz00_2452,BFALSE,BFALSE);} 
BgL_tmpz00_2449 = 
CDR(BgL_pairz00_1294); } 
BgL_test2160z00_2448 = 
NULLP(BgL_tmpz00_2449); } 
if(BgL_test2160z00_2448)
{ /* Ieee/control.scm 197 */
 obj_t BgL_arg1189z00_857;
{ /* Ieee/control.scm 197 */
 obj_t BgL_pairz00_1295;
if(
PAIRP(BgL_lz00_22))
{ /* Ieee/control.scm 197 */
BgL_pairz00_1295 = BgL_lz00_22; }  else 
{ 
 obj_t BgL_auxz00_2460;
BgL_auxz00_2460 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6892L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_22); 
FAILURE(BgL_auxz00_2460,BFALSE,BFALSE);} 
BgL_arg1189z00_857 = 
CAR(BgL_pairz00_1295); } 
{ /* Ieee/control.scm 197 */
 obj_t BgL_aux1707z00_1607;
BgL_aux1707z00_1607 = 
BGl_appendzd2map2z12zc0zz__r4_control_features_6_9z00(BgL_fz00_21, BgL_arg1189z00_857); 
{ /* Ieee/control.scm 197 */
 bool_t BgL_test2163z00_2466;
if(
PAIRP(BgL_aux1707z00_1607))
{ /* Ieee/control.scm 197 */
BgL_test2163z00_2466 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 197 */
BgL_test2163z00_2466 = 
NULLP(BgL_aux1707z00_1607)
; } 
if(BgL_test2163z00_2466)
{ /* Ieee/control.scm 197 */
return BgL_aux1707z00_1607;}  else 
{ 
 obj_t BgL_auxz00_2470;
BgL_auxz00_2470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6871L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1707z00_1607); 
FAILURE(BgL_auxz00_2470,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/control.scm 199 */
 bool_t BgL_test2165z00_2474;
{ /* Ieee/control.scm 199 */
 obj_t BgL_tmpz00_2475;
{ /* Ieee/control.scm 199 */
 obj_t BgL_pairz00_1296;
if(
PAIRP(BgL_lz00_22))
{ /* Ieee/control.scm 199 */
BgL_pairz00_1296 = BgL_lz00_22; }  else 
{ 
 obj_t BgL_auxz00_2478;
BgL_auxz00_2478 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6932L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_22); 
FAILURE(BgL_auxz00_2478,BFALSE,BFALSE);} 
BgL_tmpz00_2475 = 
CAR(BgL_pairz00_1296); } 
BgL_test2165z00_2474 = 
NULLP(BgL_tmpz00_2475); } 
if(BgL_test2165z00_2474)
{ /* Ieee/control.scm 199 */
return BNIL;}  else 
{ /* Ieee/control.scm 201 */
 obj_t BgL_resultz00_860;
{ /* Ieee/control.scm 201 */
 obj_t BgL_list1200z00_871;
BgL_list1200z00_871 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_resultz00_860 = BgL_list1200z00_871; } 
{ /* Ieee/control.scm 201 */
 obj_t BgL_lpairz00_1437;
BgL_lpairz00_1437 = 
BGL_MAKE_UNSAFE_CELL(BgL_resultz00_860); 
{ /* Ieee/control.scm 202 */

{ /* Ieee/control.scm 203 */
 obj_t BgL_runner1199z00_870;
{ /* Ieee/control.scm 204 */
 obj_t BgL_zc3z04anonymousza31196ze3z87_1428;
BgL_zc3z04anonymousza31196ze3z87_1428 = 
MAKE_VA_PROCEDURE(BGl_z62zc3z04anonymousza31196ze3ze5zz__r4_control_features_6_9z00, 
(int)((-1L)), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31196ze3z87_1428, 
(int)(0L), BgL_fz00_21); 
PROCEDURE_SET(BgL_zc3z04anonymousza31196ze3z87_1428, 
(int)(1L), 
((obj_t)BgL_lpairz00_1437)); 
{ /* Ieee/control.scm 203 */
 obj_t BgL_list1195z00_863;
BgL_list1195z00_863 = 
MAKE_YOUNG_PAIR(BgL_lz00_22, BNIL); 
BgL_runner1199z00_870 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_zc3z04anonymousza31196ze3z87_1428, BgL_list1195z00_863); } } 
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1198z00_869;
{ /* Ieee/control.scm 203 */
 obj_t BgL_pairz00_1299;
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1711z00_1611;
BgL_aux1711z00_1611 = BgL_runner1199z00_870; 
if(
PAIRP(BgL_aux1711z00_1611))
{ /* Ieee/control.scm 203 */
BgL_pairz00_1299 = BgL_aux1711z00_1611; }  else 
{ 
 obj_t BgL_auxz00_2497;
BgL_auxz00_2497 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7008L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_aux1711z00_1611); 
FAILURE(BgL_auxz00_2497,BFALSE,BFALSE);} } 
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1713z00_1613;
BgL_aux1713z00_1613 = 
CAR(BgL_pairz00_1299); 
if(
PROCEDUREP(BgL_aux1713z00_1613))
{ /* Ieee/control.scm 203 */
BgL_aux1198z00_869 = BgL_aux1713z00_1613; }  else 
{ 
 obj_t BgL_auxz00_2504;
BgL_auxz00_2504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7008L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1713z00_1613); 
FAILURE(BgL_auxz00_2504,BFALSE,BFALSE);} } } 
{ /* Ieee/control.scm 203 */
 obj_t BgL_pairz00_1300;
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1715z00_1615;
BgL_aux1715z00_1615 = BgL_runner1199z00_870; 
if(
PAIRP(BgL_aux1715z00_1615))
{ /* Ieee/control.scm 203 */
BgL_pairz00_1300 = BgL_aux1715z00_1615; }  else 
{ 
 obj_t BgL_auxz00_2510;
BgL_auxz00_2510 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7008L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_aux1715z00_1615); 
FAILURE(BgL_auxz00_2510,BFALSE,BFALSE);} } 
BgL_runner1199z00_870 = 
CDR(BgL_pairz00_1300); } 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BgL_aux1198z00_869, BgL_runner1199z00_870); } } 
{ /* Ieee/control.scm 209 */
 obj_t BgL_pairz00_1301;
if(
NULLP(BgL_resultz00_860))
{ 
 obj_t BgL_auxz00_2518;
BgL_auxz00_2518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7208L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_resultz00_860); 
FAILURE(BgL_auxz00_2518,BFALSE,BFALSE);}  else 
{ /* Ieee/control.scm 209 */
BgL_pairz00_1301 = BgL_resultz00_860; } 
{ /* Ieee/control.scm 209 */
 obj_t BgL_aux1719z00_1619;
BgL_aux1719z00_1619 = 
CDR(BgL_pairz00_1301); 
{ /* Ieee/control.scm 209 */
 bool_t BgL_test2171z00_2523;
if(
PAIRP(BgL_aux1719z00_1619))
{ /* Ieee/control.scm 209 */
BgL_test2171z00_2523 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 209 */
BgL_test2171z00_2523 = 
NULLP(BgL_aux1719z00_1619)
; } 
if(BgL_test2171z00_2523)
{ /* Ieee/control.scm 209 */
return BgL_aux1719z00_1619;}  else 
{ 
 obj_t BgL_auxz00_2527;
BgL_auxz00_2527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7203L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1719z00_1619); 
FAILURE(BgL_auxz00_2527,BFALSE,BFALSE);} } } } } } } } } } 

}



/* &append-map! */
obj_t BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00(obj_t BgL_envz00_1429, obj_t BgL_fz00_1430, obj_t BgL_lz00_1431)
{
{ /* Ieee/control.scm 192 */
{ /* Ieee/control.scm 194 */
 obj_t BgL_auxz00_2531;
if(
PROCEDUREP(BgL_fz00_1430))
{ /* Ieee/control.scm 194 */
BgL_auxz00_2531 = BgL_fz00_1430
; }  else 
{ 
 obj_t BgL_auxz00_2534;
BgL_auxz00_2534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(6818L), BGl_string1897z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1430); 
FAILURE(BgL_auxz00_2534,BFALSE,BFALSE);} 
return 
BGl_appendzd2mapz12zc0zz__r4_control_features_6_9z00(BgL_auxz00_2531, BgL_lz00_1431);} } 

}



/* &<@anonymous:1196> */
obj_t BGl_z62zc3z04anonymousza31196ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1432, obj_t BgL_xsz00_1435)
{
{ /* Ieee/control.scm 203 */
{ /* Ieee/control.scm 204 */
 obj_t BgL_fz00_1433; obj_t BgL_lpairz00_1434;
BgL_fz00_1433 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1432, 
(int)(0L))); 
BgL_lpairz00_1434 = 
PROCEDURE_REF(BgL_envz00_1432, 
(int)(1L)); 
{ /* Ieee/control.scm 204 */
 obj_t BgL_result2z00_1809;
{ /* Ieee/control.scm 204 */
 obj_t BgL_valz00_1810;
{ /* Ieee/control.scm 204 */
 bool_t BgL_test2174z00_2544;
if(
PAIRP(BgL_xsz00_1435))
{ /* Ieee/control.scm 204 */
BgL_test2174z00_2544 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 204 */
BgL_test2174z00_2544 = 
NULLP(BgL_xsz00_1435)
; } 
if(BgL_test2174z00_2544)
{ /* Ieee/control.scm 204 */
BgL_valz00_1810 = BgL_xsz00_1435; }  else 
{ 
 obj_t BgL_auxz00_2548;
BgL_auxz00_2548 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7055L), BGl_string1898z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_xsz00_1435); 
FAILURE(BgL_auxz00_2548,BFALSE,BFALSE);} } 
{ /* Ieee/control.scm 204 */
 long BgL_len1725z00_1812;
BgL_len1725z00_1812 = 
(int)(
bgl_list_length(BgL_valz00_1810)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1433, BgL_len1725z00_1812))
{ /* Ieee/control.scm 204 */
BgL_result2z00_1809 = 
apply(BgL_fz00_1433, BgL_valz00_1810); }  else 
{ /* Ieee/control.scm 204 */
FAILURE(BGl_symbol1899z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1900z00zz__r4_control_features_6_9z00);} } } 
if(
PAIRP(BgL_result2z00_1809))
{ /* Ieee/control.scm 205 */
{ /* Ieee/control.scm 206 */
 obj_t BgL_pairz00_1813;
{ /* Ieee/control.scm 206 */
 obj_t BgL_aux1726z00_1814;
BgL_aux1726z00_1814 = 
BGL_UNSAFE_CELL_REF(BgL_lpairz00_1434); 
if(
PAIRP(BgL_aux1726z00_1814))
{ /* Ieee/control.scm 206 */
BgL_pairz00_1813 = BgL_aux1726z00_1814; }  else 
{ 
 obj_t BgL_auxz00_2563;
BgL_auxz00_2563 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7121L), BGl_string1898z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_aux1726z00_1814); 
FAILURE(BgL_auxz00_2563,BFALSE,BFALSE);} } 
SET_CDR(BgL_pairz00_1813, BgL_result2z00_1809); } 
{ /* Ieee/control.scm 207 */
 obj_t BgL_auxz00_1815;
BgL_auxz00_1815 = 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_result2z00_1809); 
return 
BGL_UNSAFE_CELL_SET(BgL_lpairz00_1434, BgL_auxz00_1815);} }  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_876; obj_t BgL_resz00_877;
BgL_lz00_876 = BgL_lz00_24; 
BgL_resz00_877 = BNIL; 
BgL_zc3z04anonymousza31203ze3z87_878:
if(
NULLP(BgL_lz00_876))
{ /* Ieee/control.scm 217 */
return 
bgl_reverse_bang(BgL_resz00_877);}  else 
{ /* Ieee/control.scm 219 */
 obj_t BgL_hdz00_880;
{ /* Ieee/control.scm 219 */
 obj_t BgL_arg1211z00_884;
{ /* Ieee/control.scm 219 */
 obj_t BgL_pairz00_1302;
if(
PAIRP(BgL_lz00_876))
{ /* Ieee/control.scm 219 */
BgL_pairz00_1302 = BgL_lz00_876; }  else 
{ 
 obj_t BgL_auxz00_2574;
BgL_auxz00_2574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7570L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_876); 
FAILURE(BgL_auxz00_2574,BFALSE,BFALSE);} 
BgL_arg1211z00_884 = 
CAR(BgL_pairz00_1302); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_23, 1))
{ /* Ieee/control.scm 219 */
BgL_hdz00_880 = 
BGL_PROCEDURE_CALL1(BgL_fz00_23, BgL_arg1211z00_884); }  else 
{ /* Ieee/control.scm 219 */
FAILURE(BGl_string1852z00zz__r4_control_features_6_9z00,BGl_list1903z00zz__r4_control_features_6_9z00,BgL_fz00_23);} } 
if(
CBOOL(BgL_hdz00_880))
{ /* Ieee/control.scm 221 */
 obj_t BgL_arg1206z00_881; obj_t BgL_arg1207z00_882;
{ /* Ieee/control.scm 221 */
 obj_t BgL_pairz00_1303;
if(
PAIRP(BgL_lz00_876))
{ /* Ieee/control.scm 221 */
BgL_pairz00_1303 = BgL_lz00_876; }  else 
{ 
 obj_t BgL_auxz00_2590;
BgL_auxz00_2590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7603L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_876); 
FAILURE(BgL_auxz00_2590,BFALSE,BFALSE);} 
BgL_arg1206z00_881 = 
CDR(BgL_pairz00_1303); } 
BgL_arg1207z00_882 = 
MAKE_YOUNG_PAIR(BgL_hdz00_880, BgL_resz00_877); 
{ 
 obj_t BgL_resz00_2597; obj_t BgL_lz00_2596;
BgL_lz00_2596 = BgL_arg1206z00_881; 
BgL_resz00_2597 = BgL_arg1207z00_882; 
BgL_resz00_877 = BgL_resz00_2597; 
BgL_lz00_876 = BgL_lz00_2596; 
goto BgL_zc3z04anonymousza31203ze3z87_878;} }  else 
{ /* Ieee/control.scm 222 */
 obj_t BgL_arg1208z00_883;
{ /* Ieee/control.scm 222 */
 obj_t BgL_pairz00_1304;
if(
PAIRP(BgL_lz00_876))
{ /* Ieee/control.scm 222 */
BgL_pairz00_1304 = BgL_lz00_876; }  else 
{ 
 obj_t BgL_auxz00_2600;
BgL_auxz00_2600 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7635L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_876); 
FAILURE(BgL_auxz00_2600,BFALSE,BFALSE);} 
BgL_arg1208z00_883 = 
CDR(BgL_pairz00_1304); } 
{ 
 obj_t BgL_lz00_2605;
BgL_lz00_2605 = BgL_arg1208z00_883; 
BgL_lz00_876 = BgL_lz00_2605; 
goto BgL_zc3z04anonymousza31203ze3z87_878;} } } } } 

}



/* 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 231 */
 bool_t BgL_test2186z00_2608;
{ /* Ieee/control.scm 231 */
 obj_t BgL_tmpz00_2609;
{ /* Ieee/control.scm 231 */
 obj_t BgL_pairz00_1305;
if(
PAIRP(BgL_lz00_26))
{ /* Ieee/control.scm 231 */
BgL_pairz00_1305 = BgL_lz00_26; }  else 
{ 
 obj_t BgL_auxz00_2612;
BgL_auxz00_2612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7955L), BGl_string1906z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_26); 
FAILURE(BgL_auxz00_2612,BFALSE,BFALSE);} 
BgL_tmpz00_2609 = 
CDR(BgL_pairz00_1305); } 
BgL_test2186z00_2608 = 
NULLP(BgL_tmpz00_2609); } 
if(BgL_test2186z00_2608)
{ /* Ieee/control.scm 232 */
 obj_t BgL_arg1215z00_889;
{ /* Ieee/control.scm 232 */
 obj_t BgL_pairz00_1306;
if(
PAIRP(BgL_lz00_26))
{ /* Ieee/control.scm 232 */
BgL_pairz00_1306 = BgL_lz00_26; }  else 
{ 
 obj_t BgL_auxz00_2620;
BgL_auxz00_2620 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7987L), BGl_string1906z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_26); 
FAILURE(BgL_auxz00_2620,BFALSE,BFALSE);} 
BgL_arg1215z00_889 = 
CAR(BgL_pairz00_1306); } 
BGL_TAIL return 
BGl_filterzd2mapzd22z00zz__r4_control_features_6_9z00(BgL_fz00_25, BgL_arg1215z00_889);}  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_1489, obj_t BgL_lz00_891)
{
{ /* Ieee/control.scm 234 */
BGl_loopze70ze7zz__r4_control_features_6_9z00:
{ /* Ieee/control.scm 235 */
 bool_t BgL_test2189z00_2627;
{ /* Ieee/control.scm 235 */
 obj_t BgL_tmpz00_2628;
{ /* Ieee/control.scm 235 */
 obj_t BgL_pairz00_1307;
if(
PAIRP(BgL_lz00_891))
{ /* Ieee/control.scm 235 */
BgL_pairz00_1307 = BgL_lz00_891; }  else 
{ 
 obj_t BgL_auxz00_2631;
BgL_auxz00_2631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8048L), BGl_string1907z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_891); 
FAILURE(BgL_auxz00_2631,BFALSE,BFALSE);} 
BgL_tmpz00_2628 = 
CAR(BgL_pairz00_1307); } 
BgL_test2189z00_2627 = 
NULLP(BgL_tmpz00_2628); } 
if(BgL_test2189z00_2627)
{ /* Ieee/control.scm 235 */
return BNIL;}  else 
{ /* Ieee/control.scm 237 */
 obj_t BgL_hdz00_895;
{ /* Ieee/control.scm 237 */
 obj_t BgL_valz00_1647;
{ /* Ieee/control.scm 237 */
 obj_t BgL_auxz00_2637;
{ /* Ieee/control.scm 237 */
 bool_t BgL_test2191z00_2638;
if(
PAIRP(BgL_lz00_891))
{ /* Ieee/control.scm 237 */
BgL_test2191z00_2638 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 237 */
BgL_test2191z00_2638 = 
NULLP(BgL_lz00_891)
; } 
if(BgL_test2191z00_2638)
{ /* Ieee/control.scm 237 */
BgL_auxz00_2637 = BgL_lz00_891
; }  else 
{ 
 obj_t BgL_auxz00_2642;
BgL_auxz00_2642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8100L), BGl_string1907z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_891); 
FAILURE(BgL_auxz00_2642,BFALSE,BFALSE);} } 
BgL_valz00_1647 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2637); } 
{ /* Ieee/control.scm 237 */
 long BgL_len1743z00_1648;
BgL_len1743z00_1648 = 
(int)(
bgl_list_length(BgL_valz00_1647)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1489, BgL_len1743z00_1648))
{ /* Ieee/control.scm 237 */
BgL_hdz00_895 = 
apply(BgL_fz00_1489, BgL_valz00_1647); }  else 
{ /* Ieee/control.scm 237 */
FAILURE(BGl_symbol1908z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1864z00zz__r4_control_features_6_9z00);} } } 
if(
CBOOL(BgL_hdz00_895))
{ /* Ieee/control.scm 239 */
 obj_t BgL_arg1219z00_896;
{ /* Ieee/control.scm 239 */
 obj_t BgL_arg1224z00_897;
{ /* Ieee/control.scm 239 */
 obj_t BgL_auxz00_2656;
{ /* Ieee/control.scm 239 */
 bool_t BgL_test2195z00_2657;
if(
PAIRP(BgL_lz00_891))
{ /* Ieee/control.scm 239 */
BgL_test2195z00_2657 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 239 */
BgL_test2195z00_2657 = 
NULLP(BgL_lz00_891)
; } 
if(BgL_test2195z00_2657)
{ /* Ieee/control.scm 239 */
BgL_auxz00_2656 = BgL_lz00_891
; }  else 
{ 
 obj_t BgL_auxz00_2661;
BgL_auxz00_2661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8149L), BGl_string1907z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_891); 
FAILURE(BgL_auxz00_2661,BFALSE,BFALSE);} } 
BgL_arg1224z00_897 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2656); } 
BgL_arg1219z00_896 = 
BGl_loopze70ze7zz__r4_control_features_6_9z00(BgL_fz00_1489, BgL_arg1224z00_897); } 
return 
MAKE_YOUNG_PAIR(BgL_hdz00_895, BgL_arg1219z00_896);}  else 
{ /* Ieee/control.scm 240 */
 obj_t BgL_arg1225z00_898;
{ /* Ieee/control.scm 240 */
 obj_t BgL_auxz00_2668;
{ /* Ieee/control.scm 240 */
 bool_t BgL_test2197z00_2669;
if(
PAIRP(BgL_lz00_891))
{ /* Ieee/control.scm 240 */
BgL_test2197z00_2669 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 240 */
BgL_test2197z00_2669 = 
NULLP(BgL_lz00_891)
; } 
if(BgL_test2197z00_2669)
{ /* Ieee/control.scm 240 */
BgL_auxz00_2668 = BgL_lz00_891
; }  else 
{ 
 obj_t BgL_auxz00_2673;
BgL_auxz00_2673 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8178L), BGl_string1907z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_891); 
FAILURE(BgL_auxz00_2673,BFALSE,BFALSE);} } 
BgL_arg1225z00_898 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2668); } 
{ 
 obj_t BgL_lz00_2678;
BgL_lz00_2678 = BgL_arg1225z00_898; 
BgL_lz00_891 = BgL_lz00_2678; 
goto BGl_loopze70ze7zz__r4_control_features_6_9z00;} } } } } 

}



/* &filter-map */
obj_t BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1439, obj_t BgL_fz00_1440, obj_t BgL_lz00_1441)
{
{ /* Ieee/control.scm 227 */
{ /* Ieee/control.scm 229 */
 obj_t BgL_auxz00_2679;
if(
PROCEDUREP(BgL_fz00_1440))
{ /* Ieee/control.scm 229 */
BgL_auxz00_2679 = BgL_fz00_1440
; }  else 
{ 
 obj_t BgL_auxz00_2682;
BgL_auxz00_2682 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(7913L), BGl_string1909z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1440); 
FAILURE(BgL_auxz00_2682,BFALSE,BFALSE);} 
return 
BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(BgL_auxz00_2679, BgL_lz00_1441);} } 

}



/* 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_903;
BgL_lz00_903 = BgL_lz00_28; 
BgL_zc3z04anonymousza31231ze3z87_904:
if(
NULLP(BgL_lz00_903))
{ /* Ieee/control.scm 247 */
return BUNSPEC;}  else 
{ /* Ieee/control.scm 247 */
{ /* Ieee/control.scm 250 */
 obj_t BgL_arg1234z00_906;
{ /* Ieee/control.scm 250 */
 obj_t BgL_pairz00_1308;
if(
PAIRP(BgL_lz00_903))
{ /* Ieee/control.scm 250 */
BgL_pairz00_1308 = BgL_lz00_903; }  else 
{ 
 obj_t BgL_auxz00_2691;
BgL_auxz00_2691 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8518L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_903); 
FAILURE(BgL_auxz00_2691,BFALSE,BFALSE);} 
BgL_arg1234z00_906 = 
CAR(BgL_pairz00_1308); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_27, 1))
{ /* Ieee/control.scm 250 */
BGL_PROCEDURE_CALL1(BgL_fz00_27, BgL_arg1234z00_906); }  else 
{ /* Ieee/control.scm 250 */
FAILURE(BGl_string1852z00zz__r4_control_features_6_9z00,BGl_list1910z00zz__r4_control_features_6_9z00,BgL_fz00_27);} } 
{ /* Ieee/control.scm 251 */
 obj_t BgL_arg1235z00_907;
{ /* Ieee/control.scm 251 */
 obj_t BgL_pairz00_1309;
if(
PAIRP(BgL_lz00_903))
{ /* Ieee/control.scm 251 */
BgL_pairz00_1309 = BgL_lz00_903; }  else 
{ 
 obj_t BgL_auxz00_2705;
BgL_auxz00_2705 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8539L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_903); 
FAILURE(BgL_auxz00_2705,BFALSE,BFALSE);} 
BgL_arg1235z00_907 = 
CDR(BgL_pairz00_1309); } 
{ 
 obj_t BgL_lz00_2710;
BgL_lz00_2710 = BgL_arg1235z00_907; 
BgL_lz00_903 = BgL_lz00_2710; 
goto BgL_zc3z04anonymousza31231ze3z87_904;} } } } } 

}



/* &for-each-2 */
obj_t BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1442, obj_t BgL_fz00_1443, obj_t BgL_lz00_1444)
{
{ /* Ieee/control.scm 245 */
{ /* Ieee/control.scm 247 */
 obj_t BgL_auxz00_2718; obj_t BgL_auxz00_2711;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1444))
{ /* Ieee/control.scm 247 */
BgL_auxz00_2718 = BgL_lz00_1444
; }  else 
{ 
 obj_t BgL_auxz00_2721;
BgL_auxz00_2721 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8464L), BGl_string1913z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_1444); 
FAILURE(BgL_auxz00_2721,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_fz00_1443))
{ /* Ieee/control.scm 247 */
BgL_auxz00_2711 = BgL_fz00_1443
; }  else 
{ 
 obj_t BgL_auxz00_2714;
BgL_auxz00_2714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8464L), BGl_string1913z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1443); 
FAILURE(BgL_auxz00_2714,BFALSE,BFALSE);} 
return 
BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(BgL_auxz00_2711, BgL_auxz00_2718);} } 

}



/* 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 260 */
 bool_t BgL_test2207z00_2728;
{ /* Ieee/control.scm 260 */
 obj_t BgL_tmpz00_2729;
{ /* Ieee/control.scm 260 */
 obj_t BgL_pairz00_1310;
if(
PAIRP(BgL_lz00_30))
{ /* Ieee/control.scm 260 */
BgL_pairz00_1310 = BgL_lz00_30; }  else 
{ 
 obj_t BgL_auxz00_2732;
BgL_auxz00_2732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8861L), BGl_string1893z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_30); 
FAILURE(BgL_auxz00_2732,BFALSE,BFALSE);} 
BgL_tmpz00_2729 = 
CDR(BgL_pairz00_1310); } 
BgL_test2207z00_2728 = 
NULLP(BgL_tmpz00_2729); } 
if(BgL_test2207z00_2728)
{ /* Ieee/control.scm 261 */
 obj_t BgL_arg1241z00_912;
{ /* Ieee/control.scm 261 */
 obj_t BgL_pairz00_1311;
if(
PAIRP(BgL_lz00_30))
{ /* Ieee/control.scm 261 */
BgL_pairz00_1311 = BgL_lz00_30; }  else 
{ 
 obj_t BgL_auxz00_2740;
BgL_auxz00_2740 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8891L), BGl_string1893z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_30); 
FAILURE(BgL_auxz00_2740,BFALSE,BFALSE);} 
BgL_arg1241z00_912 = 
CAR(BgL_pairz00_1311); } 
{ /* Ieee/control.scm 261 */
 obj_t BgL_auxz00_2745;
{ /* Ieee/control.scm 261 */
 bool_t BgL_test2210z00_2746;
if(
PAIRP(BgL_arg1241z00_912))
{ /* Ieee/control.scm 261 */
BgL_test2210z00_2746 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 261 */
BgL_test2210z00_2746 = 
NULLP(BgL_arg1241z00_912)
; } 
if(BgL_test2210z00_2746)
{ /* Ieee/control.scm 261 */
BgL_auxz00_2745 = BgL_arg1241z00_912
; }  else 
{ 
 obj_t BgL_auxz00_2750;
BgL_auxz00_2750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8892L), BGl_string1893z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_arg1241z00_912); 
FAILURE(BgL_auxz00_2750,BFALSE,BFALSE);} } 
return 
BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(BgL_fz00_29, BgL_auxz00_2745);} }  else 
{ 
 obj_t BgL_lz00_914;
BgL_lz00_914 = BgL_lz00_30; 
BgL_zc3z04anonymousza31242ze3z87_915:
{ /* Ieee/control.scm 264 */
 bool_t BgL_test2212z00_2755;
{ /* Ieee/control.scm 264 */
 obj_t BgL_tmpz00_2756;
{ /* Ieee/control.scm 264 */
 obj_t BgL_pairz00_1312;
if(
PAIRP(BgL_lz00_914))
{ /* Ieee/control.scm 264 */
BgL_pairz00_1312 = BgL_lz00_914; }  else 
{ 
 obj_t BgL_auxz00_2759;
BgL_auxz00_2759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8952L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_914); 
FAILURE(BgL_auxz00_2759,BFALSE,BFALSE);} 
BgL_tmpz00_2756 = 
CAR(BgL_pairz00_1312); } 
BgL_test2212z00_2755 = 
NULLP(BgL_tmpz00_2756); } 
if(BgL_test2212z00_2755)
{ /* Ieee/control.scm 264 */
return BUNSPEC;}  else 
{ /* Ieee/control.scm 264 */
{ /* Ieee/control.scm 267 */
 obj_t BgL_valz00_1676;
{ /* Ieee/control.scm 267 */
 obj_t BgL_auxz00_2765;
{ /* Ieee/control.scm 267 */
 bool_t BgL_test2214z00_2766;
if(
PAIRP(BgL_lz00_914))
{ /* Ieee/control.scm 267 */
BgL_test2214z00_2766 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 267 */
BgL_test2214z00_2766 = 
NULLP(BgL_lz00_914)
; } 
if(BgL_test2214z00_2766)
{ /* Ieee/control.scm 267 */
BgL_auxz00_2765 = BgL_lz00_914
; }  else 
{ 
 obj_t BgL_auxz00_2770;
BgL_auxz00_2770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9013L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_914); 
FAILURE(BgL_auxz00_2770,BFALSE,BFALSE);} } 
BgL_valz00_1676 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2765); } 
{ /* Ieee/control.scm 267 */
 long BgL_len1769z00_1677;
BgL_len1769z00_1677 = 
(int)(
bgl_list_length(BgL_valz00_1676)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_29, BgL_len1769z00_1677))
{ /* Ieee/control.scm 267 */
apply(BgL_fz00_29, BgL_valz00_1676); }  else 
{ /* Ieee/control.scm 267 */
FAILURE(BGl_symbol1877z00zz__r4_control_features_6_9z00,BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1864z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 268 */
 obj_t BgL_arg1252z00_918;
{ /* Ieee/control.scm 268 */
 obj_t BgL_auxz00_2782;
{ /* Ieee/control.scm 268 */
 bool_t BgL_test2217z00_2783;
if(
PAIRP(BgL_lz00_914))
{ /* Ieee/control.scm 268 */
BgL_test2217z00_2783 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 268 */
BgL_test2217z00_2783 = 
NULLP(BgL_lz00_914)
; } 
if(BgL_test2217z00_2783)
{ /* Ieee/control.scm 268 */
BgL_auxz00_2782 = BgL_lz00_914
; }  else 
{ 
 obj_t BgL_auxz00_2787;
BgL_auxz00_2787 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9037L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_914); 
FAILURE(BgL_auxz00_2787,BFALSE,BFALSE);} } 
BgL_arg1252z00_918 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2782); } 
{ 
 obj_t BgL_lz00_2792;
BgL_lz00_2792 = BgL_arg1252z00_918; 
BgL_lz00_914 = BgL_lz00_2792; 
goto BgL_zc3z04anonymousza31242ze3z87_915;} } } } } } } 

}



/* &for-each */
obj_t BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1445, obj_t BgL_fz00_1446, obj_t BgL_lz00_1447)
{
{ /* Ieee/control.scm 256 */
{ /* Ieee/control.scm 258 */
 obj_t BgL_auxz00_2793;
if(
PROCEDUREP(BgL_fz00_1446))
{ /* Ieee/control.scm 258 */
BgL_auxz00_2793 = BgL_fz00_1446
; }  else 
{ 
 obj_t BgL_auxz00_2796;
BgL_auxz00_2796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(8810L), BGl_string1914z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_fz00_1446); 
FAILURE(BgL_auxz00_2796,BFALSE,BFALSE);} 
return 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BgL_auxz00_2793, BgL_lz00_1447);} } 

}



/* 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_922;
BgL_hookz00_922 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ 
 obj_t BgL_lz00_924; obj_t BgL_hz00_925;
{ /* Ieee/control.scm 275 */
 obj_t BgL_aux1783z00_1692;
BgL_lz00_924 = BgL_lz00_32; 
BgL_hz00_925 = BgL_hookz00_922; 
BgL_zc3z04anonymousza31255ze3z87_926:
if(
NULLP(BgL_lz00_924))
{ /* Ieee/control.scm 278 */
BgL_aux1783z00_1692 = 
CDR(BgL_hookz00_922); }  else 
{ /* Ieee/control.scm 280 */
 bool_t BgL_test2221z00_2805;
{ /* Ieee/control.scm 280 */
 obj_t BgL_arg1265z00_934;
{ /* Ieee/control.scm 280 */
 obj_t BgL_pairz00_1314;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/control.scm 280 */
BgL_pairz00_1314 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_2808;
BgL_auxz00_2808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9420L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_2808,BFALSE,BFALSE);} 
BgL_arg1265z00_934 = 
CAR(BgL_pairz00_1314); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_31, 1))
{ /* Ieee/control.scm 280 */
BgL_test2221z00_2805 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_31, BgL_arg1265z00_934))
; }  else 
{ /* Ieee/control.scm 280 */
FAILURE(BGl_string1852z00zz__r4_control_features_6_9z00,BGl_list1915z00zz__r4_control_features_6_9z00,BgL_predz00_31);} } 
if(BgL_test2221z00_2805)
{ /* Ieee/control.scm 281 */
 obj_t BgL_nhz00_930;
{ /* Ieee/control.scm 281 */
 obj_t BgL_arg1262z00_932;
{ /* Ieee/control.scm 281 */
 obj_t BgL_pairz00_1315;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/control.scm 281 */
BgL_pairz00_1315 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_2823;
BgL_auxz00_2823 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9451L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_2823,BFALSE,BFALSE);} 
BgL_arg1262z00_932 = 
CAR(BgL_pairz00_1315); } 
BgL_nhz00_930 = 
MAKE_YOUNG_PAIR(BgL_arg1262z00_932, BNIL); } 
SET_CDR(BgL_hz00_925, BgL_nhz00_930); 
{ /* Ieee/control.scm 283 */
 obj_t BgL_arg1261z00_931;
{ /* Ieee/control.scm 283 */
 obj_t BgL_pairz00_1317;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/control.scm 283 */
BgL_pairz00_1317 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_2832;
BgL_auxz00_2832 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9492L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_2832,BFALSE,BFALSE);} 
BgL_arg1261z00_931 = 
CDR(BgL_pairz00_1317); } 
{ 
 obj_t BgL_hz00_2838; obj_t BgL_lz00_2837;
BgL_lz00_2837 = BgL_arg1261z00_931; 
BgL_hz00_2838 = BgL_nhz00_930; 
BgL_hz00_925 = BgL_hz00_2838; 
BgL_lz00_924 = BgL_lz00_2837; 
goto BgL_zc3z04anonymousza31255ze3z87_926;} } }  else 
{ /* Ieee/control.scm 285 */
 obj_t BgL_arg1263z00_933;
{ /* Ieee/control.scm 285 */
 obj_t BgL_pairz00_1318;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/control.scm 285 */
BgL_pairz00_1318 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_2841;
BgL_auxz00_2841 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9529L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_2841,BFALSE,BFALSE);} 
BgL_arg1263z00_933 = 
CDR(BgL_pairz00_1318); } 
{ 
 obj_t BgL_lz00_2846;
BgL_lz00_2846 = BgL_arg1263z00_933; 
BgL_lz00_924 = BgL_lz00_2846; 
goto BgL_zc3z04anonymousza31255ze3z87_926;} } } 
{ /* Ieee/control.scm 275 */
 bool_t BgL_test2227z00_2847;
if(
PAIRP(BgL_aux1783z00_1692))
{ /* Ieee/control.scm 275 */
BgL_test2227z00_2847 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 275 */
BgL_test2227z00_2847 = 
NULLP(BgL_aux1783z00_1692)
; } 
if(BgL_test2227z00_2847)
{ /* Ieee/control.scm 275 */
return BgL_aux1783z00_1692;}  else 
{ 
 obj_t BgL_auxz00_2851;
BgL_auxz00_2851 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9331L), BGl_string1920z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1783z00_1692); 
FAILURE(BgL_auxz00_2851,BFALSE,BFALSE);} } } } } } 

}



/* &filter */
obj_t BGl_z62filterz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1448, obj_t BgL_predz00_1449, obj_t BgL_lz00_1450)
{
{ /* Ieee/control.scm 273 */
{ /* Ieee/control.scm 274 */
 obj_t BgL_auxz00_2862; obj_t BgL_auxz00_2855;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1450))
{ /* Ieee/control.scm 274 */
BgL_auxz00_2862 = BgL_lz00_1450
; }  else 
{ 
 obj_t BgL_auxz00_2865;
BgL_auxz00_2865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9297L), BGl_string1921z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lz00_1450); 
FAILURE(BgL_auxz00_2865,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_predz00_1449))
{ /* Ieee/control.scm 274 */
BgL_auxz00_2855 = BgL_predz00_1449
; }  else 
{ 
 obj_t BgL_auxz00_2858;
BgL_auxz00_2858 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9297L), BGl_string1921z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_predz00_1449); 
FAILURE(BgL_auxz00_2858,BFALSE,BFALSE);} 
return 
BGl_filterz00zz__r4_control_features_6_9z00(BgL_auxz00_2855, BgL_auxz00_2862);} } 

}



/* 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_937;
{ /* Ieee/control.scm 291 */
 obj_t BgL_aux1802z00_1714;
BgL_ansz00_937 = BgL_lisz00_34; 
BgL_zc3z04anonymousza31266ze3z87_938:
if(
NULLP(BgL_ansz00_937))
{ /* Ieee/control.scm 293 */
BgL_aux1802z00_1714 = BgL_ansz00_937; }  else 
{ /* Ieee/control.scm 295 */
 bool_t BgL_test2232z00_2872;
{ /* Ieee/control.scm 295 */
 obj_t BgL_arg1293z00_970;
{ /* Ieee/control.scm 295 */
 obj_t BgL_pairz00_1319;
if(
PAIRP(BgL_ansz00_937))
{ /* Ieee/control.scm 295 */
BgL_pairz00_1319 = BgL_ansz00_937; }  else 
{ 
 obj_t BgL_auxz00_2875;
BgL_auxz00_2875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9867L), BGl_string1922z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_ansz00_937); 
FAILURE(BgL_auxz00_2875,BFALSE,BFALSE);} 
BgL_arg1293z00_970 = 
CAR(BgL_pairz00_1319); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_33, 1))
{ /* Ieee/control.scm 295 */
BgL_test2232z00_2872 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_33, BgL_arg1293z00_970))
; }  else 
{ /* Ieee/control.scm 295 */
FAILURE(BGl_string1923z00zz__r4_control_features_6_9z00,BGl_list1924z00zz__r4_control_features_6_9z00,BgL_predz00_33);} } 
if(BgL_test2232z00_2872)
{ 
 obj_t BgL_prevz00_954; obj_t BgL_lisz00_955; obj_t BgL_prevz00_945; obj_t BgL_lisz00_946;
{ /* Ieee/control.scm 312 */
 obj_t BgL_arg1271z00_944;
{ /* Ieee/control.scm 312 */
 obj_t BgL_pairz00_1328;
if(
PAIRP(BgL_ansz00_937))
{ /* Ieee/control.scm 312 */
BgL_pairz00_1328 = BgL_ansz00_937; }  else 
{ 
 obj_t BgL_auxz00_2890;
BgL_auxz00_2890 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(10350L), BGl_string1922z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_ansz00_937); 
FAILURE(BgL_auxz00_2890,BFALSE,BFALSE);} 
BgL_arg1271z00_944 = 
CDR(BgL_pairz00_1328); } 
BgL_prevz00_945 = BgL_ansz00_937; 
BgL_lisz00_946 = BgL_arg1271z00_944; 
BgL_zc3z04anonymousza31272ze3z87_947:
if(
PAIRP(BgL_lisz00_946))
{ /* Ieee/control.scm 300 */
 bool_t BgL_test2237z00_2897;
{ /* Ieee/control.scm 300 */
 obj_t BgL_arg1279z00_953;
BgL_arg1279z00_953 = 
CAR(BgL_lisz00_946); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_33, 1))
{ /* Ieee/control.scm 300 */
BgL_test2237z00_2897 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_33, BgL_arg1279z00_953))
; }  else 
{ /* Ieee/control.scm 300 */
FAILURE(BGl_string1927z00zz__r4_control_features_6_9z00,BGl_list1928z00zz__r4_control_features_6_9z00,BgL_predz00_33);} } 
if(BgL_test2237z00_2897)
{ 
 obj_t BgL_lisz00_2908; obj_t BgL_prevz00_2907;
BgL_prevz00_2907 = BgL_lisz00_946; 
BgL_lisz00_2908 = 
CDR(BgL_lisz00_946); 
BgL_lisz00_946 = BgL_lisz00_2908; 
BgL_prevz00_945 = BgL_prevz00_2907; 
goto BgL_zc3z04anonymousza31272ze3z87_947;}  else 
{ /* Ieee/control.scm 300 */
BgL_prevz00_954 = BgL_prevz00_945; 
BgL_lisz00_955 = 
CDR(BgL_lisz00_946); 
{ 
 obj_t BgL_lisz00_958;
BgL_lisz00_958 = BgL_lisz00_955; 
BgL_zc3z04anonymousza31281ze3z87_959:
if(
PAIRP(BgL_lisz00_958))
{ /* Ieee/control.scm 306 */
 bool_t BgL_test2240z00_2912;
{ /* Ieee/control.scm 306 */
 obj_t BgL_arg1291z00_965;
BgL_arg1291z00_965 = 
CAR(BgL_lisz00_958); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_33, 1))
{ /* Ieee/control.scm 306 */
BgL_test2240z00_2912 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_33, BgL_arg1291z00_965))
; }  else 
{ /* Ieee/control.scm 306 */
FAILURE(BGl_string1923z00zz__r4_control_features_6_9z00,BGl_list1931z00zz__r4_control_features_6_9z00,BgL_predz00_33);} } 
if(BgL_test2240z00_2912)
{ /* Ieee/control.scm 306 */
{ /* Ieee/control.scm 308 */
 obj_t BgL_pairz00_1324;
if(
PAIRP(BgL_prevz00_954))
{ /* Ieee/control.scm 308 */
BgL_pairz00_1324 = BgL_prevz00_954; }  else 
{ 
 obj_t BgL_auxz00_2924;
BgL_auxz00_2924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(10220L), BGl_string1922z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_prevz00_954); 
FAILURE(BgL_auxz00_2924,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_1324, BgL_lisz00_958); } 
{ 
 obj_t BgL_lisz00_2930; obj_t BgL_prevz00_2929;
BgL_prevz00_2929 = BgL_lisz00_958; 
BgL_lisz00_2930 = 
CDR(BgL_lisz00_958); 
BgL_lisz00_946 = BgL_lisz00_2930; 
BgL_prevz00_945 = BgL_prevz00_2929; 
goto BgL_zc3z04anonymousza31272ze3z87_947;} }  else 
{ 
 obj_t BgL_lisz00_2932;
BgL_lisz00_2932 = 
CDR(BgL_lisz00_958); 
BgL_lisz00_958 = BgL_lisz00_2932; 
goto BgL_zc3z04anonymousza31281ze3z87_959;} }  else 
{ /* Ieee/control.scm 311 */
 obj_t BgL_pairz00_1327;
if(
PAIRP(BgL_prevz00_954))
{ /* Ieee/control.scm 311 */
BgL_pairz00_1327 = BgL_prevz00_954; }  else 
{ 
 obj_t BgL_auxz00_2936;
BgL_auxz00_2936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(10311L), BGl_string1922z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_prevz00_954); 
FAILURE(BgL_auxz00_2936,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_1327, BgL_lisz00_958); } } } }  else 
{ /* Ieee/control.scm 299 */BFALSE; } } 
BgL_aux1802z00_1714 = BgL_ansz00_937; }  else 
{ /* Ieee/control.scm 296 */
 obj_t BgL_arg1292z00_969;
{ /* Ieee/control.scm 296 */
 obj_t BgL_pairz00_1329;
if(
PAIRP(BgL_ansz00_937))
{ /* Ieee/control.scm 296 */
BgL_pairz00_1329 = BgL_ansz00_937; }  else 
{ 
 obj_t BgL_auxz00_2944;
BgL_auxz00_2944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9886L), BGl_string1922z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_ansz00_937); 
FAILURE(BgL_auxz00_2944,BFALSE,BFALSE);} 
BgL_arg1292z00_969 = 
CDR(BgL_pairz00_1329); } 
{ 
 obj_t BgL_ansz00_2949;
BgL_ansz00_2949 = BgL_arg1292z00_969; 
BgL_ansz00_937 = BgL_ansz00_2949; 
goto BgL_zc3z04anonymousza31266ze3z87_938;} } } 
{ /* Ieee/control.scm 291 */
 bool_t BgL_test2245z00_2950;
if(
PAIRP(BgL_aux1802z00_1714))
{ /* Ieee/control.scm 291 */
BgL_test2245z00_2950 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 291 */
BgL_test2245z00_2950 = 
NULLP(BgL_aux1802z00_1714)
; } 
if(BgL_test2245z00_2950)
{ /* Ieee/control.scm 291 */
return BgL_aux1802z00_1714;}  else 
{ 
 obj_t BgL_auxz00_2954;
BgL_auxz00_2954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9793L), BGl_string1934z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1802z00_1714); 
FAILURE(BgL_auxz00_2954,BFALSE,BFALSE);} } } } } 

}



/* &filter! */
obj_t BGl_z62filterz12z70zz__r4_control_features_6_9z00(obj_t BgL_envz00_1451, obj_t BgL_predz00_1452, obj_t BgL_lisz00_1453)
{
{ /* Ieee/control.scm 290 */
{ /* Ieee/control.scm 293 */
 obj_t BgL_auxz00_2965; obj_t BgL_auxz00_2958;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lisz00_1453))
{ /* Ieee/control.scm 293 */
BgL_auxz00_2965 = BgL_lisz00_1453
; }  else 
{ 
 obj_t BgL_auxz00_2968;
BgL_auxz00_2968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9827L), BGl_string1935z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_lisz00_1453); 
FAILURE(BgL_auxz00_2968,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_predz00_1452))
{ /* Ieee/control.scm 293 */
BgL_auxz00_2958 = BgL_predz00_1452
; }  else 
{ 
 obj_t BgL_auxz00_2961;
BgL_auxz00_2961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(9827L), BGl_string1935z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_predz00_1452); 
FAILURE(BgL_auxz00_2961,BFALSE,BFALSE);} 
return 
BGl_filterz12z12zz__r4_control_features_6_9z00(BgL_auxz00_2958, BgL_auxz00_2965);} } 

}



/* force */
BGL_EXPORTED_DEF obj_t BGl_forcez00zz__r4_control_features_6_9z00(obj_t BgL_promisez00_35)
{
{ /* Ieee/control.scm 318 */
{ /* Ieee/control.scm 319 */
 obj_t BgL_funz00_1824;
if(
PROCEDUREP(BgL_promisez00_35))
{ /* Ieee/control.scm 319 */
BgL_funz00_1824 = BgL_promisez00_35; }  else 
{ 
 obj_t BgL_auxz00_2975;
BgL_auxz00_2975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(10628L), BGl_string1936z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_promisez00_35); 
FAILURE(BgL_auxz00_2975,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1824, 0))
{ /* Ieee/control.scm 319 */
return 
(VA_PROCEDUREP( BgL_funz00_1824 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_1824))(BgL_promisez00_35, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_funz00_1824))(BgL_promisez00_35) );}  else 
{ /* Ieee/control.scm 319 */
FAILURE(BGl_string1937z00zz__r4_control_features_6_9z00,BGl_list1938z00zz__r4_control_features_6_9z00,BgL_funz00_1824);} } } 

}



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

}



/* 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_1465; obj_t BgL_resultz00_1466;
BgL_resultzd2readyzf3z21_1465 = 
BGL_MAKE_UNSAFE_CELL(BFALSE); 
BgL_resultz00_1466 = 
BGL_MAKE_UNSAFE_CELL(BFALSE); 
{ /* Ieee/control.scm 327 */
 obj_t BgL_zc3z04anonymousza31294ze3z87_1456;
BgL_zc3z04anonymousza31294ze3z87_1456 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31294ze3ze5zz__r4_control_features_6_9z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31294ze3z87_1456, 
(int)(0L), BgL_procz00_36); 
PROCEDURE_SET(BgL_zc3z04anonymousza31294ze3z87_1456, 
(int)(1L), 
((obj_t)BgL_resultzd2readyzf3z21_1465)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31294ze3z87_1456, 
(int)(2L), 
((obj_t)BgL_resultz00_1466)); 
return BgL_zc3z04anonymousza31294ze3z87_1456;} } } 

}



/* &make-promise */
obj_t BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1457, obj_t BgL_procz00_1458)
{
{ /* Ieee/control.scm 324 */
{ /* Ieee/control.scm 325 */
 obj_t BgL_auxz00_2997;
if(
PROCEDUREP(BgL_procz00_1458))
{ /* Ieee/control.scm 325 */
BgL_auxz00_2997 = BgL_procz00_1458
; }  else 
{ 
 obj_t BgL_auxz00_3000;
BgL_auxz00_3000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(10893L), BGl_string1941z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_procz00_1458); 
FAILURE(BgL_auxz00_3000,BFALSE,BFALSE);} 
return 
BGl_makezd2promisezd2zz__r4_control_features_6_9z00(BgL_auxz00_2997);} } 

}



/* &<@anonymous:1294> */
obj_t BGl_z62zc3z04anonymousza31294ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1459)
{
{ /* Ieee/control.scm 327 */
{ /* Ieee/control.scm 328 */
 obj_t BgL_procz00_1460; obj_t BgL_resultzd2readyzf3z21_1461; obj_t BgL_resultz00_1462;
BgL_procz00_1460 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1459, 
(int)(0L))); 
BgL_resultzd2readyzf3z21_1461 = 
PROCEDURE_REF(BgL_envz00_1459, 
(int)(1L)); 
BgL_resultz00_1462 = 
PROCEDURE_REF(BgL_envz00_1459, 
(int)(2L)); 
if(
CBOOL(
BGL_UNSAFE_CELL_REF(BgL_resultzd2readyzf3z21_1461)))
{ /* Ieee/control.scm 328 */
return 
BGL_UNSAFE_CELL_REF(BgL_resultz00_1462);}  else 
{ /* Ieee/control.scm 330 */
 obj_t BgL_xz00_1825;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_1460, 0))
{ /* Ieee/control.scm 330 */
BgL_xz00_1825 = 
BGL_PROCEDURE_CALL0(BgL_procz00_1460); }  else 
{ /* Ieee/control.scm 330 */
FAILURE(BGl_string1942z00zz__r4_control_features_6_9z00,BGl_list1943z00zz__r4_control_features_6_9z00,BgL_procz00_1460);} 
if(
CBOOL(
BGL_UNSAFE_CELL_REF(BgL_resultzd2readyzf3z21_1461)))
{ /* Ieee/control.scm 331 */
return 
BGL_UNSAFE_CELL_REF(BgL_resultz00_1462);}  else 
{ /* Ieee/control.scm 331 */
{ /* Ieee/control.scm 334 */
 obj_t BgL_auxz00_1826;
BgL_auxz00_1826 = BTRUE; 
BGL_UNSAFE_CELL_SET(BgL_resultzd2readyzf3z21_1461, BgL_auxz00_1826); } 
BGL_UNSAFE_CELL_SET(BgL_resultz00_1462, BgL_xz00_1825); 
return 
BGL_UNSAFE_CELL_REF(BgL_resultz00_1462);} } } } 

}



/* 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_1470;
BgL_zc3z04anonymousza31296ze3z87_1470 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31296ze3ze5zz__r4_control_features_6_9z00, 
(int)(1L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31296ze3z87_1470, 
(int)(0L), BgL_procz00_37); 
BGL_TAIL return 
call_cc(BgL_zc3z04anonymousza31296ze3z87_1470);} } 

}



/* &call/cc */
obj_t BGl_z62callzf2ccz90zz__r4_control_features_6_9z00(obj_t BgL_envz00_1471, obj_t BgL_procz00_1472)
{
{ /* Ieee/control.scm 341 */
{ /* Ieee/control.scm 343 */
 obj_t BgL_auxz00_3028;
if(
PROCEDUREP(BgL_procz00_1472))
{ /* Ieee/control.scm 343 */
BgL_auxz00_3028 = BgL_procz00_1472
; }  else 
{ 
 obj_t BgL_auxz00_3031;
BgL_auxz00_3031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(11423L), BGl_string1944z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_procz00_1472); 
FAILURE(BgL_auxz00_3031,BFALSE,BFALSE);} 
return 
BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_auxz00_3028);} } 

}



/* &<@anonymous:1296> */
obj_t BGl_z62zc3z04anonymousza31296ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1473, obj_t BgL_contz00_1475)
{
{ /* Ieee/control.scm 342 */
{ /* Ieee/control.scm 343 */
 obj_t BgL_procz00_1474;
BgL_procz00_1474 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1473, 
(int)(0L))); 
{ /* Ieee/control.scm 343 */
 obj_t BgL_evcz00_1827;
BgL_evcz00_1827 = 
BGl_getzd2evaluationzd2contextz00zz__evaluatez00(); 
{ /* Ieee/control.scm 345 */
 obj_t BgL_zc3z04anonymousza31299ze3z87_1828;
BgL_zc3z04anonymousza31299ze3z87_1828 = 
MAKE_VA_PROCEDURE(BGl_z62zc3z04anonymousza31299ze3ze5zz__r4_control_features_6_9z00, 
(int)((-1L)), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31299ze3z87_1828, 
(int)(0L), BgL_evcz00_1827); 
PROCEDURE_SET(BgL_zc3z04anonymousza31299ze3z87_1828, 
(int)(1L), BgL_contz00_1475); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_1474, 1))
{ /* Ieee/control.scm 344 */
return 
BGL_PROCEDURE_CALL1(BgL_procz00_1474, BgL_zc3z04anonymousza31299ze3z87_1828);}  else 
{ /* Ieee/control.scm 344 */
FAILURE(BGl_string1945z00zz__r4_control_features_6_9z00,BGl_list1946z00zz__r4_control_features_6_9z00,BgL_procz00_1474);} } } } } 

}



/* &<@anonymous:1299> */
obj_t BGl_z62zc3z04anonymousza31299ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1476, obj_t BgL_valsz00_1479)
{
{ /* Ieee/control.scm 344 */
{ /* Ieee/control.scm 345 */
 obj_t BgL_evcz00_1477; obj_t BgL_contz00_1478;
BgL_evcz00_1477 = 
PROCEDURE_REF(BgL_envz00_1476, 
(int)(0L)); 
BgL_contz00_1478 = 
PROCEDURE_REF(BgL_envz00_1476, 
(int)(1L)); 
BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(BgL_evcz00_1477); 
{ /* Ieee/control.scm 346 */
 bool_t BgL_test2257z00_3059;
if(
PAIRP(BgL_valsz00_1479))
{ /* Ieee/control.scm 346 */
BgL_test2257z00_3059 = 
NULLP(
CDR(BgL_valsz00_1479))
; }  else 
{ /* Ieee/control.scm 346 */
BgL_test2257z00_3059 = ((bool_t)0)
; } 
if(BgL_test2257z00_3059)
{ /* Ieee/control.scm 347 */
 obj_t BgL_arg1322z00_1829;
BgL_arg1322z00_1829 = 
CAR(BgL_valsz00_1479); 
{ /* Ieee/control.scm 347 */
 obj_t BgL_funz00_1830;
if(
PROCEDUREP(BgL_contz00_1478))
{ /* Ieee/control.scm 347 */
BgL_funz00_1830 = BgL_contz00_1478; }  else 
{ 
 obj_t BgL_auxz00_3067;
BgL_auxz00_3067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(11578L), BGl_string1948z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_contz00_1478); 
FAILURE(BgL_auxz00_3067,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1830, 1))
{ /* Ieee/control.scm 347 */
return 
(VA_PROCEDUREP( BgL_funz00_1830 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_1830))(BgL_contz00_1478, BgL_arg1322z00_1829, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_1830))(BgL_contz00_1478, BgL_arg1322z00_1829) );}  else 
{ /* Ieee/control.scm 347 */
FAILURE(BGl_string1949z00zz__r4_control_features_6_9z00,BGl_list1950z00zz__r4_control_features_6_9z00,BgL_funz00_1830);} } }  else 
{ /* Ieee/control.scm 346 */
{ /* Ieee/control.scm 349 */
 int BgL_tmpz00_3078;
BgL_tmpz00_3078 = 
(int)((-1L)); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3078); } 
{ /* Ieee/control.scm 350 */
 obj_t BgL_funz00_1831;
if(
PROCEDUREP(BgL_contz00_1478))
{ /* Ieee/control.scm 350 */
BgL_funz00_1831 = BgL_contz00_1478; }  else 
{ 
 obj_t BgL_auxz00_3083;
BgL_auxz00_3083 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(11651L), BGl_string1948z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_contz00_1478); 
FAILURE(BgL_auxz00_3083,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1831, 1))
{ /* Ieee/control.scm 350 */
return 
(VA_PROCEDUREP( BgL_funz00_1831 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_1831))(BgL_contz00_1478, BgL_valsz00_1479, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_1831))(BgL_contz00_1478, BgL_valsz00_1479) );}  else 
{ /* Ieee/control.scm 350 */
FAILURE(BGl_string1949z00zz__r4_control_features_6_9z00,BGl_list1955z00zz__r4_control_features_6_9z00,BgL_funz00_1831);} } } } } } 

}



/* 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_1480, obj_t BgL_procz00_1481)
{
{ /* Ieee/control.scm 359 */
{ /* Ieee/control.scm 360 */
 obj_t BgL_auxz00_3095;
if(
PROCEDUREP(BgL_procz00_1481))
{ /* Ieee/control.scm 360 */
BgL_auxz00_3095 = BgL_procz00_1481
; }  else 
{ 
 obj_t BgL_auxz00_3098;
BgL_auxz00_3098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(12040L), BGl_string1958z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_procz00_1481); 
FAILURE(BgL_auxz00_3098,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00(BgL_auxz00_3095);} } 

}



/* 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 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_beforez00_39, 0))
{ /* Ieee/control.scm 366 */
BGL_PROCEDURE_CALL0(BgL_beforez00_39); }  else 
{ /* Ieee/control.scm 366 */
FAILURE(BGl_string1959z00zz__r4_control_features_6_9z00,BGl_list1960z00zz__r4_control_features_6_9z00,BgL_beforez00_39);} 
{ /* Ieee/control.scm 367 */

PUSH_BEFORE(BgL_beforez00_39); 
{ /* Ieee/control.scm 369 */
 obj_t BgL_exitd1014z00_1332;
BgL_exitd1014z00_1332 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Ieee/control.scm 372 */
 obj_t BgL_zc3z04anonymousza31330ze3z87_1482;
BgL_zc3z04anonymousza31330ze3z87_1482 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31330ze3ze5zz__r4_control_features_6_9z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31330ze3z87_1482, 
(int)(0L), BgL_afterz00_41); 
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1600z00_1335;
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1602z00_1336;
BgL_arg1602z00_1336 = 
BGL_EXITD_PROTECT(BgL_exitd1014z00_1332); 
BgL_arg1600z00_1335 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31330ze3z87_1482, BgL_arg1602z00_1336); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1014z00_1332, BgL_arg1600z00_1335); BUNSPEC; } 
{ /* Ieee/control.scm 370 */
 obj_t BgL_tmp1016z00_1334;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_40, 0))
{ /* Ieee/control.scm 370 */
BgL_tmp1016z00_1334 = 
BGL_PROCEDURE_CALL0(BgL_thunkz00_40); }  else 
{ /* Ieee/control.scm 370 */
FAILURE(BGl_string1959z00zz__r4_control_features_6_9z00,BGl_list1963z00zz__r4_control_features_6_9z00,BgL_thunkz00_40);} 
{ /* Ieee/control.scm 369 */
 bool_t BgL_test2266z00_3125;
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1599z00_1338;
BgL_arg1599z00_1338 = 
BGL_EXITD_PROTECT(BgL_exitd1014z00_1332); 
BgL_test2266z00_3125 = 
PAIRP(BgL_arg1599z00_1338); } 
if(BgL_test2266z00_3125)
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1597z00_1339;
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1598z00_1340;
BgL_arg1598z00_1340 = 
BGL_EXITD_PROTECT(BgL_exitd1014z00_1332); 
{ /* Ieee/control.scm 369 */
 obj_t BgL_pairz00_1341;
if(
PAIRP(BgL_arg1598z00_1340))
{ /* Ieee/control.scm 369 */
BgL_pairz00_1341 = BgL_arg1598z00_1340; }  else 
{ 
 obj_t BgL_auxz00_3131;
BgL_auxz00_3131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(12411L), BGl_string1966z00zz__r4_control_features_6_9z00, BGl_string1848z00zz__r4_control_features_6_9z00, BgL_arg1598z00_1340); 
FAILURE(BgL_auxz00_3131,BFALSE,BFALSE);} 
BgL_arg1597z00_1339 = 
CDR(BgL_pairz00_1341); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1014z00_1332, BgL_arg1597z00_1339); BUNSPEC; }  else 
{ /* Ieee/control.scm 369 */BFALSE; } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_afterz00_41, 0))
{ /* Ieee/control.scm 372 */
BGL_PROCEDURE_CALL0(BgL_afterz00_41); }  else 
{ /* Ieee/control.scm 372 */
FAILURE(BGl_string1959z00zz__r4_control_features_6_9z00,BGl_list1967z00zz__r4_control_features_6_9z00,BgL_afterz00_41);} 
POP_BEFORE(); 
return BgL_tmp1016z00_1334;} } } } } 

}



/* &dynamic-wind */
obj_t BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1483, obj_t BgL_beforez00_1484, obj_t BgL_thunkz00_1485, obj_t BgL_afterz00_1486)
{
{ /* Ieee/control.scm 365 */
{ /* Ieee/control.scm 366 */
 obj_t BgL_auxz00_3158; obj_t BgL_auxz00_3151; obj_t BgL_auxz00_3144;
if(
PROCEDUREP(BgL_afterz00_1486))
{ /* Ieee/control.scm 366 */
BgL_auxz00_3158 = BgL_afterz00_1486
; }  else 
{ 
 obj_t BgL_auxz00_3161;
BgL_auxz00_3161 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(12364L), BGl_string1970z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_afterz00_1486); 
FAILURE(BgL_auxz00_3161,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_thunkz00_1485))
{ /* Ieee/control.scm 366 */
BgL_auxz00_3151 = BgL_thunkz00_1485
; }  else 
{ 
 obj_t BgL_auxz00_3154;
BgL_auxz00_3154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(12364L), BGl_string1970z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_thunkz00_1485); 
FAILURE(BgL_auxz00_3154,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_beforez00_1484))
{ /* Ieee/control.scm 366 */
BgL_auxz00_3144 = BgL_beforez00_1484
; }  else 
{ 
 obj_t BgL_auxz00_3147;
BgL_auxz00_3147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1837z00zz__r4_control_features_6_9z00, 
BINT(12364L), BGl_string1970z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_beforez00_1484); 
FAILURE(BgL_auxz00_3147,BFALSE,BFALSE);} 
return 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_auxz00_3144, BgL_auxz00_3151, BgL_auxz00_3158);} } 

}



/* &<@anonymous:1330> */
obj_t BGl_z62zc3z04anonymousza31330ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1487)
{
{ /* Ieee/control.scm 369 */
{ /* Ieee/control.scm 372 */
 obj_t BgL_afterz00_1488;
BgL_afterz00_1488 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1487, 
(int)(0L))); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_afterz00_1488, 0))
{ /* Ieee/control.scm 372 */
BGL_PROCEDURE_CALL0(BgL_afterz00_1488); }  else 
{ /* Ieee/control.scm 372 */
FAILURE(BGl_string1971z00zz__r4_control_features_6_9z00,BGl_list1967z00zz__r4_control_features_6_9z00,BgL_afterz00_1488);} 
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_string1972z00zz__r4_control_features_6_9z00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1972z00zz__r4_control_features_6_9z00)); 
return 
BGl_modulezd2initializa7ationz75zz__evaluatez00(398574045L, 
BSTRING_TO_STRING(BGl_string1972z00zz__r4_control_features_6_9z00));} 

}

#ifdef __cplusplus
}
#endif
