/*===========================================================================*/
/*   (Ieee/control.scm)                                                      */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -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_symbol1831z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1833z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1915z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1919z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1922z00zz__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_z62zc3z04anonymousza31201ze3ze5zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol1845z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1847z00zz__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_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_symbol1853z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1937z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1856z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1905z00zz__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_symbol1941z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1860z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1943z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1830z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1864z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1946z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1914z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1867z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1918z00zz__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_symbol1872z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1954z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1921z00zz__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_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_symbol1876z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__r4_control_features_6_9z00(void);
static obj_t BGl_symbol1958z00zz__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_symbol1880z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1933z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1854z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1936z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1888z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1855z00zz__r4_control_features_6_9z00 = BUNSPEC;
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);
BGL_EXPORTED_DECL bool_t BGl_procedurezf3zf3zz__r4_control_features_6_9z00(obj_t);
static obj_t BGl_symbol1891z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1940z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00(void);
static obj_t BGl_symbol1894z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62applyz62zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list1863z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1945z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r4_control_features_6_9z00(void);
static obj_t BGl_symbol1898z00zz__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_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_list1871z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1953z00zz__r4_control_features_6_9z00 = BUNSPEC;
extern obj_t call_cc(obj_t);
static obj_t BGl_list1957z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list1879z00zz__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_z62procedurezf3z91zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_filterz12z12zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_z62filterz12z70zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1890z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list1893z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62appendzd2mapzb0zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3z04anonymousza31323ze3ze5zz__r4_control_features_6_9z00(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);
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_z62zc3z04anonymousza31325ze3ze5zz__r4_control_features_6_9z00(obj_t, 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);
static obj_t BGl_z62zc3z04anonymousza31334ze3ze5zz__r4_control_features_6_9z00(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;
BGL_EXPORTED_DECL obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol1906z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1908z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol1827z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_z62zc3z04anonymousza31328ze3ze5zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE( BGl_appendzd2mapz12zd2envz12zz__r4_control_features_6_9z00, BgL_bgl_za762appendza7d2mapza71963za7, va_generic_entry, BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string1870z00zz__r4_control_features_6_9z00, BgL_bgl_string1870za700za7za7_1964za7, "loop~2:Wrong number of arguments", 32 );
DEFINE_STRING( BGl_string1952z00zz__r4_control_features_6_9z00, BgL_bgl_string1952za700za7za7_1965za7, "before", 6 );
DEFINE_STRING( BGl_string1873z00zz__r4_control_features_6_9z00, BgL_bgl_string1873za700za7za7_1966za7, "arg1146", 7 );
DEFINE_STRING( BGl_string1955z00zz__r4_control_features_6_9z00, BgL_bgl_string1955za700za7za7_1967za7, "thunk", 5 );
DEFINE_STRING( BGl_string1874z00zz__r4_control_features_6_9z00, BgL_bgl_string1874za700za7za7_1968za7, "append-map", 10 );
DEFINE_STRING( BGl_string1956z00zz__r4_control_features_6_9z00, BgL_bgl_string1956za700za7za7_1969za7, "dynamic-wind", 12 );
DEFINE_STRING( BGl_string1875z00zz__r4_control_features_6_9z00, BgL_bgl_string1875za700za7za7_1970za7, "loop~1", 6 );
DEFINE_STRING( BGl_string1877z00zz__r4_control_features_6_9z00, BgL_bgl_string1877za700za7za7_1971za7, "&append-map", 11 );
DEFINE_STRING( BGl_string1959z00zz__r4_control_features_6_9z00, BgL_bgl_string1959za700za7za7_1972za7, "after", 5 );
DEFINE_STRING( BGl_string1878z00zz__r4_control_features_6_9z00, BgL_bgl_string1878za700za7za7_1973za7, "<@anonymous:1169>:Wrong number of arguments", 43 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_forzd2eachzd22zd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762forza7d2eachza7d21974za7, BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_forzd2eachzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762forza7d2eachza7b01975za7, va_generic_entry, BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string1960z00zz__r4_control_features_6_9z00, BgL_bgl_string1960za700za7za7_1976za7, "&dynamic-wind", 13 );
DEFINE_STRING( BGl_string1961z00zz__r4_control_features_6_9z00, BgL_bgl_string1961za700za7za7_1977za7, "<@anonymous:1334>:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string1962z00zz__r4_control_features_6_9z00, BgL_bgl_string1962za700za7za7_1978za7, "__r4_control_features_6_9", 25 );
DEFINE_STRING( BGl_string1881z00zz__r4_control_features_6_9z00, BgL_bgl_string1881za700za7za7_1979za7, "x", 1 );
DEFINE_STRING( BGl_string1882z00zz__r4_control_features_6_9z00, BgL_bgl_string1882za700za7za7_1980za7, "<@anonymous:1169>", 17 );
DEFINE_STRING( BGl_string1883z00zz__r4_control_features_6_9z00, BgL_bgl_string1883za700za7za7_1981za7, "for-each", 8 );
DEFINE_STRING( BGl_string1884z00zz__r4_control_features_6_9z00, BgL_bgl_string1884za700za7za7_1982za7, "list", 4 );
DEFINE_STRING( BGl_string1885z00zz__r4_control_features_6_9z00, BgL_bgl_string1885za700za7za7_1983za7, "append-map2!", 12 );
DEFINE_STRING( BGl_string1886z00zz__r4_control_features_6_9z00, BgL_bgl_string1886za700za7za7_1984za7, "append-map!", 11 );
DEFINE_STRING( BGl_string1887z00zz__r4_control_features_6_9z00, BgL_bgl_string1887za700za7za7_1985za7, "&append-map!", 12 );
DEFINE_STRING( BGl_string1889z00zz__r4_control_features_6_9z00, BgL_bgl_string1889za700za7za7_1986za7, "<@anonymous:1201>", 17 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_makezd2promisezd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762makeza7d2promis1987z00, BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string1892z00zz__r4_control_features_6_9z00, BgL_bgl_string1892za700za7za7_1988za7, "xs", 2 );
DEFINE_STRING( BGl_string1895z00zz__r4_control_features_6_9z00, BgL_bgl_string1895za700za7za7_1989za7, "arg1217", 7 );
DEFINE_STRING( BGl_string1896z00zz__r4_control_features_6_9z00, BgL_bgl_string1896za700za7za7_1990za7, "filter-map", 10 );
DEFINE_STRING( BGl_string1897z00zz__r4_control_features_6_9z00, BgL_bgl_string1897za700za7za7_1991za7, "loop~0", 6 );
DEFINE_STRING( BGl_string1899z00zz__r4_control_features_6_9z00, BgL_bgl_string1899za700za7za7_1992za7, "&filter-map", 11 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mapzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762mapza762za7za7__r4_1993z00, 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_za762appendza7d2mapza71994za7, 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__1995z00, BGl_z62filterz62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_filterz12zd2envzc0zz__r4_control_features_6_9z00, BgL_bgl_za762filterza712za770za71996z00, BGl_z62filterz12z70zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mapzd22zd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762mapza7d22za7b0za7za7_1997za7, BGl_z62mapzd22zb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_procedurezf3zd2envz21zz__r4_control_features_6_9z00, BgL_bgl_za762procedureza7f3za71998za7, BGl_z62procedurezf3z91zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_callzd2withzd2currentzd2continuationzd2envz00zz__r4_control_features_6_9z00, BgL_bgl_za762callza7d2withza7d1999za7, BGl_z62callzd2withzd2currentzd2continuationzb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_forcezd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762forceza762za7za7__r2000z00, BGl_z62forcez62zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_applyzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl_za762applyza762za7za7__r2001z00, 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_za762filterza7d2mapza72002za7, 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__2003za7, va_generic_entry, BGl_z62mapz12z70zz__r4_control_features_6_9z00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string1902z00zz__r4_control_features_6_9z00, BgL_bgl_string1902za700za7za7_2004za7, "arg1237", 7 );
DEFINE_STRING( BGl_string1903z00zz__r4_control_features_6_9z00, BgL_bgl_string1903za700za7za7_2005za7, "&for-each-2", 11 );
DEFINE_STRING( BGl_string1904z00zz__r4_control_features_6_9z00, BgL_bgl_string1904za700za7za7_2006za7, "&for-each", 9 );
DEFINE_STRING( BGl_string1907z00zz__r4_control_features_6_9z00, BgL_bgl_string1907za700za7za7_2007za7, "pred", 4 );
DEFINE_STRING( BGl_string1909z00zz__r4_control_features_6_9z00, BgL_bgl_string1909za700za7za7_2008za7, "arg1260", 7 );
DEFINE_STRING( BGl_string1828z00zz__r4_control_features_6_9z00, BgL_bgl_string1828za700za7za7_2009za7, "apply", 5 );
DEFINE_STRING( BGl_string1829z00zz__r4_control_features_6_9z00, BgL_bgl_string1829za700za7za7_2010za7, "Wrong number of arguments", 25 );
DEFINE_STRING( BGl_string1910z00zz__r4_control_features_6_9z00, BgL_bgl_string1910za700za7za7_2011za7, "filter", 6 );
DEFINE_STRING( BGl_string1911z00zz__r4_control_features_6_9z00, BgL_bgl_string1911za700za7za7_2012za7, "&filter", 7 );
DEFINE_STRING( BGl_string1912z00zz__r4_control_features_6_9z00, BgL_bgl_string1912za700za7za7_2013za7, "lp", 2 );
DEFINE_STRING( BGl_string1913z00zz__r4_control_features_6_9z00, BgL_bgl_string1913za700za7za7_2014za7, "lp:Wrong number of arguments", 28 );
DEFINE_STRING( BGl_string1832z00zz__r4_control_features_6_9z00, BgL_bgl_string1832za700za7za7_2015za7, "proc", 4 );
DEFINE_STRING( BGl_string1834z00zz__r4_control_features_6_9z00, BgL_bgl_string1834za700za7za7_2016za7, "args", 4 );
DEFINE_STRING( BGl_string1916z00zz__r4_control_features_6_9z00, BgL_bgl_string1916za700za7za7_2017za7, "arg1322", 7 );
DEFINE_STRING( BGl_string1835z00zz__r4_control_features_6_9z00, BgL_bgl_string1835za700za7za7_2018za7, "/tmp/bigloo/runtime/Ieee/control.scm", 36 );
DEFINE_STRING( BGl_string1917z00zz__r4_control_features_6_9z00, BgL_bgl_string1917za700za7za7_2019za7, "scan-in:Wrong number of arguments", 33 );
DEFINE_STRING( BGl_string1836z00zz__r4_control_features_6_9z00, BgL_bgl_string1836za700za7za7_2020za7, "loop~4", 6 );
DEFINE_STRING( BGl_string1837z00zz__r4_control_features_6_9z00, BgL_bgl_string1837za700za7za7_2021za7, "pair", 4 );
DEFINE_STRING( BGl_string1838z00zz__r4_control_features_6_9z00, BgL_bgl_string1838za700za7za7_2022za7, "&apply", 6 );
DEFINE_STRING( BGl_string1839z00zz__r4_control_features_6_9z00, BgL_bgl_string1839za700za7za7_2023za7, "procedure", 9 );
DEFINE_STRING( BGl_string1920z00zz__r4_control_features_6_9z00, BgL_bgl_string1920za700za7za7_2024za7, "arg1283", 7 );
DEFINE_STRING( BGl_string1840z00zz__r4_control_features_6_9z00, BgL_bgl_string1840za700za7za7_2025za7, "loop", 4 );
DEFINE_STRING( BGl_string1841z00zz__r4_control_features_6_9z00, BgL_bgl_string1841za700za7za7_2026za7, "loop:Wrong number of arguments", 30 );
DEFINE_STRING( BGl_string1923z00zz__r4_control_features_6_9z00, BgL_bgl_string1923za700za7za7_2027za7, "arg1292", 7 );
DEFINE_STRING( BGl_string1924z00zz__r4_control_features_6_9z00, BgL_bgl_string1924za700za7za7_2028za7, "filter!", 7 );
DEFINE_STRING( BGl_string1925z00zz__r4_control_features_6_9z00, BgL_bgl_string1925za700za7za7_2029za7, "&filter!", 8 );
DEFINE_STRING( BGl_string1844z00zz__r4_control_features_6_9z00, BgL_bgl_string1844za700za7za7_2030za7, "funcall", 7 );
DEFINE_STRING( BGl_string1926z00zz__r4_control_features_6_9z00, BgL_bgl_string1926za700za7za7_2031za7, "force", 5 );
DEFINE_STRING( BGl_string1927z00zz__r4_control_features_6_9z00, BgL_bgl_string1927za700za7za7_2032za7, "force:Wrong number of arguments", 31 );
DEFINE_STRING( BGl_string1846z00zz__r4_control_features_6_9z00, BgL_bgl_string1846za700za7za7_2033za7, "f", 1 );
DEFINE_STRING( BGl_string1848z00zz__r4_control_features_6_9z00, BgL_bgl_string1848za700za7za7_2034za7, "arg1081", 7 );
DEFINE_STRING( BGl_string1849z00zz__r4_control_features_6_9z00, BgL_bgl_string1849za700za7za7_2035za7, "&map-2", 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_za762dynamicza7d2win2036z00, BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00, 0L, BUNSPEC, 3 );
DEFINE_STRING( BGl_string1930z00zz__r4_control_features_6_9z00, BgL_bgl_string1930za700za7za7_2037za7, "promise", 7 );
DEFINE_STRING( BGl_string1931z00zz__r4_control_features_6_9z00, BgL_bgl_string1931za700za7za7_2038za7, "&make-promise", 13 );
DEFINE_STRING( BGl_string1850z00zz__r4_control_features_6_9z00, BgL_bgl_string1850za700za7za7_2039za7, "pair-nil", 8 );
DEFINE_STRING( BGl_string1932z00zz__r4_control_features_6_9z00, BgL_bgl_string1932za700za7za7_2040za7, "<@anonymous:1323>:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string1851z00zz__r4_control_features_6_9z00, BgL_bgl_string1851za700za7za7_2041za7, "map", 3 );
DEFINE_STRING( BGl_string1852z00zz__r4_control_features_6_9z00, BgL_bgl_string1852za700za7za7_2042za7, "loop~3", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_callzf2cczd2envz20zz__r4_control_features_6_9z00, BgL_bgl_za762callza7f2ccza790za72043z00, BGl_z62callzf2ccz90zz__r4_control_features_6_9z00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string1934z00zz__r4_control_features_6_9z00, BgL_bgl_string1934za700za7za7_2044za7, "&call/cc", 8 );
DEFINE_STRING( BGl_string1935z00zz__r4_control_features_6_9z00, BgL_bgl_string1935za700za7za7_2045za7, "<@anonymous:1325>:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string1938z00zz__r4_control_features_6_9z00, BgL_bgl_string1938za700za7za7_2046za7, "<@anonymous:1328>", 17 );
DEFINE_STRING( BGl_string1857z00zz__r4_control_features_6_9z00, BgL_bgl_string1857za700za7za7_2047za7, "map-2", 5 );
extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_STRING( BGl_string1939z00zz__r4_control_features_6_9z00, BgL_bgl_string1939za700za7za7_2048za7, "<@anonymous:1328>:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string1859z00zz__r4_control_features_6_9z00, BgL_bgl_string1859za700za7za7_2049za7, "car-env", 7 );
DEFINE_STRING( BGl_string1942z00zz__r4_control_features_6_9z00, BgL_bgl_string1942za700za7za7_2050za7, "cont", 4 );
DEFINE_STRING( BGl_string1861z00zz__r4_control_features_6_9z00, BgL_bgl_string1861za700za7za7_2051za7, "l", 1 );
DEFINE_STRING( BGl_string1862z00zz__r4_control_features_6_9z00, BgL_bgl_string1862za700za7za7_2052za7, "&map", 4 );
DEFINE_STRING( BGl_string1944z00zz__r4_control_features_6_9z00, BgL_bgl_string1944za700za7za7_2053za7, "arg1332", 7 );
DEFINE_STRING( BGl_string1865z00zz__r4_control_features_6_9z00, BgL_bgl_string1865za700za7za7_2054za7, "arg1110", 7 );
DEFINE_STRING( BGl_string1947z00zz__r4_control_features_6_9z00, BgL_bgl_string1947za700za7za7_2055za7, "vals", 4 );
DEFINE_STRING( BGl_string1866z00zz__r4_control_features_6_9z00, BgL_bgl_string1866za700za7za7_2056za7, "map!", 4 );
DEFINE_STRING( BGl_string1948z00zz__r4_control_features_6_9z00, BgL_bgl_string1948za700za7za7_2057za7, "&call-with-current-continuation", 31 );
DEFINE_STRING( BGl_string1949z00zz__r4_control_features_6_9z00, BgL_bgl_string1949za700za7za7_2058za7, "dynamic-wind:Wrong number of arguments", 38 );
DEFINE_STRING( BGl_string1868z00zz__r4_control_features_6_9z00, BgL_bgl_string1868za700za7za7_2059za7, "&map!", 5 );
DEFINE_STRING( BGl_string1869z00zz__r4_control_features_6_9z00, BgL_bgl_string1869za700za7za7_2060za7, "loop~2", 6 );

/* 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_symbol1831z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1833z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1915z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1919z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1922z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1843z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1845z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1847z00zz__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_list1900z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1853z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1937z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1856z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1905z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1858z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1941z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1860z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1943z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1830z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1864z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1946z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1914z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1867z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1918z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1951z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1872z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1954z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1921z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1842z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1876z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1958z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1928z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1880z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1933z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1854z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1936z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1888z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1855z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1891z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1940z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1894z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1863z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1945z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1898z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1950z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1871z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1953z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1957z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1879z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1890z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_list1893z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1901z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1906z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1908z00zz__r4_control_features_6_9z00) );
ADD_ROOT( (void *)(&BGl_symbol1827z00zz__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_1784, char * BgL_fromz00_1785)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00 = 
BBOOL(((bool_t)0)); 
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_symbol1827z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1828z00zz__r4_control_features_6_9z00); 
BGl_symbol1831z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1832z00zz__r4_control_features_6_9z00); 
BGl_symbol1833z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1834z00zz__r4_control_features_6_9z00); 
BGl_list1830z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1827z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1831z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1833z00zz__r4_control_features_6_9z00, BNIL))); 
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_symbol1847z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1848z00zz__r4_control_features_6_9z00); 
BGl_list1842z00zz__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, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1847z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1853z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1852z00zz__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_symbol1860z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1861z00zz__r4_control_features_6_9z00); 
BGl_list1855z00zz__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, 
MAKE_YOUNG_PAIR(BGl_symbol1860z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_list1854z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1827z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_list1855z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1864z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1865z00zz__r4_control_features_6_9z00); 
BGl_list1863z00zz__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, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1864z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1867z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1840z00zz__r4_control_features_6_9z00); 
BGl_symbol1872z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1873z00zz__r4_control_features_6_9z00); 
BGl_list1871z00zz__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, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1872z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1876z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1875z00zz__r4_control_features_6_9z00); 
BGl_symbol1880z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1881z00zz__r4_control_features_6_9z00); 
BGl_list1879z00zz__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, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1880z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1888z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1889z00zz__r4_control_features_6_9z00); 
BGl_symbol1891z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1892z00zz__r4_control_features_6_9z00); 
BGl_list1890z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1827z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1891z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1894z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1895z00zz__r4_control_features_6_9z00); 
BGl_list1893z00zz__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, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1894z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1898z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1897z00zz__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_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1906z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1907z00zz__r4_control_features_6_9z00); 
BGl_symbol1908z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1909z00zz__r4_control_features_6_9z00); 
BGl_list1905z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1908z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1915z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1916z00zz__r4_control_features_6_9z00); 
BGl_list1914z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1915z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1919z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1920z00zz__r4_control_features_6_9z00); 
BGl_list1918z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1919z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1922z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1923z00zz__r4_control_features_6_9z00); 
BGl_list1921z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1906z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1922z00zz__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_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1929z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1929z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_list1933z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1831z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1831z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1937z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1938z00zz__r4_control_features_6_9z00); 
BGl_list1936z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1831z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1831z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1937z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1941z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1942z00zz__r4_control_features_6_9z00); 
BGl_symbol1943z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1944z00zz__r4_control_features_6_9z00); 
BGl_list1940z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1941z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1941z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1946z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1947z00zz__r4_control_features_6_9z00); 
BGl_list1945z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1941z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1941z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1946z00zz__r4_control_features_6_9z00, BNIL)))); 
BGl_symbol1951z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1952z00zz__r4_control_features_6_9z00); 
BGl_list1950z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__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, BNIL))); 
BGl_symbol1954z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1955z00zz__r4_control_features_6_9z00); 
BGl_list1953z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1954z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1954z00zz__r4_control_features_6_9z00, BNIL))); 
BGl_symbol1958z00zz__r4_control_features_6_9z00 = 
bstring_to_symbol(BGl_string1959z00zz__r4_control_features_6_9z00); 
return ( 
BGl_list1957z00zz__r4_control_features_6_9z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1958z00zz__r4_control_features_6_9z00, 
MAKE_YOUNG_PAIR(BGl_symbol1958z00zz__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)
{
{ 
{ 
 obj_t BgL_headz00_741;
BgL_headz00_741 = 
MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2); 
{ 
 obj_t BgL_prevz00_742; obj_t BgL_tailz00_743;
BgL_prevz00_742 = BgL_headz00_741; 
BgL_tailz00_743 = BgL_l1z00_1; 
BgL_loopz00_744:
if(
PAIRP(BgL_tailz00_743))
{ 
 obj_t BgL_newzd2prevzd2_746;
BgL_newzd2prevzd2_746 = 
MAKE_YOUNG_PAIR(
CAR(BgL_tailz00_743), BgL_l2z00_2); 
SET_CDR(BgL_prevz00_742, BgL_newzd2prevzd2_746); 
{ 
 obj_t BgL_tailz00_1913; obj_t BgL_prevz00_1912;
BgL_prevz00_1912 = BgL_newzd2prevzd2_746; 
BgL_tailz00_1913 = 
CDR(BgL_tailz00_743); 
BgL_tailz00_743 = BgL_tailz00_1913; 
BgL_prevz00_742 = BgL_prevz00_1912; 
goto BgL_loopz00_744;} }  else 
{ BNIL; } 
return 
CDR(BgL_headz00_741);} } } 

}



/* 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_1399, obj_t BgL_objz00_1400)
{
{ /* Ieee/control.scm 79 */
return 
BBOOL(
BGl_procedurezf3zf3zz__r4_control_features_6_9z00(BgL_objz00_1400));} 

}



/* 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_749;
if(
PAIRP(BgL_optz00_6))
{ /* Ieee/control.scm 86 */
BgL_argsz00_749 = 
MAKE_YOUNG_PAIR(BgL_argsz00_5, 
BGl_loopze74ze7zz__r4_control_features_6_9z00(BgL_optz00_6)); }  else 
{ /* Ieee/control.scm 86 */
BgL_argsz00_749 = BgL_argsz00_5; } 
{ /* Ieee/control.scm 92 */
 int BgL_len1598z00_1488;
BgL_len1598z00_1488 = 
(int)(
bgl_list_length(
((obj_t)BgL_argsz00_749))); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_4, BgL_len1598z00_1488))
{ /* Ieee/control.scm 92 */
return 
apply(BgL_procz00_4, 
((obj_t)BgL_argsz00_749));}  else 
{ /* Ieee/control.scm 92 */
FAILURE(BGl_symbol1827z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1830z00zz__r4_control_features_6_9z00);} } } } 

}



/* loop~4 */
obj_t BGl_loopze74ze7zz__r4_control_features_6_9z00(obj_t BgL_optz00_753)
{
{ /* Ieee/control.scm 87 */
{ /* Ieee/control.scm 88 */
 bool_t BgL_test2065z00_1932;
{ /* Ieee/control.scm 88 */
 obj_t BgL_tmpz00_1933;
{ /* Ieee/control.scm 88 */
 obj_t BgL_pairz00_1259;
if(
PAIRP(BgL_optz00_753))
{ /* Ieee/control.scm 88 */
BgL_pairz00_1259 = BgL_optz00_753; }  else 
{ 
 obj_t BgL_auxz00_1936;
BgL_auxz00_1936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3388L), BGl_string1836z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_optz00_753); 
FAILURE(BgL_auxz00_1936,BFALSE,BFALSE);} 
BgL_tmpz00_1933 = 
CDR(BgL_pairz00_1259); } 
BgL_test2065z00_1932 = 
PAIRP(BgL_tmpz00_1933); } 
if(BgL_test2065z00_1932)
{ /* Ieee/control.scm 89 */
 obj_t BgL_arg1068z00_757; obj_t BgL_arg1070z00_758;
{ /* Ieee/control.scm 89 */
 obj_t BgL_pairz00_1260;
if(
PAIRP(BgL_optz00_753))
{ /* Ieee/control.scm 89 */
BgL_pairz00_1260 = BgL_optz00_753; }  else 
{ 
 obj_t BgL_auxz00_1944;
BgL_auxz00_1944 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3414L), BGl_string1836z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_optz00_753); 
FAILURE(BgL_auxz00_1944,BFALSE,BFALSE);} 
BgL_arg1068z00_757 = 
CAR(BgL_pairz00_1260); } 
{ /* Ieee/control.scm 89 */
 obj_t BgL_arg1071z00_759;
{ /* Ieee/control.scm 89 */
 obj_t BgL_pairz00_1261;
if(
PAIRP(BgL_optz00_753))
{ /* Ieee/control.scm 89 */
BgL_pairz00_1261 = BgL_optz00_753; }  else 
{ 
 obj_t BgL_auxz00_1951;
BgL_auxz00_1951 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3430L), BGl_string1836z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_optz00_753); 
FAILURE(BgL_auxz00_1951,BFALSE,BFALSE);} 
BgL_arg1071z00_759 = 
CDR(BgL_pairz00_1261); } 
BgL_arg1070z00_758 = 
BGl_loopze74ze7zz__r4_control_features_6_9z00(BgL_arg1071z00_759); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1068z00_757, BgL_arg1070z00_758);}  else 
{ /* Ieee/control.scm 90 */
 obj_t BgL_pairz00_1262;
if(
PAIRP(BgL_optz00_753))
{ /* Ieee/control.scm 90 */
BgL_pairz00_1262 = BgL_optz00_753; }  else 
{ 
 obj_t BgL_auxz00_1960;
BgL_auxz00_1960 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3451L), BGl_string1836z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_optz00_753); 
FAILURE(BgL_auxz00_1960,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1262);} } } 

}



/* &apply */
obj_t BGl_z62applyz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1401, obj_t BgL_procz00_1402, obj_t BgL_argsz00_1403, obj_t BgL_optz00_1404)
{
{ /* Ieee/control.scm 85 */
{ /* Ieee/control.scm 86 */
 obj_t BgL_auxz00_1965;
if(
PROCEDUREP(BgL_procz00_1402))
{ /* Ieee/control.scm 86 */
BgL_auxz00_1965 = BgL_procz00_1402
; }  else 
{ 
 obj_t BgL_auxz00_1968;
BgL_auxz00_1968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3301L), BGl_string1838z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_procz00_1402); 
FAILURE(BgL_auxz00_1968,BFALSE,BFALSE);} 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BgL_auxz00_1965, BgL_argsz00_1403, BgL_optz00_1404);} } 

}



/* 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_764; obj_t BgL_resz00_765;
BgL_lz00_764 = BgL_lz00_8; 
BgL_resz00_765 = BNIL; 
BgL_zc3z04anonymousza31073ze3z87_766:
if(
NULLP(BgL_lz00_764))
{ /* Ieee/control.scm 100 */
return 
bgl_reverse_bang(BgL_resz00_765);}  else 
{ /* Ieee/control.scm 102 */
 obj_t BgL_arg1078z00_768; obj_t BgL_arg1079z00_769;
{ /* Ieee/control.scm 102 */
 obj_t BgL_pairz00_1263;
if(
PAIRP(BgL_lz00_764))
{ /* Ieee/control.scm 102 */
BgL_pairz00_1263 = BgL_lz00_764; }  else 
{ 
 obj_t BgL_auxz00_1978;
BgL_auxz00_1978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3833L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_764); 
FAILURE(BgL_auxz00_1978,BFALSE,BFALSE);} 
BgL_arg1078z00_768 = 
CDR(BgL_pairz00_1263); } 
{ /* Ieee/control.scm 102 */
 obj_t BgL_arg1080z00_770;
{ /* Ieee/control.scm 102 */
 obj_t BgL_arg1081z00_771;
{ /* Ieee/control.scm 102 */
 obj_t BgL_pairz00_1264;
if(
PAIRP(BgL_lz00_764))
{ /* Ieee/control.scm 102 */
BgL_pairz00_1264 = BgL_lz00_764; }  else 
{ 
 obj_t BgL_auxz00_1985;
BgL_auxz00_1985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3850L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_764); 
FAILURE(BgL_auxz00_1985,BFALSE,BFALSE);} 
BgL_arg1081z00_771 = 
CAR(BgL_pairz00_1264); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_7, 1L))
{ /* Ieee/control.scm 102 */
BgL_arg1080z00_770 = 
(VA_PROCEDUREP( BgL_fz00_7 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fz00_7))(BgL_fz00_7, BgL_arg1081z00_771, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fz00_7))(BgL_fz00_7, BgL_arg1081z00_771) ); }  else 
{ /* Ieee/control.scm 102 */
FAILURE(BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1842z00zz__r4_control_features_6_9z00,BgL_fz00_7);} } 
BgL_arg1079z00_769 = 
MAKE_YOUNG_PAIR(BgL_arg1080z00_770, BgL_resz00_765); } 
{ 
 obj_t BgL_resz00_1999; obj_t BgL_lz00_1998;
BgL_lz00_1998 = BgL_arg1078z00_768; 
BgL_resz00_1999 = BgL_arg1079z00_769; 
BgL_resz00_765 = BgL_resz00_1999; 
BgL_lz00_764 = BgL_lz00_1998; 
goto BgL_zc3z04anonymousza31073ze3z87_766;} } } } 

}



/* &map-2 */
obj_t BGl_z62mapzd22zb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1405, obj_t BgL_fz00_1406, obj_t BgL_lz00_1407)
{
{ /* Ieee/control.scm 97 */
{ /* Ieee/control.scm 100 */
 obj_t BgL_auxz00_2007; obj_t BgL_auxz00_2000;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1407))
{ /* Ieee/control.scm 100 */
BgL_auxz00_2007 = BgL_lz00_1407
; }  else 
{ 
 obj_t BgL_auxz00_2010;
BgL_auxz00_2010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3787L), BGl_string1849z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_1407); 
FAILURE(BgL_auxz00_2010,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_fz00_1406))
{ /* Ieee/control.scm 100 */
BgL_auxz00_2000 = BgL_fz00_1406
; }  else 
{ 
 obj_t BgL_auxz00_2003;
BgL_auxz00_2003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(3787L), BGl_string1849z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1406); 
FAILURE(BgL_auxz00_2003,BFALSE,BFALSE);} 
return 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_auxz00_2000, BgL_auxz00_2007);} } 

}



/* 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_test2078z00_2017;
{ /* Ieee/control.scm 111 */
 obj_t BgL_tmpz00_2018;
{ /* Ieee/control.scm 111 */
 obj_t BgL_pairz00_1265;
if(
PAIRP(BgL_lz00_10))
{ /* Ieee/control.scm 111 */
BgL_pairz00_1265 = BgL_lz00_10; }  else 
{ 
 obj_t BgL_auxz00_2021;
BgL_auxz00_2021 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4163L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_10); 
FAILURE(BgL_auxz00_2021,BFALSE,BFALSE);} 
BgL_tmpz00_2018 = 
CDR(BgL_pairz00_1265); } 
BgL_test2078z00_2017 = 
NULLP(BgL_tmpz00_2018); } 
if(BgL_test2078z00_2017)
{ /* Ieee/control.scm 112 */
 obj_t BgL_arg1085z00_776;
{ /* Ieee/control.scm 112 */
 obj_t BgL_pairz00_1266;
if(
PAIRP(BgL_lz00_10))
{ /* Ieee/control.scm 112 */
BgL_pairz00_1266 = BgL_lz00_10; }  else 
{ 
 obj_t BgL_auxz00_2029;
BgL_auxz00_2029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4188L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_10); 
FAILURE(BgL_auxz00_2029,BFALSE,BFALSE);} 
BgL_arg1085z00_776 = 
CAR(BgL_pairz00_1266); } 
{ /* Ieee/control.scm 112 */
 obj_t BgL_auxz00_2034;
{ /* Ieee/control.scm 112 */
 bool_t BgL_test2081z00_2035;
if(
PAIRP(BgL_arg1085z00_776))
{ /* Ieee/control.scm 112 */
BgL_test2081z00_2035 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 112 */
BgL_test2081z00_2035 = 
NULLP(BgL_arg1085z00_776)
; } 
if(BgL_test2081z00_2035)
{ /* Ieee/control.scm 112 */
BgL_auxz00_2034 = BgL_arg1085z00_776
; }  else 
{ 
 obj_t BgL_auxz00_2039;
BgL_auxz00_2039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4189L), BGl_string1851z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_arg1085z00_776); 
FAILURE(BgL_auxz00_2039,BFALSE,BFALSE);} } 
return 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_fz00_9, BgL_auxz00_2034);} }  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_1485, obj_t BgL_lz00_778)
{
{ /* Ieee/control.scm 114 */
{ /* Ieee/control.scm 115 */
 bool_t BgL_test2083z00_2045;
{ /* Ieee/control.scm 115 */
 obj_t BgL_tmpz00_2046;
{ /* Ieee/control.scm 115 */
 obj_t BgL_pairz00_1267;
if(
PAIRP(BgL_lz00_778))
{ /* Ieee/control.scm 115 */
BgL_pairz00_1267 = BgL_lz00_778; }  else 
{ 
 obj_t BgL_auxz00_2049;
BgL_auxz00_2049 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4249L), BGl_string1852z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_778); 
FAILURE(BgL_auxz00_2049,BFALSE,BFALSE);} 
BgL_tmpz00_2046 = 
CAR(BgL_pairz00_1267); } 
BgL_test2083z00_2045 = 
NULLP(BgL_tmpz00_2046); } 
if(BgL_test2083z00_2045)
{ /* Ieee/control.scm 115 */
return BNIL;}  else 
{ /* Ieee/control.scm 117 */
 obj_t BgL_arg1090z00_782; obj_t BgL_arg1091z00_783;
{ /* Ieee/control.scm 117 */
 obj_t BgL_valz00_1520;
{ /* Ieee/control.scm 117 */
 obj_t BgL_auxz00_2055;
{ /* Ieee/control.scm 117 */
 bool_t BgL_test2085z00_2056;
if(
PAIRP(BgL_lz00_778))
{ /* Ieee/control.scm 117 */
BgL_test2085z00_2056 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 117 */
BgL_test2085z00_2056 = 
NULLP(BgL_lz00_778)
; } 
if(BgL_test2085z00_2056)
{ /* Ieee/control.scm 117 */
BgL_auxz00_2055 = BgL_lz00_778
; }  else 
{ 
 obj_t BgL_auxz00_2060;
BgL_auxz00_2060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4297L), BGl_string1852z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_778); 
FAILURE(BgL_auxz00_2060,BFALSE,BFALSE);} } 
BgL_valz00_1520 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2055); } 
{ /* Ieee/control.scm 117 */
 int BgL_len1629z00_1521;
BgL_len1629z00_1521 = 
(int)(
bgl_list_length(BgL_valz00_1520)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1485, BgL_len1629z00_1521))
{ /* Ieee/control.scm 117 */
BgL_arg1090z00_782 = 
apply(BgL_fz00_1485, BgL_valz00_1520); }  else 
{ /* Ieee/control.scm 117 */
FAILURE(BGl_symbol1853z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1854z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 118 */
 obj_t BgL_arg1092z00_784;
{ /* Ieee/control.scm 118 */
 obj_t BgL_auxz00_2072;
{ /* Ieee/control.scm 118 */
 bool_t BgL_test2088z00_2073;
if(
PAIRP(BgL_lz00_778))
{ /* Ieee/control.scm 118 */
BgL_test2088z00_2073 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 118 */
BgL_test2088z00_2073 = 
NULLP(BgL_lz00_778)
; } 
if(BgL_test2088z00_2073)
{ /* Ieee/control.scm 118 */
BgL_auxz00_2072 = BgL_lz00_778
; }  else 
{ 
 obj_t BgL_auxz00_2077;
BgL_auxz00_2077 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4324L), BGl_string1852z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_778); 
FAILURE(BgL_auxz00_2077,BFALSE,BFALSE);} } 
BgL_arg1092z00_784 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2072); } 
BgL_arg1091z00_783 = 
BGl_loopze73ze7zz__r4_control_features_6_9z00(BgL_fz00_1485, BgL_arg1092z00_784); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1090z00_782, BgL_arg1091z00_783);} } } 

}



/* &map */
obj_t BGl_z62mapz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1408, obj_t BgL_fz00_1409, obj_t BgL_lz00_1410)
{
{ /* Ieee/control.scm 107 */
{ /* Ieee/control.scm 109 */
 obj_t BgL_auxz00_2084;
if(
PROCEDUREP(BgL_fz00_1409))
{ /* Ieee/control.scm 109 */
BgL_auxz00_2084 = BgL_fz00_1409
; }  else 
{ 
 obj_t BgL_auxz00_2087;
BgL_auxz00_2087 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4121L), BGl_string1862z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1409); 
FAILURE(BgL_auxz00_2087,BFALSE,BFALSE);} 
return 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_auxz00_2084, BgL_lz00_1410);} } 

}



/* 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_789;
BgL_lz00_789 = BgL_l0z00_12; 
BgL_zc3z04anonymousza31096ze3z87_790:
if(
NULLP(BgL_lz00_789))
{ /* Ieee/control.scm 125 */
return BgL_l0z00_12;}  else 
{ /* Ieee/control.scm 125 */
{ /* Ieee/control.scm 128 */
 obj_t BgL_arg1098z00_792;
{ /* Ieee/control.scm 128 */
 obj_t BgL_arg1110z00_793;
{ /* Ieee/control.scm 128 */
 obj_t BgL_pairz00_1268;
if(
PAIRP(BgL_lz00_789))
{ /* Ieee/control.scm 128 */
BgL_pairz00_1268 = BgL_lz00_789; }  else 
{ 
 obj_t BgL_auxz00_2096;
BgL_auxz00_2096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4663L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_789); 
FAILURE(BgL_auxz00_2096,BFALSE,BFALSE);} 
BgL_arg1110z00_793 = 
CAR(BgL_pairz00_1268); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_11, 1L))
{ /* Ieee/control.scm 128 */
BgL_arg1098z00_792 = 
(VA_PROCEDUREP( BgL_fz00_11 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fz00_11))(BgL_fz00_11, BgL_arg1110z00_793, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fz00_11))(BgL_fz00_11, BgL_arg1110z00_793) ); }  else 
{ /* Ieee/control.scm 128 */
FAILURE(BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1863z00zz__r4_control_features_6_9z00,BgL_fz00_11);} } 
{ /* Ieee/control.scm 128 */
 obj_t BgL_pairz00_1269;
if(
PAIRP(BgL_lz00_789))
{ /* Ieee/control.scm 128 */
BgL_pairz00_1269 = BgL_lz00_789; }  else 
{ 
 obj_t BgL_auxz00_2110;
BgL_auxz00_2110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4653L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_789); 
FAILURE(BgL_auxz00_2110,BFALSE,BFALSE);} 
SET_CAR(BgL_pairz00_1269, BgL_arg1098z00_792); } } 
{ /* Ieee/control.scm 129 */
 obj_t BgL_arg1121z00_794;
{ /* Ieee/control.scm 129 */
 obj_t BgL_pairz00_1270;
if(
PAIRP(BgL_lz00_789))
{ /* Ieee/control.scm 129 */
BgL_pairz00_1270 = BgL_lz00_789; }  else 
{ 
 obj_t BgL_auxz00_2117;
BgL_auxz00_2117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4685L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_789); 
FAILURE(BgL_auxz00_2117,BFALSE,BFALSE);} 
BgL_arg1121z00_794 = 
CDR(BgL_pairz00_1270); } 
{ 
 obj_t BgL_lz00_2122;
BgL_lz00_2122 = BgL_arg1121z00_794; 
BgL_lz00_789 = BgL_lz00_2122; 
goto BgL_zc3z04anonymousza31096ze3z87_790;} } } } } 

}



/* 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_test2097z00_2125;
{ /* Ieee/control.scm 138 */
 obj_t BgL_tmpz00_2126;
{ /* Ieee/control.scm 138 */
 obj_t BgL_pairz00_1271;
if(
PAIRP(BgL_lz00_14))
{ /* Ieee/control.scm 138 */
BgL_pairz00_1271 = BgL_lz00_14; }  else 
{ 
 obj_t BgL_auxz00_2129;
BgL_auxz00_2129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4994L), BGl_string1866z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_14); 
FAILURE(BgL_auxz00_2129,BFALSE,BFALSE);} 
BgL_tmpz00_2126 = 
CDR(BgL_pairz00_1271); } 
BgL_test2097z00_2125 = 
NULLP(BgL_tmpz00_2126); } 
if(BgL_test2097z00_2125)
{ /* Ieee/control.scm 139 */
 obj_t BgL_arg1125z00_799;
{ /* Ieee/control.scm 139 */
 obj_t BgL_pairz00_1272;
if(
PAIRP(BgL_lz00_14))
{ /* Ieee/control.scm 139 */
BgL_pairz00_1272 = BgL_lz00_14; }  else 
{ 
 obj_t BgL_auxz00_2137;
BgL_auxz00_2137 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5020L), BGl_string1866z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_14); 
FAILURE(BgL_auxz00_2137,BFALSE,BFALSE);} 
BgL_arg1125z00_799 = 
CAR(BgL_pairz00_1272); } 
{ /* Ieee/control.scm 139 */
 obj_t BgL_aux1645z00_1538;
BgL_aux1645z00_1538 = 
BGl_mapzd22z12zc0zz__r4_control_features_6_9z00(BgL_fz00_13, BgL_arg1125z00_799); 
{ /* Ieee/control.scm 139 */
 bool_t BgL_test2100z00_2143;
if(
PAIRP(BgL_aux1645z00_1538))
{ /* Ieee/control.scm 139 */
BgL_test2100z00_2143 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 139 */
BgL_test2100z00_2143 = 
NULLP(BgL_aux1645z00_1538)
; } 
if(BgL_test2100z00_2143)
{ /* Ieee/control.scm 139 */
return BgL_aux1645z00_1538;}  else 
{ 
 obj_t BgL_auxz00_2147;
BgL_auxz00_2147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5005L), BGl_string1866z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1645z00_1538); 
FAILURE(BgL_auxz00_2147,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/control.scm 141 */
 obj_t BgL_l0z00_800;
{ /* Ieee/control.scm 141 */
 obj_t BgL_pairz00_1273;
if(
PAIRP(BgL_lz00_14))
{ /* Ieee/control.scm 141 */
BgL_pairz00_1273 = BgL_lz00_14; }  else 
{ 
 obj_t BgL_auxz00_2153;
BgL_auxz00_2153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5059L), BGl_string1866z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_14); 
FAILURE(BgL_auxz00_2153,BFALSE,BFALSE);} 
BgL_l0z00_800 = 
CAR(BgL_pairz00_1273); } 
{ 
 obj_t BgL_lz00_802;
{ /* Ieee/control.scm 142 */
 obj_t BgL_aux1660z00_1555;
BgL_lz00_802 = BgL_lz00_14; 
BgL_zc3z04anonymousza31126ze3z87_803:
{ /* Ieee/control.scm 143 */
 bool_t BgL_test2103z00_2158;
{ /* Ieee/control.scm 143 */
 obj_t BgL_tmpz00_2159;
{ /* Ieee/control.scm 143 */
 obj_t BgL_pairz00_1274;
if(
PAIRP(BgL_lz00_802))
{ /* Ieee/control.scm 143 */
BgL_pairz00_1274 = BgL_lz00_802; }  else 
{ 
 obj_t BgL_auxz00_2162;
BgL_auxz00_2162 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5107L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_802); 
FAILURE(BgL_auxz00_2162,BFALSE,BFALSE);} 
BgL_tmpz00_2159 = 
CAR(BgL_pairz00_1274); } 
BgL_test2103z00_2158 = 
NULLP(BgL_tmpz00_2159); } 
if(BgL_test2103z00_2158)
{ /* Ieee/control.scm 143 */
BgL_aux1660z00_1555 = BgL_l0z00_800; }  else 
{ /* Ieee/control.scm 143 */
{ /* Ieee/control.scm 146 */
 obj_t BgL_arg1134z00_806; obj_t BgL_arg1135z00_807;
{ /* Ieee/control.scm 146 */
 obj_t BgL_pairz00_1275;
if(
PAIRP(BgL_lz00_802))
{ /* Ieee/control.scm 146 */
BgL_pairz00_1275 = BgL_lz00_802; }  else 
{ 
 obj_t BgL_auxz00_2170;
BgL_auxz00_2170 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5148L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_802); 
FAILURE(BgL_auxz00_2170,BFALSE,BFALSE);} 
BgL_arg1134z00_806 = 
CAR(BgL_pairz00_1275); } 
{ /* Ieee/control.scm 146 */
 obj_t BgL_valz00_1549;
{ /* Ieee/control.scm 146 */
 obj_t BgL_auxz00_2175;
{ /* Ieee/control.scm 146 */
 bool_t BgL_test2106z00_2176;
if(
PAIRP(BgL_lz00_802))
{ /* Ieee/control.scm 146 */
BgL_test2106z00_2176 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 146 */
BgL_test2106z00_2176 = 
NULLP(BgL_lz00_802)
; } 
if(BgL_test2106z00_2176)
{ /* Ieee/control.scm 146 */
BgL_auxz00_2175 = BgL_lz00_802
; }  else 
{ 
 obj_t BgL_auxz00_2180;
BgL_auxz00_2180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5171L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_802); 
FAILURE(BgL_auxz00_2180,BFALSE,BFALSE);} } 
BgL_valz00_1549 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2175); } 
{ /* Ieee/control.scm 146 */
 int BgL_len1655z00_1550;
BgL_len1655z00_1550 = 
(int)(
bgl_list_length(BgL_valz00_1549)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_13, BgL_len1655z00_1550))
{ /* Ieee/control.scm 146 */
BgL_arg1135z00_807 = 
apply(BgL_fz00_13, BgL_valz00_1549); }  else 
{ /* Ieee/control.scm 146 */
FAILURE(BGl_symbol1867z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1854z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 146 */
 obj_t BgL_pairz00_1276;
if(
PAIRP(BgL_arg1134z00_806))
{ /* Ieee/control.scm 146 */
BgL_pairz00_1276 = BgL_arg1134z00_806; }  else 
{ 
 obj_t BgL_auxz00_2194;
BgL_auxz00_2194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5149L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_arg1134z00_806); 
FAILURE(BgL_auxz00_2194,BFALSE,BFALSE);} 
SET_CAR(BgL_pairz00_1276, BgL_arg1135z00_807); } } 
{ /* Ieee/control.scm 147 */
 obj_t BgL_arg1137z00_808;
{ /* Ieee/control.scm 147 */
 obj_t BgL_auxz00_2199;
{ /* Ieee/control.scm 147 */
 bool_t BgL_test2110z00_2200;
if(
PAIRP(BgL_lz00_802))
{ /* Ieee/control.scm 147 */
BgL_test2110z00_2200 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 147 */
BgL_test2110z00_2200 = 
NULLP(BgL_lz00_802)
; } 
if(BgL_test2110z00_2200)
{ /* Ieee/control.scm 147 */
BgL_auxz00_2199 = BgL_lz00_802
; }  else 
{ 
 obj_t BgL_auxz00_2204;
BgL_auxz00_2204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5199L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_802); 
FAILURE(BgL_auxz00_2204,BFALSE,BFALSE);} } 
BgL_arg1137z00_808 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2199); } 
{ 
 obj_t BgL_lz00_2209;
BgL_lz00_2209 = BgL_arg1137z00_808; 
BgL_lz00_802 = BgL_lz00_2209; 
goto BgL_zc3z04anonymousza31126ze3z87_803;} } } } 
{ /* Ieee/control.scm 142 */
 bool_t BgL_test2112z00_2210;
if(
PAIRP(BgL_aux1660z00_1555))
{ /* Ieee/control.scm 142 */
BgL_test2112z00_2210 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 142 */
BgL_test2112z00_2210 = 
NULLP(BgL_aux1660z00_1555)
; } 
if(BgL_test2112z00_2210)
{ /* Ieee/control.scm 142 */
return BgL_aux1660z00_1555;}  else 
{ 
 obj_t BgL_auxz00_2214;
BgL_auxz00_2214 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5067L), BGl_string1866z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1660z00_1555); 
FAILURE(BgL_auxz00_2214,BFALSE,BFALSE);} } } } } } } 

}



/* &map! */
obj_t BGl_z62mapz12z70zz__r4_control_features_6_9z00(obj_t BgL_envz00_1415, obj_t BgL_fz00_1416, obj_t BgL_lz00_1417)
{
{ /* Ieee/control.scm 134 */
{ /* Ieee/control.scm 136 */
 obj_t BgL_auxz00_2218;
if(
PROCEDUREP(BgL_fz00_1416))
{ /* Ieee/control.scm 136 */
BgL_auxz00_2218 = BgL_fz00_1416
; }  else 
{ 
 obj_t BgL_auxz00_2221;
BgL_auxz00_2221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(4952L), BGl_string1868z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1416); 
FAILURE(BgL_auxz00_2221,BFALSE,BFALSE);} 
return 
BGl_mapz12z12zz__r4_control_features_6_9z00(BgL_auxz00_2218, BgL_lz00_1417);} } 

}



/* loop~2 */
obj_t BGl_loopze72ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1484, obj_t BgL_lz00_813)
{
{ /* Ieee/control.scm 153 */
if(
NULLP(BgL_lz00_813))
{ /* Ieee/control.scm 154 */
return BNIL;}  else 
{ /* Ieee/control.scm 156 */
 obj_t BgL_arg1144z00_816; obj_t BgL_arg1145z00_817;
{ /* Ieee/control.scm 156 */
 obj_t BgL_arg1146z00_818;
{ /* Ieee/control.scm 156 */
 obj_t BgL_pairz00_1277;
if(
PAIRP(BgL_lz00_813))
{ /* Ieee/control.scm 156 */
BgL_pairz00_1277 = BgL_lz00_813; }  else 
{ 
 obj_t BgL_auxz00_2230;
BgL_auxz00_2230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5526L), BGl_string1869z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_813); 
FAILURE(BgL_auxz00_2230,BFALSE,BFALSE);} 
BgL_arg1146z00_818 = 
CAR(BgL_pairz00_1277); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1484, 1L))
{ /* Ieee/control.scm 156 */
BgL_arg1144z00_816 = 
(VA_PROCEDUREP( BgL_fz00_1484 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fz00_1484))(BgL_fz00_1484, BgL_arg1146z00_818, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fz00_1484))(BgL_fz00_1484, BgL_arg1146z00_818) ); }  else 
{ /* Ieee/control.scm 156 */
FAILURE(BGl_string1870z00zz__r4_control_features_6_9z00,BGl_list1871z00zz__r4_control_features_6_9z00,BgL_fz00_1484);} } 
{ /* Ieee/control.scm 156 */
 obj_t BgL_arg1148z00_819;
{ /* Ieee/control.scm 156 */
 obj_t BgL_pairz00_1278;
if(
PAIRP(BgL_lz00_813))
{ /* Ieee/control.scm 156 */
BgL_pairz00_1278 = BgL_lz00_813; }  else 
{ 
 obj_t BgL_auxz00_2244;
BgL_auxz00_2244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5541L), BGl_string1869z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_813); 
FAILURE(BgL_auxz00_2244,BFALSE,BFALSE);} 
BgL_arg1148z00_819 = 
CDR(BgL_pairz00_1278); } 
BgL_arg1145z00_817 = 
BGl_loopze72ze7zz__r4_control_features_6_9z00(BgL_fz00_1484, BgL_arg1148z00_819); } 
{ /* Ieee/control.scm 156 */
 obj_t BgL_auxz00_2250;
{ /* Ieee/control.scm 156 */
 bool_t BgL_test2119z00_2251;
if(
PAIRP(BgL_arg1144z00_816))
{ /* Ieee/control.scm 156 */
BgL_test2119z00_2251 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 156 */
BgL_test2119z00_2251 = 
NULLP(BgL_arg1144z00_816)
; } 
if(BgL_test2119z00_2251)
{ /* Ieee/control.scm 156 */
BgL_auxz00_2250 = BgL_arg1144z00_816
; }  else 
{ 
 obj_t BgL_auxz00_2255;
BgL_auxz00_2255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5510L), BGl_string1869z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_arg1144z00_816); 
FAILURE(BgL_auxz00_2255,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r4_control_features_6_9z00(BgL_auxz00_2250, BgL_arg1145z00_817);} } } 

}



/* 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_test2122z00_2262;
{ /* Ieee/control.scm 165 */
 obj_t BgL_tmpz00_2263;
{ /* Ieee/control.scm 165 */
 obj_t BgL_pairz00_1279;
if(
PAIRP(BgL_lz00_18))
{ /* Ieee/control.scm 165 */
BgL_pairz00_1279 = BgL_lz00_18; }  else 
{ 
 obj_t BgL_auxz00_2266;
BgL_auxz00_2266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5856L), BGl_string1874z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_18); 
FAILURE(BgL_auxz00_2266,BFALSE,BFALSE);} 
BgL_tmpz00_2263 = 
CDR(BgL_pairz00_1279); } 
BgL_test2122z00_2262 = 
NULLP(BgL_tmpz00_2263); } 
if(BgL_test2122z00_2262)
{ /* Ieee/control.scm 166 */
 obj_t BgL_arg1154z00_824;
{ /* Ieee/control.scm 166 */
 obj_t BgL_pairz00_1280;
if(
PAIRP(BgL_lz00_18))
{ /* Ieee/control.scm 166 */
BgL_pairz00_1280 = BgL_lz00_18; }  else 
{ 
 obj_t BgL_auxz00_2274;
BgL_auxz00_2274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5887L), BGl_string1874z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_18); 
FAILURE(BgL_auxz00_2274,BFALSE,BFALSE);} 
BgL_arg1154z00_824 = 
CAR(BgL_pairz00_1280); } 
{ /* Ieee/control.scm 166 */
 obj_t BgL_aux1675z00_1571;
BgL_aux1675z00_1571 = 
BGl_loopze72ze7zz__r4_control_features_6_9z00(BgL_fz00_17, BgL_arg1154z00_824); 
{ /* Ieee/control.scm 166 */
 bool_t BgL_test2125z00_2280;
if(
PAIRP(BgL_aux1675z00_1571))
{ /* Ieee/control.scm 166 */
BgL_test2125z00_2280 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 166 */
BgL_test2125z00_2280 = 
NULLP(BgL_aux1675z00_1571)
; } 
if(BgL_test2125z00_2280)
{ /* Ieee/control.scm 166 */
return BgL_aux1675z00_1571;}  else 
{ 
 obj_t BgL_auxz00_2284;
BgL_auxz00_2284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5867L), BGl_string1874z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1675z00_1571); 
FAILURE(BgL_auxz00_2284,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/control.scm 168 */
 obj_t BgL_aux1677z00_1573;
BgL_aux1677z00_1573 = 
BGl_loopze71ze7zz__r4_control_features_6_9z00(BgL_fz00_17, BgL_lz00_18); 
{ /* Ieee/control.scm 168 */
 bool_t BgL_test2127z00_2289;
if(
PAIRP(BgL_aux1677z00_1573))
{ /* Ieee/control.scm 168 */
BgL_test2127z00_2289 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 168 */
BgL_test2127z00_2289 = 
NULLP(BgL_aux1677z00_1573)
; } 
if(BgL_test2127z00_2289)
{ /* Ieee/control.scm 168 */
return BgL_aux1677z00_1573;}  else 
{ 
 obj_t BgL_auxz00_2293;
BgL_auxz00_2293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5911L), BGl_string1874z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1677z00_1573); 
FAILURE(BgL_auxz00_2293,BFALSE,BFALSE);} } } } } 

}



/* loop~1 */
obj_t BGl_loopze71ze7zz__r4_control_features_6_9z00(obj_t BgL_fz00_1483, obj_t BgL_lz00_826)
{
{ /* Ieee/control.scm 168 */
{ /* Ieee/control.scm 169 */
 bool_t BgL_test2129z00_2297;
{ /* Ieee/control.scm 169 */
 obj_t BgL_tmpz00_2298;
{ /* Ieee/control.scm 169 */
 obj_t BgL_pairz00_1281;
if(
PAIRP(BgL_lz00_826))
{ /* Ieee/control.scm 169 */
BgL_pairz00_1281 = BgL_lz00_826; }  else 
{ 
 obj_t BgL_auxz00_2301;
BgL_auxz00_2301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5948L), BGl_string1875z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_826); 
FAILURE(BgL_auxz00_2301,BFALSE,BFALSE);} 
BgL_tmpz00_2298 = 
CAR(BgL_pairz00_1281); } 
BgL_test2129z00_2297 = 
NULLP(BgL_tmpz00_2298); } 
if(BgL_test2129z00_2297)
{ /* Ieee/control.scm 169 */
return BNIL;}  else 
{ /* Ieee/control.scm 171 */
 obj_t BgL_arg1158z00_830; obj_t BgL_arg1159z00_831;
{ /* Ieee/control.scm 171 */
 obj_t BgL_valz00_1580;
{ /* Ieee/control.scm 171 */
 obj_t BgL_auxz00_2307;
{ /* Ieee/control.scm 171 */
 bool_t BgL_test2131z00_2308;
if(
PAIRP(BgL_lz00_826))
{ /* Ieee/control.scm 171 */
BgL_test2131z00_2308 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 171 */
BgL_test2131z00_2308 = 
NULLP(BgL_lz00_826)
; } 
if(BgL_test2131z00_2308)
{ /* Ieee/control.scm 171 */
BgL_auxz00_2307 = BgL_lz00_826
; }  else 
{ 
 obj_t BgL_auxz00_2312;
BgL_auxz00_2312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5998L), BGl_string1875z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_826); 
FAILURE(BgL_auxz00_2312,BFALSE,BFALSE);} } 
BgL_valz00_1580 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2307); } 
{ /* Ieee/control.scm 171 */
 int BgL_len1683z00_1581;
BgL_len1683z00_1581 = 
(int)(
bgl_list_length(BgL_valz00_1580)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1483, BgL_len1683z00_1581))
{ /* Ieee/control.scm 171 */
BgL_arg1158z00_830 = 
apply(BgL_fz00_1483, BgL_valz00_1580); }  else 
{ /* Ieee/control.scm 171 */
FAILURE(BGl_symbol1876z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1854z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 171 */
 obj_t BgL_arg1160z00_832;
{ /* Ieee/control.scm 171 */
 obj_t BgL_auxz00_2324;
{ /* Ieee/control.scm 171 */
 bool_t BgL_test2134z00_2325;
if(
PAIRP(BgL_lz00_826))
{ /* Ieee/control.scm 171 */
BgL_test2134z00_2325 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 171 */
BgL_test2134z00_2325 = 
NULLP(BgL_lz00_826)
; } 
if(BgL_test2134z00_2325)
{ /* Ieee/control.scm 171 */
BgL_auxz00_2324 = BgL_lz00_826
; }  else 
{ 
 obj_t BgL_auxz00_2329;
BgL_auxz00_2329 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6019L), BGl_string1875z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_826); 
FAILURE(BgL_auxz00_2329,BFALSE,BFALSE);} } 
BgL_arg1160z00_832 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2324); } 
BgL_arg1159z00_831 = 
BGl_loopze71ze7zz__r4_control_features_6_9z00(BgL_fz00_1483, BgL_arg1160z00_832); } 
{ /* Ieee/control.scm 171 */
 obj_t BgL_auxz00_2335;
{ /* Ieee/control.scm 171 */
 bool_t BgL_test2136z00_2336;
if(
PAIRP(BgL_arg1158z00_830))
{ /* Ieee/control.scm 171 */
BgL_test2136z00_2336 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 171 */
BgL_test2136z00_2336 = 
NULLP(BgL_arg1158z00_830)
; } 
if(BgL_test2136z00_2336)
{ /* Ieee/control.scm 171 */
BgL_auxz00_2335 = BgL_arg1158z00_830
; }  else 
{ 
 obj_t BgL_auxz00_2340;
BgL_auxz00_2340 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5970L), BGl_string1875z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_arg1158z00_830); 
FAILURE(BgL_auxz00_2340,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r4_control_features_6_9z00(BgL_auxz00_2335, BgL_arg1159z00_831);} } } } 

}



/* &append-map */
obj_t BGl_z62appendzd2mapzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1418, obj_t BgL_fz00_1419, obj_t BgL_lz00_1420)
{
{ /* Ieee/control.scm 161 */
{ /* Ieee/control.scm 163 */
 obj_t BgL_auxz00_2345;
if(
PROCEDUREP(BgL_fz00_1419))
{ /* Ieee/control.scm 163 */
BgL_auxz00_2345 = BgL_fz00_1419
; }  else 
{ 
 obj_t BgL_auxz00_2348;
BgL_auxz00_2348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(5814L), BGl_string1877z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1419); 
FAILURE(BgL_auxz00_2348,BFALSE,BFALSE);} 
return 
BGl_appendzd2mapzd2zz__r4_control_features_6_9z00(BgL_auxz00_2345, BgL_lz00_1420);} } 

}



/* 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_837;
{ /* Ieee/control.scm 179 */
 obj_t BgL_list1187z00_849;
BgL_list1187z00_849 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_resultz00_837 = BgL_list1187z00_849; } 
{ /* Ieee/control.scm 179 */
 obj_t BgL_lpairz00_838;
BgL_lpairz00_838 = BgL_resultz00_837; 
{ /* Ieee/control.scm 180 */

{ 
 obj_t BgL_l1028z00_840;
BgL_l1028z00_840 = BgL_lz00_20; 
BgL_zc3z04anonymousza31169ze3z87_841:
if(
PAIRP(BgL_l1028z00_840))
{ /* Ieee/control.scm 181 */
{ /* Ieee/control.scm 182 */
 obj_t BgL_xz00_843;
BgL_xz00_843 = 
CAR(BgL_l1028z00_840); 
{ /* Ieee/control.scm 182 */
 obj_t BgL_result2z00_844;
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_19, 1L))
{ /* Ieee/control.scm 182 */
BgL_result2z00_844 = 
(VA_PROCEDUREP( BgL_fz00_19 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fz00_19))(BgL_fz00_19, BgL_xz00_843, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fz00_19))(BgL_fz00_19, BgL_xz00_843) ); }  else 
{ /* Ieee/control.scm 182 */
FAILURE(BGl_string1878z00zz__r4_control_features_6_9z00,BGl_list1879z00zz__r4_control_features_6_9z00,BgL_fz00_19);} 
if(
PAIRP(BgL_result2z00_844))
{ /* Ieee/control.scm 183 */
{ /* Ieee/control.scm 184 */
 obj_t BgL_pairz00_1284;
{ /* Ieee/control.scm 184 */
 obj_t BgL_aux1691z00_1590;
BgL_aux1691z00_1590 = BgL_lpairz00_838; 
if(
NULLP(BgL_aux1691z00_1590))
{ 
 obj_t BgL_auxz00_2370;
BgL_auxz00_2370 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6465L), BGl_string1882z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_aux1691z00_1590); 
FAILURE(BgL_auxz00_2370,BFALSE,BFALSE);}  else 
{ /* Ieee/control.scm 184 */
BgL_pairz00_1284 = BgL_aux1691z00_1590; } } 
SET_CDR(BgL_pairz00_1284, BgL_result2z00_844); } 
BgL_lpairz00_838 = 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_result2z00_844); }  else 
{ /* Ieee/control.scm 183 */BFALSE; } } } 
{ 
 obj_t BgL_l1028z00_2376;
BgL_l1028z00_2376 = 
CDR(BgL_l1028z00_840); 
BgL_l1028z00_840 = BgL_l1028z00_2376; 
goto BgL_zc3z04anonymousza31169ze3z87_841;} }  else 
{ /* Ieee/control.scm 181 */
if(
NULLP(BgL_l1028z00_840))
{ /* Ieee/control.scm 181 */BTRUE; }  else 
{ /* Ieee/control.scm 181 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string1883z00zz__r4_control_features_6_9z00, BGl_string1884z00zz__r4_control_features_6_9z00, BgL_l1028z00_840, BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6366L)); } } } 
{ /* Ieee/control.scm 187 */
 obj_t BgL_pairz00_1286;
if(
NULLP(BgL_resultz00_837))
{ 
 obj_t BgL_auxz00_2384;
BgL_auxz00_2384 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6541L), BGl_string1885z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_resultz00_837); 
FAILURE(BgL_auxz00_2384,BFALSE,BFALSE);}  else 
{ /* Ieee/control.scm 187 */
BgL_pairz00_1286 = BgL_resultz00_837; } 
return 
CDR(BgL_pairz00_1286);} } } } } 

}



/* 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_test2147z00_2391;
{ /* Ieee/control.scm 196 */
 obj_t BgL_tmpz00_2392;
{ /* Ieee/control.scm 196 */
 obj_t BgL_pairz00_1287;
if(
PAIRP(BgL_lz00_22))
{ /* Ieee/control.scm 196 */
BgL_pairz00_1287 = BgL_lz00_22; }  else 
{ 
 obj_t BgL_auxz00_2395;
BgL_auxz00_2395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6860L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_22); 
FAILURE(BgL_auxz00_2395,BFALSE,BFALSE);} 
BgL_tmpz00_2392 = 
CDR(BgL_pairz00_1287); } 
BgL_test2147z00_2391 = 
NULLP(BgL_tmpz00_2392); } 
if(BgL_test2147z00_2391)
{ /* Ieee/control.scm 197 */
 obj_t BgL_arg1196z00_853;
{ /* Ieee/control.scm 197 */
 obj_t BgL_pairz00_1288;
if(
PAIRP(BgL_lz00_22))
{ /* Ieee/control.scm 197 */
BgL_pairz00_1288 = BgL_lz00_22; }  else 
{ 
 obj_t BgL_auxz00_2403;
BgL_auxz00_2403 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6892L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_22); 
FAILURE(BgL_auxz00_2403,BFALSE,BFALSE);} 
BgL_arg1196z00_853 = 
CAR(BgL_pairz00_1288); } 
{ /* Ieee/control.scm 197 */
 obj_t BgL_aux1699z00_1598;
BgL_aux1699z00_1598 = 
BGl_appendzd2map2z12zc0zz__r4_control_features_6_9z00(BgL_fz00_21, BgL_arg1196z00_853); 
{ /* Ieee/control.scm 197 */
 bool_t BgL_test2150z00_2409;
if(
PAIRP(BgL_aux1699z00_1598))
{ /* Ieee/control.scm 197 */
BgL_test2150z00_2409 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 197 */
BgL_test2150z00_2409 = 
NULLP(BgL_aux1699z00_1598)
; } 
if(BgL_test2150z00_2409)
{ /* Ieee/control.scm 197 */
return BgL_aux1699z00_1598;}  else 
{ 
 obj_t BgL_auxz00_2413;
BgL_auxz00_2413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6871L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1699z00_1598); 
FAILURE(BgL_auxz00_2413,BFALSE,BFALSE);} } } }  else 
{ /* Ieee/control.scm 199 */
 bool_t BgL_test2152z00_2417;
{ /* Ieee/control.scm 199 */
 obj_t BgL_tmpz00_2418;
{ /* Ieee/control.scm 199 */
 obj_t BgL_pairz00_1289;
if(
PAIRP(BgL_lz00_22))
{ /* Ieee/control.scm 199 */
BgL_pairz00_1289 = BgL_lz00_22; }  else 
{ 
 obj_t BgL_auxz00_2421;
BgL_auxz00_2421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6932L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_22); 
FAILURE(BgL_auxz00_2421,BFALSE,BFALSE);} 
BgL_tmpz00_2418 = 
CAR(BgL_pairz00_1289); } 
BgL_test2152z00_2417 = 
NULLP(BgL_tmpz00_2418); } 
if(BgL_test2152z00_2417)
{ /* Ieee/control.scm 199 */
return BNIL;}  else 
{ /* Ieee/control.scm 201 */
 obj_t BgL_resultz00_856;
{ /* Ieee/control.scm 201 */
 obj_t BgL_list1205z00_867;
BgL_list1205z00_867 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
BgL_resultz00_856 = BgL_list1205z00_867; } 
{ /* Ieee/control.scm 201 */
 obj_t BgL_lpairz00_1430;
BgL_lpairz00_1430 = 
MAKE_CELL(BgL_resultz00_856); 
{ /* Ieee/control.scm 202 */

{ /* Ieee/control.scm 203 */
 obj_t BgL_runner1204z00_866;
{ /* Ieee/control.scm 204 */
 obj_t BgL_zc3z04anonymousza31201ze3z87_1421;
BgL_zc3z04anonymousza31201ze3z87_1421 = 
MAKE_VA_PROCEDURE(BGl_z62zc3z04anonymousza31201ze3ze5zz__r4_control_features_6_9z00, 
(int)(-1L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31201ze3z87_1421, 
(int)(0L), BgL_fz00_21); 
PROCEDURE_SET(BgL_zc3z04anonymousza31201ze3z87_1421, 
(int)(1L), 
((obj_t)BgL_lpairz00_1430)); 
{ /* Ieee/control.scm 203 */
 obj_t BgL_list1200z00_859;
BgL_list1200z00_859 = 
MAKE_YOUNG_PAIR(BgL_lz00_22, BNIL); 
BgL_runner1204z00_866 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_zc3z04anonymousza31201ze3z87_1421, BgL_list1200z00_859); } } 
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1203z00_865;
{ /* Ieee/control.scm 203 */
 obj_t BgL_pairz00_1292;
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1703z00_1602;
BgL_aux1703z00_1602 = BgL_runner1204z00_866; 
if(
PAIRP(BgL_aux1703z00_1602))
{ /* Ieee/control.scm 203 */
BgL_pairz00_1292 = BgL_aux1703z00_1602; }  else 
{ 
 obj_t BgL_auxz00_2440;
BgL_auxz00_2440 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7008L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_aux1703z00_1602); 
FAILURE(BgL_auxz00_2440,BFALSE,BFALSE);} } 
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1705z00_1604;
BgL_aux1705z00_1604 = 
CAR(BgL_pairz00_1292); 
if(
PROCEDUREP(BgL_aux1705z00_1604))
{ /* Ieee/control.scm 203 */
BgL_aux1203z00_865 = BgL_aux1705z00_1604; }  else 
{ 
 obj_t BgL_auxz00_2447;
BgL_auxz00_2447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7008L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_aux1705z00_1604); 
FAILURE(BgL_auxz00_2447,BFALSE,BFALSE);} } } 
{ /* Ieee/control.scm 203 */
 obj_t BgL_pairz00_1293;
{ /* Ieee/control.scm 203 */
 obj_t BgL_aux1707z00_1606;
BgL_aux1707z00_1606 = BgL_runner1204z00_866; 
if(
PAIRP(BgL_aux1707z00_1606))
{ /* Ieee/control.scm 203 */
BgL_pairz00_1293 = BgL_aux1707z00_1606; }  else 
{ 
 obj_t BgL_auxz00_2453;
BgL_auxz00_2453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7008L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_aux1707z00_1606); 
FAILURE(BgL_auxz00_2453,BFALSE,BFALSE);} } 
BgL_runner1204z00_866 = 
CDR(BgL_pairz00_1293); } 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BgL_aux1203z00_865, BgL_runner1204z00_866); } } 
{ /* Ieee/control.scm 209 */
 obj_t BgL_pairz00_1294;
if(
NULLP(BgL_resultz00_856))
{ 
 obj_t BgL_auxz00_2461;
BgL_auxz00_2461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7208L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_resultz00_856); 
FAILURE(BgL_auxz00_2461,BFALSE,BFALSE);}  else 
{ /* Ieee/control.scm 209 */
BgL_pairz00_1294 = BgL_resultz00_856; } 
{ /* Ieee/control.scm 209 */
 obj_t BgL_aux1711z00_1610;
BgL_aux1711z00_1610 = 
CDR(BgL_pairz00_1294); 
{ /* Ieee/control.scm 209 */
 bool_t BgL_test2158z00_2466;
if(
PAIRP(BgL_aux1711z00_1610))
{ /* Ieee/control.scm 209 */
BgL_test2158z00_2466 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 209 */
BgL_test2158z00_2466 = 
NULLP(BgL_aux1711z00_1610)
; } 
if(BgL_test2158z00_2466)
{ /* Ieee/control.scm 209 */
return BgL_aux1711z00_1610;}  else 
{ 
 obj_t BgL_auxz00_2470;
BgL_auxz00_2470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7203L), BGl_string1886z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1711z00_1610); 
FAILURE(BgL_auxz00_2470,BFALSE,BFALSE);} } } } } } } } } } 

}



/* &append-map! */
obj_t BGl_z62appendzd2mapz12za2zz__r4_control_features_6_9z00(obj_t BgL_envz00_1422, obj_t BgL_fz00_1423, obj_t BgL_lz00_1424)
{
{ /* Ieee/control.scm 192 */
{ /* Ieee/control.scm 194 */
 obj_t BgL_auxz00_2474;
if(
PROCEDUREP(BgL_fz00_1423))
{ /* Ieee/control.scm 194 */
BgL_auxz00_2474 = BgL_fz00_1423
; }  else 
{ 
 obj_t BgL_auxz00_2477;
BgL_auxz00_2477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(6818L), BGl_string1887z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1423); 
FAILURE(BgL_auxz00_2477,BFALSE,BFALSE);} 
return 
BGl_appendzd2mapz12zc0zz__r4_control_features_6_9z00(BgL_auxz00_2474, BgL_lz00_1424);} } 

}



/* &<@anonymous:1201> */
obj_t BGl_z62zc3z04anonymousza31201ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1425, obj_t BgL_xsz00_1428)
{
{ /* Ieee/control.scm 203 */
{ /* Ieee/control.scm 204 */
 obj_t BgL_fz00_1426; obj_t BgL_lpairz00_1427;
BgL_fz00_1426 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1425, 
(int)(0L))); 
BgL_lpairz00_1427 = 
PROCEDURE_REF(BgL_envz00_1425, 
(int)(1L)); 
{ /* Ieee/control.scm 204 */
 obj_t BgL_result2z00_1763;
{ /* Ieee/control.scm 204 */
 int BgL_len1715z00_1764;
BgL_len1715z00_1764 = 
(int)(
bgl_list_length(
((obj_t)BgL_xsz00_1428))); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1426, BgL_len1715z00_1764))
{ /* Ieee/control.scm 204 */
BgL_result2z00_1763 = 
apply(BgL_fz00_1426, 
((obj_t)BgL_xsz00_1428)); }  else 
{ /* Ieee/control.scm 204 */
FAILURE(BGl_symbol1888z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1890z00zz__r4_control_features_6_9z00);} } 
if(
PAIRP(BgL_result2z00_1763))
{ /* Ieee/control.scm 205 */
{ /* Ieee/control.scm 206 */
 obj_t BgL_pairz00_1765;
{ /* Ieee/control.scm 206 */
 obj_t BgL_aux1716z00_1766;
BgL_aux1716z00_1766 = 
CELL_REF(BgL_lpairz00_1427); 
if(
PAIRP(BgL_aux1716z00_1766))
{ /* Ieee/control.scm 206 */
BgL_pairz00_1765 = BgL_aux1716z00_1766; }  else 
{ 
 obj_t BgL_auxz00_2500;
BgL_auxz00_2500 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7121L), BGl_string1889z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_aux1716z00_1766); 
FAILURE(BgL_auxz00_2500,BFALSE,BFALSE);} } 
SET_CDR(BgL_pairz00_1765, BgL_result2z00_1763); } 
{ /* Ieee/control.scm 207 */
 obj_t BgL_auxz00_1767;
BgL_auxz00_1767 = 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_result2z00_1763); 
return 
CELL_SET(BgL_lpairz00_1427, BgL_auxz00_1767);} }  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_872; obj_t BgL_resz00_873;
BgL_lz00_872 = BgL_lz00_24; 
BgL_resz00_873 = BNIL; 
BgL_zc3z04anonymousza31208ze3z87_874:
if(
NULLP(BgL_lz00_872))
{ /* Ieee/control.scm 217 */
return 
bgl_reverse_bang(BgL_resz00_873);}  else 
{ /* Ieee/control.scm 219 */
 obj_t BgL_hdz00_876;
{ /* Ieee/control.scm 219 */
 obj_t BgL_arg1217z00_880;
{ /* Ieee/control.scm 219 */
 obj_t BgL_pairz00_1295;
if(
PAIRP(BgL_lz00_872))
{ /* Ieee/control.scm 219 */
BgL_pairz00_1295 = BgL_lz00_872; }  else 
{ 
 obj_t BgL_auxz00_2511;
BgL_auxz00_2511 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7570L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_872); 
FAILURE(BgL_auxz00_2511,BFALSE,BFALSE);} 
BgL_arg1217z00_880 = 
CAR(BgL_pairz00_1295); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_23, 1L))
{ /* Ieee/control.scm 219 */
BgL_hdz00_876 = 
(VA_PROCEDUREP( BgL_fz00_23 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fz00_23))(BgL_fz00_23, BgL_arg1217z00_880, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fz00_23))(BgL_fz00_23, BgL_arg1217z00_880) ); }  else 
{ /* Ieee/control.scm 219 */
FAILURE(BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1893z00zz__r4_control_features_6_9z00,BgL_fz00_23);} } 
if(
CBOOL(BgL_hdz00_876))
{ /* Ieee/control.scm 221 */
 obj_t BgL_arg1211z00_877; obj_t BgL_arg1213z00_878;
{ /* Ieee/control.scm 221 */
 obj_t BgL_pairz00_1296;
if(
PAIRP(BgL_lz00_872))
{ /* Ieee/control.scm 221 */
BgL_pairz00_1296 = BgL_lz00_872; }  else 
{ 
 obj_t BgL_auxz00_2527;
BgL_auxz00_2527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7603L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_872); 
FAILURE(BgL_auxz00_2527,BFALSE,BFALSE);} 
BgL_arg1211z00_877 = 
CDR(BgL_pairz00_1296); } 
BgL_arg1213z00_878 = 
MAKE_YOUNG_PAIR(BgL_hdz00_876, BgL_resz00_873); 
{ 
 obj_t BgL_resz00_2534; obj_t BgL_lz00_2533;
BgL_lz00_2533 = BgL_arg1211z00_877; 
BgL_resz00_2534 = BgL_arg1213z00_878; 
BgL_resz00_873 = BgL_resz00_2534; 
BgL_lz00_872 = BgL_lz00_2533; 
goto BgL_zc3z04anonymousza31208ze3z87_874;} }  else 
{ /* Ieee/control.scm 222 */
 obj_t BgL_arg1214z00_879;
{ /* Ieee/control.scm 222 */
 obj_t BgL_pairz00_1297;
if(
PAIRP(BgL_lz00_872))
{ /* Ieee/control.scm 222 */
BgL_pairz00_1297 = BgL_lz00_872; }  else 
{ 
 obj_t BgL_auxz00_2537;
BgL_auxz00_2537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7635L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_872); 
FAILURE(BgL_auxz00_2537,BFALSE,BFALSE);} 
BgL_arg1214z00_879 = 
CDR(BgL_pairz00_1297); } 
{ 
 obj_t BgL_lz00_2542;
BgL_lz00_2542 = BgL_arg1214z00_879; 
BgL_lz00_872 = BgL_lz00_2542; 
goto BgL_zc3z04anonymousza31208ze3z87_874;} } } } } 

}



/* 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_test2171z00_2545;
{ /* Ieee/control.scm 231 */
 obj_t BgL_tmpz00_2546;
{ /* Ieee/control.scm 231 */
 obj_t BgL_pairz00_1298;
if(
PAIRP(BgL_lz00_26))
{ /* Ieee/control.scm 231 */
BgL_pairz00_1298 = BgL_lz00_26; }  else 
{ 
 obj_t BgL_auxz00_2549;
BgL_auxz00_2549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7955L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_26); 
FAILURE(BgL_auxz00_2549,BFALSE,BFALSE);} 
BgL_tmpz00_2546 = 
CDR(BgL_pairz00_1298); } 
BgL_test2171z00_2545 = 
NULLP(BgL_tmpz00_2546); } 
if(BgL_test2171z00_2545)
{ /* Ieee/control.scm 232 */
 obj_t BgL_arg1221z00_885;
{ /* Ieee/control.scm 232 */
 obj_t BgL_pairz00_1299;
if(
PAIRP(BgL_lz00_26))
{ /* Ieee/control.scm 232 */
BgL_pairz00_1299 = BgL_lz00_26; }  else 
{ 
 obj_t BgL_auxz00_2557;
BgL_auxz00_2557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7987L), BGl_string1896z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_26); 
FAILURE(BgL_auxz00_2557,BFALSE,BFALSE);} 
BgL_arg1221z00_885 = 
CAR(BgL_pairz00_1299); } 
BGL_TAIL return 
BGl_filterzd2mapzd22z00zz__r4_control_features_6_9z00(BgL_fz00_25, BgL_arg1221z00_885);}  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_1482, obj_t BgL_lz00_887)
{
{ /* Ieee/control.scm 234 */
BGl_loopze70ze7zz__r4_control_features_6_9z00:
{ /* Ieee/control.scm 235 */
 bool_t BgL_test2174z00_2564;
{ /* Ieee/control.scm 235 */
 obj_t BgL_tmpz00_2565;
{ /* Ieee/control.scm 235 */
 obj_t BgL_pairz00_1300;
if(
PAIRP(BgL_lz00_887))
{ /* Ieee/control.scm 235 */
BgL_pairz00_1300 = BgL_lz00_887; }  else 
{ 
 obj_t BgL_auxz00_2568;
BgL_auxz00_2568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8048L), BGl_string1897z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_887); 
FAILURE(BgL_auxz00_2568,BFALSE,BFALSE);} 
BgL_tmpz00_2565 = 
CAR(BgL_pairz00_1300); } 
BgL_test2174z00_2564 = 
NULLP(BgL_tmpz00_2565); } 
if(BgL_test2174z00_2564)
{ /* Ieee/control.scm 235 */
return BNIL;}  else 
{ /* Ieee/control.scm 237 */
 obj_t BgL_hdz00_891;
{ /* Ieee/control.scm 237 */
 obj_t BgL_valz00_1636;
{ /* Ieee/control.scm 237 */
 obj_t BgL_auxz00_2574;
{ /* Ieee/control.scm 237 */
 bool_t BgL_test2176z00_2575;
if(
PAIRP(BgL_lz00_887))
{ /* Ieee/control.scm 237 */
BgL_test2176z00_2575 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 237 */
BgL_test2176z00_2575 = 
NULLP(BgL_lz00_887)
; } 
if(BgL_test2176z00_2575)
{ /* Ieee/control.scm 237 */
BgL_auxz00_2574 = BgL_lz00_887
; }  else 
{ 
 obj_t BgL_auxz00_2579;
BgL_auxz00_2579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8100L), BGl_string1897z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_887); 
FAILURE(BgL_auxz00_2579,BFALSE,BFALSE);} } 
BgL_valz00_1636 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2574); } 
{ /* Ieee/control.scm 237 */
 int BgL_len1733z00_1637;
BgL_len1733z00_1637 = 
(int)(
bgl_list_length(BgL_valz00_1636)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_1482, BgL_len1733z00_1637))
{ /* Ieee/control.scm 237 */
BgL_hdz00_891 = 
apply(BgL_fz00_1482, BgL_valz00_1636); }  else 
{ /* Ieee/control.scm 237 */
FAILURE(BGl_symbol1898z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1854z00zz__r4_control_features_6_9z00);} } } 
if(
CBOOL(BgL_hdz00_891))
{ /* Ieee/control.scm 239 */
 obj_t BgL_arg1225z00_892;
{ /* Ieee/control.scm 239 */
 obj_t BgL_arg1226z00_893;
{ /* Ieee/control.scm 239 */
 obj_t BgL_auxz00_2593;
{ /* Ieee/control.scm 239 */
 bool_t BgL_test2180z00_2594;
if(
PAIRP(BgL_lz00_887))
{ /* Ieee/control.scm 239 */
BgL_test2180z00_2594 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 239 */
BgL_test2180z00_2594 = 
NULLP(BgL_lz00_887)
; } 
if(BgL_test2180z00_2594)
{ /* Ieee/control.scm 239 */
BgL_auxz00_2593 = BgL_lz00_887
; }  else 
{ 
 obj_t BgL_auxz00_2598;
BgL_auxz00_2598 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8149L), BGl_string1897z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_887); 
FAILURE(BgL_auxz00_2598,BFALSE,BFALSE);} } 
BgL_arg1226z00_893 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2593); } 
BgL_arg1225z00_892 = 
BGl_loopze70ze7zz__r4_control_features_6_9z00(BgL_fz00_1482, BgL_arg1226z00_893); } 
return 
MAKE_YOUNG_PAIR(BgL_hdz00_891, BgL_arg1225z00_892);}  else 
{ /* Ieee/control.scm 240 */
 obj_t BgL_arg1228z00_894;
{ /* Ieee/control.scm 240 */
 obj_t BgL_auxz00_2605;
{ /* Ieee/control.scm 240 */
 bool_t BgL_test2182z00_2606;
if(
PAIRP(BgL_lz00_887))
{ /* Ieee/control.scm 240 */
BgL_test2182z00_2606 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 240 */
BgL_test2182z00_2606 = 
NULLP(BgL_lz00_887)
; } 
if(BgL_test2182z00_2606)
{ /* Ieee/control.scm 240 */
BgL_auxz00_2605 = BgL_lz00_887
; }  else 
{ 
 obj_t BgL_auxz00_2610;
BgL_auxz00_2610 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8178L), BGl_string1897z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_887); 
FAILURE(BgL_auxz00_2610,BFALSE,BFALSE);} } 
BgL_arg1228z00_894 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2605); } 
{ 
 obj_t BgL_lz00_2615;
BgL_lz00_2615 = BgL_arg1228z00_894; 
BgL_lz00_887 = BgL_lz00_2615; 
goto BGl_loopze70ze7zz__r4_control_features_6_9z00;} } } } } 

}



/* &filter-map */
obj_t BGl_z62filterzd2mapzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1432, obj_t BgL_fz00_1433, obj_t BgL_lz00_1434)
{
{ /* Ieee/control.scm 227 */
{ /* Ieee/control.scm 229 */
 obj_t BgL_auxz00_2616;
if(
PROCEDUREP(BgL_fz00_1433))
{ /* Ieee/control.scm 229 */
BgL_auxz00_2616 = BgL_fz00_1433
; }  else 
{ 
 obj_t BgL_auxz00_2619;
BgL_auxz00_2619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(7913L), BGl_string1899z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1433); 
FAILURE(BgL_auxz00_2619,BFALSE,BFALSE);} 
return 
BGl_filterzd2mapzd2zz__r4_control_features_6_9z00(BgL_auxz00_2616, BgL_lz00_1434);} } 

}



/* 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_899;
BgL_lz00_899 = BgL_lz00_28; 
BgL_zc3z04anonymousza31234ze3z87_900:
if(
NULLP(BgL_lz00_899))
{ /* Ieee/control.scm 247 */
return BUNSPEC;}  else 
{ /* Ieee/control.scm 247 */
{ /* Ieee/control.scm 250 */
 obj_t BgL_arg1237z00_902;
{ /* Ieee/control.scm 250 */
 obj_t BgL_pairz00_1301;
if(
PAIRP(BgL_lz00_899))
{ /* Ieee/control.scm 250 */
BgL_pairz00_1301 = BgL_lz00_899; }  else 
{ 
 obj_t BgL_auxz00_2628;
BgL_auxz00_2628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8518L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_899); 
FAILURE(BgL_auxz00_2628,BFALSE,BFALSE);} 
BgL_arg1237z00_902 = 
CAR(BgL_pairz00_1301); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_27, 1L))
{ /* Ieee/control.scm 250 */
(VA_PROCEDUREP( BgL_fz00_27 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_fz00_27))(BgL_fz00_27, BgL_arg1237z00_902, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_fz00_27))(BgL_fz00_27, BgL_arg1237z00_902) ); }  else 
{ /* Ieee/control.scm 250 */
FAILURE(BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1900z00zz__r4_control_features_6_9z00,BgL_fz00_27);} } 
{ /* Ieee/control.scm 251 */
 obj_t BgL_arg1240z00_903;
{ /* Ieee/control.scm 251 */
 obj_t BgL_pairz00_1302;
if(
PAIRP(BgL_lz00_899))
{ /* Ieee/control.scm 251 */
BgL_pairz00_1302 = BgL_lz00_899; }  else 
{ 
 obj_t BgL_auxz00_2642;
BgL_auxz00_2642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8539L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_899); 
FAILURE(BgL_auxz00_2642,BFALSE,BFALSE);} 
BgL_arg1240z00_903 = 
CDR(BgL_pairz00_1302); } 
{ 
 obj_t BgL_lz00_2647;
BgL_lz00_2647 = BgL_arg1240z00_903; 
BgL_lz00_899 = BgL_lz00_2647; 
goto BgL_zc3z04anonymousza31234ze3z87_900;} } } } } 

}



/* &for-each-2 */
obj_t BGl_z62forzd2eachzd22z62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1435, obj_t BgL_fz00_1436, obj_t BgL_lz00_1437)
{
{ /* Ieee/control.scm 245 */
{ /* Ieee/control.scm 247 */
 obj_t BgL_auxz00_2655; obj_t BgL_auxz00_2648;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1437))
{ /* Ieee/control.scm 247 */
BgL_auxz00_2655 = BgL_lz00_1437
; }  else 
{ 
 obj_t BgL_auxz00_2658;
BgL_auxz00_2658 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8464L), BGl_string1903z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_1437); 
FAILURE(BgL_auxz00_2658,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_fz00_1436))
{ /* Ieee/control.scm 247 */
BgL_auxz00_2648 = BgL_fz00_1436
; }  else 
{ 
 obj_t BgL_auxz00_2651;
BgL_auxz00_2651 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8464L), BGl_string1903z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1436); 
FAILURE(BgL_auxz00_2651,BFALSE,BFALSE);} 
return 
BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(BgL_auxz00_2648, BgL_auxz00_2655);} } 

}



/* 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_test2192z00_2665;
{ /* Ieee/control.scm 260 */
 obj_t BgL_tmpz00_2666;
{ /* Ieee/control.scm 260 */
 obj_t BgL_pairz00_1303;
if(
PAIRP(BgL_lz00_30))
{ /* Ieee/control.scm 260 */
BgL_pairz00_1303 = BgL_lz00_30; }  else 
{ 
 obj_t BgL_auxz00_2669;
BgL_auxz00_2669 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8861L), BGl_string1883z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_30); 
FAILURE(BgL_auxz00_2669,BFALSE,BFALSE);} 
BgL_tmpz00_2666 = 
CDR(BgL_pairz00_1303); } 
BgL_test2192z00_2665 = 
NULLP(BgL_tmpz00_2666); } 
if(BgL_test2192z00_2665)
{ /* Ieee/control.scm 261 */
 obj_t BgL_arg1244z00_908;
{ /* Ieee/control.scm 261 */
 obj_t BgL_pairz00_1304;
if(
PAIRP(BgL_lz00_30))
{ /* Ieee/control.scm 261 */
BgL_pairz00_1304 = BgL_lz00_30; }  else 
{ 
 obj_t BgL_auxz00_2677;
BgL_auxz00_2677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8891L), BGl_string1883z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_30); 
FAILURE(BgL_auxz00_2677,BFALSE,BFALSE);} 
BgL_arg1244z00_908 = 
CAR(BgL_pairz00_1304); } 
{ /* Ieee/control.scm 261 */
 obj_t BgL_auxz00_2682;
{ /* Ieee/control.scm 261 */
 bool_t BgL_test2195z00_2683;
if(
PAIRP(BgL_arg1244z00_908))
{ /* Ieee/control.scm 261 */
BgL_test2195z00_2683 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 261 */
BgL_test2195z00_2683 = 
NULLP(BgL_arg1244z00_908)
; } 
if(BgL_test2195z00_2683)
{ /* Ieee/control.scm 261 */
BgL_auxz00_2682 = BgL_arg1244z00_908
; }  else 
{ 
 obj_t BgL_auxz00_2687;
BgL_auxz00_2687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8892L), BGl_string1883z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_arg1244z00_908); 
FAILURE(BgL_auxz00_2687,BFALSE,BFALSE);} } 
return 
BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(BgL_fz00_29, BgL_auxz00_2682);} }  else 
{ 
 obj_t BgL_lz00_910;
BgL_lz00_910 = BgL_lz00_30; 
BgL_zc3z04anonymousza31245ze3z87_911:
{ /* Ieee/control.scm 264 */
 bool_t BgL_test2197z00_2692;
{ /* Ieee/control.scm 264 */
 obj_t BgL_tmpz00_2693;
{ /* Ieee/control.scm 264 */
 obj_t BgL_pairz00_1305;
if(
PAIRP(BgL_lz00_910))
{ /* Ieee/control.scm 264 */
BgL_pairz00_1305 = BgL_lz00_910; }  else 
{ 
 obj_t BgL_auxz00_2696;
BgL_auxz00_2696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8952L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_910); 
FAILURE(BgL_auxz00_2696,BFALSE,BFALSE);} 
BgL_tmpz00_2693 = 
CAR(BgL_pairz00_1305); } 
BgL_test2197z00_2692 = 
NULLP(BgL_tmpz00_2693); } 
if(BgL_test2197z00_2692)
{ /* Ieee/control.scm 264 */
return BUNSPEC;}  else 
{ /* Ieee/control.scm 264 */
{ /* Ieee/control.scm 267 */
 obj_t BgL_valz00_1665;
{ /* Ieee/control.scm 267 */
 obj_t BgL_auxz00_2702;
{ /* Ieee/control.scm 267 */
 bool_t BgL_test2199z00_2703;
if(
PAIRP(BgL_lz00_910))
{ /* Ieee/control.scm 267 */
BgL_test2199z00_2703 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 267 */
BgL_test2199z00_2703 = 
NULLP(BgL_lz00_910)
; } 
if(BgL_test2199z00_2703)
{ /* Ieee/control.scm 267 */
BgL_auxz00_2702 = BgL_lz00_910
; }  else 
{ 
 obj_t BgL_auxz00_2707;
BgL_auxz00_2707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9013L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_910); 
FAILURE(BgL_auxz00_2707,BFALSE,BFALSE);} } 
BgL_valz00_1665 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2702); } 
{ /* Ieee/control.scm 267 */
 int BgL_len1759z00_1666;
BgL_len1759z00_1666 = 
(int)(
bgl_list_length(BgL_valz00_1665)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_29, BgL_len1759z00_1666))
{ /* Ieee/control.scm 267 */
apply(BgL_fz00_29, BgL_valz00_1665); }  else 
{ /* Ieee/control.scm 267 */
FAILURE(BGl_symbol1867z00zz__r4_control_features_6_9z00,BGl_string1829z00zz__r4_control_features_6_9z00,BGl_list1854z00zz__r4_control_features_6_9z00);} } } 
{ /* Ieee/control.scm 268 */
 obj_t BgL_arg1248z00_914;
{ /* Ieee/control.scm 268 */
 obj_t BgL_auxz00_2719;
{ /* Ieee/control.scm 268 */
 bool_t BgL_test2202z00_2720;
if(
PAIRP(BgL_lz00_910))
{ /* Ieee/control.scm 268 */
BgL_test2202z00_2720 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 268 */
BgL_test2202z00_2720 = 
NULLP(BgL_lz00_910)
; } 
if(BgL_test2202z00_2720)
{ /* Ieee/control.scm 268 */
BgL_auxz00_2719 = BgL_lz00_910
; }  else 
{ 
 obj_t BgL_auxz00_2724;
BgL_auxz00_2724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9037L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_910); 
FAILURE(BgL_auxz00_2724,BFALSE,BFALSE);} } 
BgL_arg1248z00_914 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_2719); } 
{ 
 obj_t BgL_lz00_2729;
BgL_lz00_2729 = BgL_arg1248z00_914; 
BgL_lz00_910 = BgL_lz00_2729; 
goto BgL_zc3z04anonymousza31245ze3z87_911;} } } } } } } 

}



/* &for-each */
obj_t BGl_z62forzd2eachzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1438, obj_t BgL_fz00_1439, obj_t BgL_lz00_1440)
{
{ /* Ieee/control.scm 256 */
{ /* Ieee/control.scm 258 */
 obj_t BgL_auxz00_2730;
if(
PROCEDUREP(BgL_fz00_1439))
{ /* Ieee/control.scm 258 */
BgL_auxz00_2730 = BgL_fz00_1439
; }  else 
{ 
 obj_t BgL_auxz00_2733;
BgL_auxz00_2733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(8810L), BGl_string1904z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_fz00_1439); 
FAILURE(BgL_auxz00_2733,BFALSE,BFALSE);} 
return 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BgL_auxz00_2730, BgL_lz00_1440);} } 

}



/* 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_918;
BgL_hookz00_918 = 
MAKE_YOUNG_PAIR(BFALSE, BNIL); 
{ 
 obj_t BgL_lz00_920; obj_t BgL_hz00_921;
{ /* Ieee/control.scm 275 */
 obj_t BgL_aux1773z00_1681;
BgL_lz00_920 = BgL_lz00_32; 
BgL_hz00_921 = BgL_hookz00_918; 
BgL_zc3z04anonymousza31251ze3z87_922:
if(
NULLP(BgL_lz00_920))
{ /* Ieee/control.scm 278 */
BgL_aux1773z00_1681 = 
CDR(BgL_hookz00_918); }  else 
{ /* Ieee/control.scm 280 */
 bool_t BgL_test2206z00_2742;
{ /* Ieee/control.scm 280 */
 obj_t BgL_arg1260z00_930;
{ /* Ieee/control.scm 280 */
 obj_t BgL_pairz00_1307;
if(
PAIRP(BgL_lz00_920))
{ /* Ieee/control.scm 280 */
BgL_pairz00_1307 = BgL_lz00_920; }  else 
{ 
 obj_t BgL_auxz00_2745;
BgL_auxz00_2745 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9420L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_920); 
FAILURE(BgL_auxz00_2745,BFALSE,BFALSE);} 
BgL_arg1260z00_930 = 
CAR(BgL_pairz00_1307); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_31, 1L))
{ /* Ieee/control.scm 280 */
BgL_test2206z00_2742 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_31 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_31))(BgL_predz00_31, BgL_arg1260z00_930, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_31))(BgL_predz00_31, BgL_arg1260z00_930) ))
; }  else 
{ /* Ieee/control.scm 280 */
FAILURE(BGl_string1841z00zz__r4_control_features_6_9z00,BGl_list1905z00zz__r4_control_features_6_9z00,BgL_predz00_31);} } 
if(BgL_test2206z00_2742)
{ /* Ieee/control.scm 281 */
 obj_t BgL_nhz00_926;
{ /* Ieee/control.scm 281 */
 obj_t BgL_arg1257z00_928;
{ /* Ieee/control.scm 281 */
 obj_t BgL_pairz00_1308;
if(
PAIRP(BgL_lz00_920))
{ /* Ieee/control.scm 281 */
BgL_pairz00_1308 = BgL_lz00_920; }  else 
{ 
 obj_t BgL_auxz00_2760;
BgL_auxz00_2760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9451L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_920); 
FAILURE(BgL_auxz00_2760,BFALSE,BFALSE);} 
BgL_arg1257z00_928 = 
CAR(BgL_pairz00_1308); } 
BgL_nhz00_926 = 
MAKE_YOUNG_PAIR(BgL_arg1257z00_928, BNIL); } 
SET_CDR(BgL_hz00_921, BgL_nhz00_926); 
{ /* Ieee/control.scm 283 */
 obj_t BgL_arg1256z00_927;
{ /* Ieee/control.scm 283 */
 obj_t BgL_pairz00_1310;
if(
PAIRP(BgL_lz00_920))
{ /* Ieee/control.scm 283 */
BgL_pairz00_1310 = BgL_lz00_920; }  else 
{ 
 obj_t BgL_auxz00_2769;
BgL_auxz00_2769 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9492L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_920); 
FAILURE(BgL_auxz00_2769,BFALSE,BFALSE);} 
BgL_arg1256z00_927 = 
CDR(BgL_pairz00_1310); } 
{ 
 obj_t BgL_hz00_2775; obj_t BgL_lz00_2774;
BgL_lz00_2774 = BgL_arg1256z00_927; 
BgL_hz00_2775 = BgL_nhz00_926; 
BgL_hz00_921 = BgL_hz00_2775; 
BgL_lz00_920 = BgL_lz00_2774; 
goto BgL_zc3z04anonymousza31251ze3z87_922;} } }  else 
{ /* Ieee/control.scm 285 */
 obj_t BgL_arg1259z00_929;
{ /* Ieee/control.scm 285 */
 obj_t BgL_pairz00_1311;
if(
PAIRP(BgL_lz00_920))
{ /* Ieee/control.scm 285 */
BgL_pairz00_1311 = BgL_lz00_920; }  else 
{ 
 obj_t BgL_auxz00_2778;
BgL_auxz00_2778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9529L), BGl_string1840z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_lz00_920); 
FAILURE(BgL_auxz00_2778,BFALSE,BFALSE);} 
BgL_arg1259z00_929 = 
CDR(BgL_pairz00_1311); } 
{ 
 obj_t BgL_lz00_2783;
BgL_lz00_2783 = BgL_arg1259z00_929; 
BgL_lz00_920 = BgL_lz00_2783; 
goto BgL_zc3z04anonymousza31251ze3z87_922;} } } 
{ /* Ieee/control.scm 275 */
 bool_t BgL_test2212z00_2784;
if(
PAIRP(BgL_aux1773z00_1681))
{ /* Ieee/control.scm 275 */
BgL_test2212z00_2784 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 275 */
BgL_test2212z00_2784 = 
NULLP(BgL_aux1773z00_1681)
; } 
if(BgL_test2212z00_2784)
{ /* Ieee/control.scm 275 */
return BgL_aux1773z00_1681;}  else 
{ 
 obj_t BgL_auxz00_2788;
BgL_auxz00_2788 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9331L), BGl_string1910z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1773z00_1681); 
FAILURE(BgL_auxz00_2788,BFALSE,BFALSE);} } } } } } 

}



/* &filter */
obj_t BGl_z62filterz62zz__r4_control_features_6_9z00(obj_t BgL_envz00_1441, obj_t BgL_predz00_1442, obj_t BgL_lz00_1443)
{
{ /* Ieee/control.scm 273 */
{ /* Ieee/control.scm 274 */
 obj_t BgL_auxz00_2799; obj_t BgL_auxz00_2792;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1443))
{ /* Ieee/control.scm 274 */
BgL_auxz00_2799 = BgL_lz00_1443
; }  else 
{ 
 obj_t BgL_auxz00_2802;
BgL_auxz00_2802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9297L), BGl_string1911z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lz00_1443); 
FAILURE(BgL_auxz00_2802,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_predz00_1442))
{ /* Ieee/control.scm 274 */
BgL_auxz00_2792 = BgL_predz00_1442
; }  else 
{ 
 obj_t BgL_auxz00_2795;
BgL_auxz00_2795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9297L), BGl_string1911z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_predz00_1442); 
FAILURE(BgL_auxz00_2795,BFALSE,BFALSE);} 
return 
BGl_filterz00zz__r4_control_features_6_9z00(BgL_auxz00_2792, BgL_auxz00_2799);} } 

}



/* 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_933;
{ /* Ieee/control.scm 291 */
 obj_t BgL_aux1792z00_1703;
BgL_ansz00_933 = BgL_lisz00_34; 
BgL_zc3z04anonymousza31261ze3z87_934:
if(
NULLP(BgL_ansz00_933))
{ /* Ieee/control.scm 293 */
BgL_aux1792z00_1703 = BgL_ansz00_933; }  else 
{ /* Ieee/control.scm 295 */
 bool_t BgL_test2217z00_2809;
{ /* Ieee/control.scm 295 */
 obj_t BgL_arg1322z00_966;
{ /* Ieee/control.scm 295 */
 obj_t BgL_pairz00_1312;
if(
PAIRP(BgL_ansz00_933))
{ /* Ieee/control.scm 295 */
BgL_pairz00_1312 = BgL_ansz00_933; }  else 
{ 
 obj_t BgL_auxz00_2812;
BgL_auxz00_2812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9867L), BGl_string1912z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_ansz00_933); 
FAILURE(BgL_auxz00_2812,BFALSE,BFALSE);} 
BgL_arg1322z00_966 = 
CAR(BgL_pairz00_1312); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_33, 1L))
{ /* Ieee/control.scm 295 */
BgL_test2217z00_2809 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_33 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_33))(BgL_predz00_33, BgL_arg1322z00_966, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_33))(BgL_predz00_33, BgL_arg1322z00_966) ))
; }  else 
{ /* Ieee/control.scm 295 */
FAILURE(BGl_string1913z00zz__r4_control_features_6_9z00,BGl_list1914z00zz__r4_control_features_6_9z00,BgL_predz00_33);} } 
if(BgL_test2217z00_2809)
{ 
 obj_t BgL_prevz00_950; obj_t BgL_lisz00_951; obj_t BgL_prevz00_941; obj_t BgL_lisz00_942;
{ /* Ieee/control.scm 312 */
 obj_t BgL_arg1275z00_940;
{ /* Ieee/control.scm 312 */
 obj_t BgL_pairz00_1321;
if(
PAIRP(BgL_ansz00_933))
{ /* Ieee/control.scm 312 */
BgL_pairz00_1321 = BgL_ansz00_933; }  else 
{ 
 obj_t BgL_auxz00_2827;
BgL_auxz00_2827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(10350L), BGl_string1912z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_ansz00_933); 
FAILURE(BgL_auxz00_2827,BFALSE,BFALSE);} 
BgL_arg1275z00_940 = 
CDR(BgL_pairz00_1321); } 
BgL_prevz00_941 = BgL_ansz00_933; 
BgL_lisz00_942 = BgL_arg1275z00_940; 
BgL_zc3z04anonymousza31276ze3z87_943:
if(
PAIRP(BgL_lisz00_942))
{ /* Ieee/control.scm 300 */
 bool_t BgL_test2222z00_2834;
{ /* Ieee/control.scm 300 */
 obj_t BgL_arg1283z00_949;
BgL_arg1283z00_949 = 
CAR(BgL_lisz00_942); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_33, 1L))
{ /* Ieee/control.scm 300 */
BgL_test2222z00_2834 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_33 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_33))(BgL_predz00_33, BgL_arg1283z00_949, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_33))(BgL_predz00_33, BgL_arg1283z00_949) ))
; }  else 
{ /* Ieee/control.scm 300 */
FAILURE(BGl_string1917z00zz__r4_control_features_6_9z00,BGl_list1918z00zz__r4_control_features_6_9z00,BgL_predz00_33);} } 
if(BgL_test2222z00_2834)
{ 
 obj_t BgL_lisz00_2845; obj_t BgL_prevz00_2844;
BgL_prevz00_2844 = BgL_lisz00_942; 
BgL_lisz00_2845 = 
CDR(BgL_lisz00_942); 
BgL_lisz00_942 = BgL_lisz00_2845; 
BgL_prevz00_941 = BgL_prevz00_2844; 
goto BgL_zc3z04anonymousza31276ze3z87_943;}  else 
{ /* Ieee/control.scm 300 */
BgL_prevz00_950 = BgL_prevz00_941; 
BgL_lisz00_951 = 
CDR(BgL_lisz00_942); 
{ 
 obj_t BgL_lisz00_954;
BgL_lisz00_954 = BgL_lisz00_951; 
BgL_zc3z04anonymousza31285ze3z87_955:
if(
PAIRP(BgL_lisz00_954))
{ /* Ieee/control.scm 306 */
 bool_t BgL_test2225z00_2849;
{ /* Ieee/control.scm 306 */
 obj_t BgL_arg1292z00_961;
BgL_arg1292z00_961 = 
CAR(BgL_lisz00_954); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_33, 1L))
{ /* Ieee/control.scm 306 */
BgL_test2225z00_2849 = 
CBOOL(
(VA_PROCEDUREP( BgL_predz00_33 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_predz00_33))(BgL_predz00_33, BgL_arg1292z00_961, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_predz00_33))(BgL_predz00_33, BgL_arg1292z00_961) ))
; }  else 
{ /* Ieee/control.scm 306 */
FAILURE(BGl_string1913z00zz__r4_control_features_6_9z00,BGl_list1921z00zz__r4_control_features_6_9z00,BgL_predz00_33);} } 
if(BgL_test2225z00_2849)
{ /* Ieee/control.scm 306 */
{ /* Ieee/control.scm 308 */
 obj_t BgL_pairz00_1317;
if(
PAIRP(BgL_prevz00_950))
{ /* Ieee/control.scm 308 */
BgL_pairz00_1317 = BgL_prevz00_950; }  else 
{ 
 obj_t BgL_auxz00_2861;
BgL_auxz00_2861 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(10220L), BGl_string1912z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_prevz00_950); 
FAILURE(BgL_auxz00_2861,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_1317, BgL_lisz00_954); } 
{ 
 obj_t BgL_lisz00_2867; obj_t BgL_prevz00_2866;
BgL_prevz00_2866 = BgL_lisz00_954; 
BgL_lisz00_2867 = 
CDR(BgL_lisz00_954); 
BgL_lisz00_942 = BgL_lisz00_2867; 
BgL_prevz00_941 = BgL_prevz00_2866; 
goto BgL_zc3z04anonymousza31276ze3z87_943;} }  else 
{ 
 obj_t BgL_lisz00_2869;
BgL_lisz00_2869 = 
CDR(BgL_lisz00_954); 
BgL_lisz00_954 = BgL_lisz00_2869; 
goto BgL_zc3z04anonymousza31285ze3z87_955;} }  else 
{ /* Ieee/control.scm 311 */
 obj_t BgL_pairz00_1320;
if(
PAIRP(BgL_prevz00_950))
{ /* Ieee/control.scm 311 */
BgL_pairz00_1320 = BgL_prevz00_950; }  else 
{ 
 obj_t BgL_auxz00_2873;
BgL_auxz00_2873 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(10311L), BGl_string1912z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_prevz00_950); 
FAILURE(BgL_auxz00_2873,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_1320, BgL_lisz00_954); } } } }  else 
{ /* Ieee/control.scm 299 */BFALSE; } } 
BgL_aux1792z00_1703 = BgL_ansz00_933; }  else 
{ /* Ieee/control.scm 296 */
 obj_t BgL_arg1294z00_965;
{ /* Ieee/control.scm 296 */
 obj_t BgL_pairz00_1322;
if(
PAIRP(BgL_ansz00_933))
{ /* Ieee/control.scm 296 */
BgL_pairz00_1322 = BgL_ansz00_933; }  else 
{ 
 obj_t BgL_auxz00_2881;
BgL_auxz00_2881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9886L), BGl_string1912z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_ansz00_933); 
FAILURE(BgL_auxz00_2881,BFALSE,BFALSE);} 
BgL_arg1294z00_965 = 
CDR(BgL_pairz00_1322); } 
{ 
 obj_t BgL_ansz00_2886;
BgL_ansz00_2886 = BgL_arg1294z00_965; 
BgL_ansz00_933 = BgL_ansz00_2886; 
goto BgL_zc3z04anonymousza31261ze3z87_934;} } } 
{ /* Ieee/control.scm 291 */
 bool_t BgL_test2230z00_2887;
if(
PAIRP(BgL_aux1792z00_1703))
{ /* Ieee/control.scm 291 */
BgL_test2230z00_2887 = ((bool_t)1)
; }  else 
{ /* Ieee/control.scm 291 */
BgL_test2230z00_2887 = 
NULLP(BgL_aux1792z00_1703)
; } 
if(BgL_test2230z00_2887)
{ /* Ieee/control.scm 291 */
return BgL_aux1792z00_1703;}  else 
{ 
 obj_t BgL_auxz00_2891;
BgL_auxz00_2891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9793L), BGl_string1924z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_aux1792z00_1703); 
FAILURE(BgL_auxz00_2891,BFALSE,BFALSE);} } } } } 

}



/* &filter! */
obj_t BGl_z62filterz12z70zz__r4_control_features_6_9z00(obj_t BgL_envz00_1444, obj_t BgL_predz00_1445, obj_t BgL_lisz00_1446)
{
{ /* Ieee/control.scm 290 */
{ /* Ieee/control.scm 293 */
 obj_t BgL_auxz00_2902; obj_t BgL_auxz00_2895;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lisz00_1446))
{ /* Ieee/control.scm 293 */
BgL_auxz00_2902 = BgL_lisz00_1446
; }  else 
{ 
 obj_t BgL_auxz00_2905;
BgL_auxz00_2905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9827L), BGl_string1925z00zz__r4_control_features_6_9z00, BGl_string1850z00zz__r4_control_features_6_9z00, BgL_lisz00_1446); 
FAILURE(BgL_auxz00_2905,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_predz00_1445))
{ /* Ieee/control.scm 293 */
BgL_auxz00_2895 = BgL_predz00_1445
; }  else 
{ 
 obj_t BgL_auxz00_2898;
BgL_auxz00_2898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(9827L), BGl_string1925z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_predz00_1445); 
FAILURE(BgL_auxz00_2898,BFALSE,BFALSE);} 
return 
BGl_filterz12z12zz__r4_control_features_6_9z00(BgL_auxz00_2895, BgL_auxz00_2902);} } 

}



/* 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_1776;
if(
PROCEDUREP(BgL_promisez00_35))
{ /* Ieee/control.scm 319 */
BgL_funz00_1776 = BgL_promisez00_35; }  else 
{ 
 obj_t BgL_auxz00_2912;
BgL_auxz00_2912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(10628L), BGl_string1926z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_promisez00_35); 
FAILURE(BgL_auxz00_2912,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1776, 0L))
{ /* Ieee/control.scm 319 */
return 
(VA_PROCEDUREP( BgL_funz00_1776 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_1776))(BgL_promisez00_35, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_funz00_1776))(BgL_promisez00_35) );}  else 
{ /* Ieee/control.scm 319 */
FAILURE(BGl_string1927z00zz__r4_control_features_6_9z00,BGl_list1928z00zz__r4_control_features_6_9z00,BgL_funz00_1776);} } } 

}



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

}



/* 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_1458; obj_t BgL_resultz00_1459;
BgL_resultzd2readyzf3z21_1458 = 
MAKE_CELL(BFALSE); 
BgL_resultz00_1459 = 
MAKE_CELL(BFALSE); 
{ /* Ieee/control.scm 327 */
 obj_t BgL_zc3z04anonymousza31323ze3z87_1449;
BgL_zc3z04anonymousza31323ze3z87_1449 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31323ze3ze5zz__r4_control_features_6_9z00, 
(int)(0L), 
(int)(3L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31323ze3z87_1449, 
(int)(0L), BgL_procz00_36); 
PROCEDURE_SET(BgL_zc3z04anonymousza31323ze3z87_1449, 
(int)(1L), 
((obj_t)BgL_resultzd2readyzf3z21_1458)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31323ze3z87_1449, 
(int)(2L), 
((obj_t)BgL_resultz00_1459)); 
return BgL_zc3z04anonymousza31323ze3z87_1449;} } } 

}



/* &make-promise */
obj_t BGl_z62makezd2promisezb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1450, obj_t BgL_procz00_1451)
{
{ /* Ieee/control.scm 324 */
{ /* Ieee/control.scm 325 */
 obj_t BgL_auxz00_2934;
if(
PROCEDUREP(BgL_procz00_1451))
{ /* Ieee/control.scm 325 */
BgL_auxz00_2934 = BgL_procz00_1451
; }  else 
{ 
 obj_t BgL_auxz00_2937;
BgL_auxz00_2937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(10893L), BGl_string1931z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_procz00_1451); 
FAILURE(BgL_auxz00_2937,BFALSE,BFALSE);} 
return 
BGl_makezd2promisezd2zz__r4_control_features_6_9z00(BgL_auxz00_2934);} } 

}



/* &<@anonymous:1323> */
obj_t BGl_z62zc3z04anonymousza31323ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1452)
{
{ /* Ieee/control.scm 327 */
{ /* Ieee/control.scm 328 */
 obj_t BgL_procz00_1453; obj_t BgL_resultzd2readyzf3z21_1454; obj_t BgL_resultz00_1455;
BgL_procz00_1453 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1452, 
(int)(0L))); 
BgL_resultzd2readyzf3z21_1454 = 
PROCEDURE_REF(BgL_envz00_1452, 
(int)(1L)); 
BgL_resultz00_1455 = 
PROCEDURE_REF(BgL_envz00_1452, 
(int)(2L)); 
if(
CBOOL(
CELL_REF(BgL_resultzd2readyzf3z21_1454)))
{ /* Ieee/control.scm 328 */
return 
CELL_REF(BgL_resultz00_1455);}  else 
{ /* Ieee/control.scm 330 */
 obj_t BgL_xz00_1777;
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_1453, 0L))
{ /* Ieee/control.scm 330 */
BgL_xz00_1777 = 
(VA_PROCEDUREP( BgL_procz00_1453 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_procz00_1453))(BgL_procz00_1453, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_procz00_1453))(BgL_procz00_1453) ); }  else 
{ /* Ieee/control.scm 330 */
FAILURE(BGl_string1932z00zz__r4_control_features_6_9z00,BGl_list1933z00zz__r4_control_features_6_9z00,BgL_procz00_1453);} 
if(
CBOOL(
CELL_REF(BgL_resultzd2readyzf3z21_1454)))
{ /* Ieee/control.scm 331 */
return 
CELL_REF(BgL_resultz00_1455);}  else 
{ /* Ieee/control.scm 331 */
{ /* Ieee/control.scm 334 */
 obj_t BgL_auxz00_1778;
BgL_auxz00_1778 = BTRUE; 
CELL_SET(BgL_resultzd2readyzf3z21_1454, BgL_auxz00_1778); } 
CELL_SET(BgL_resultz00_1455, BgL_xz00_1777); 
return 
CELL_REF(BgL_resultz00_1455);} } } } 

}



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

}



/* &call/cc */
obj_t BGl_z62callzf2ccz90zz__r4_control_features_6_9z00(obj_t BgL_envz00_1464, obj_t BgL_procz00_1465)
{
{ /* Ieee/control.scm 341 */
{ /* Ieee/control.scm 343 */
 obj_t BgL_auxz00_2965;
if(
PROCEDUREP(BgL_procz00_1465))
{ /* Ieee/control.scm 343 */
BgL_auxz00_2965 = BgL_procz00_1465
; }  else 
{ 
 obj_t BgL_auxz00_2968;
BgL_auxz00_2968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(11423L), BGl_string1934z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_procz00_1465); 
FAILURE(BgL_auxz00_2968,BFALSE,BFALSE);} 
return 
BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_auxz00_2965);} } 

}



/* &<@anonymous:1325> */
obj_t BGl_z62zc3z04anonymousza31325ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1466, obj_t BgL_contz00_1468)
{
{ /* Ieee/control.scm 342 */
{ /* Ieee/control.scm 343 */
 obj_t BgL_procz00_1467;
BgL_procz00_1467 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1466, 
(int)(0L))); 
{ /* Ieee/control.scm 343 */
 obj_t BgL_evcz00_1779;
BgL_evcz00_1779 = 
BGl_getzd2evaluationzd2contextz00zz__evaluatez00(); 
{ /* Ieee/control.scm 345 */
 obj_t BgL_zc3z04anonymousza31328ze3z87_1780;
BgL_zc3z04anonymousza31328ze3z87_1780 = 
MAKE_VA_PROCEDURE(BGl_z62zc3z04anonymousza31328ze3ze5zz__r4_control_features_6_9z00, 
(int)(-1L), 
(int)(2L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31328ze3z87_1780, 
(int)(0L), BgL_evcz00_1779); 
PROCEDURE_SET(BgL_zc3z04anonymousza31328ze3z87_1780, 
(int)(1L), BgL_contz00_1468); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_1467, 1L))
{ /* Ieee/control.scm 344 */
return 
(VA_PROCEDUREP( BgL_procz00_1467 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_procz00_1467))(BgL_procz00_1467, BgL_zc3z04anonymousza31328ze3z87_1780, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_procz00_1467))(BgL_procz00_1467, BgL_zc3z04anonymousza31328ze3z87_1780) );}  else 
{ /* Ieee/control.scm 344 */
FAILURE(BGl_string1935z00zz__r4_control_features_6_9z00,BGl_list1936z00zz__r4_control_features_6_9z00,BgL_procz00_1467);} } } } } 

}



/* &<@anonymous:1328> */
obj_t BGl_z62zc3z04anonymousza31328ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1469, obj_t BgL_valsz00_1472)
{
{ /* Ieee/control.scm 344 */
{ /* Ieee/control.scm 345 */
 obj_t BgL_evcz00_1470; obj_t BgL_contz00_1471;
BgL_evcz00_1470 = 
PROCEDURE_REF(BgL_envz00_1469, 
(int)(0L)); 
BgL_contz00_1471 = 
PROCEDURE_REF(BgL_envz00_1469, 
(int)(1L)); 
BGl_setzd2evaluationzd2contextz12z12zz__evaluatez00(BgL_evcz00_1470); 
{ /* Ieee/control.scm 346 */
 bool_t BgL_test2242z00_2996;
if(
PAIRP(BgL_valsz00_1472))
{ /* Ieee/control.scm 346 */
BgL_test2242z00_2996 = 
NULLP(
CDR(BgL_valsz00_1472))
; }  else 
{ /* Ieee/control.scm 346 */
BgL_test2242z00_2996 = ((bool_t)0)
; } 
if(BgL_test2242z00_2996)
{ /* Ieee/control.scm 347 */
 obj_t BgL_arg1332z00_1781;
BgL_arg1332z00_1781 = 
CAR(BgL_valsz00_1472); 
{ /* Ieee/control.scm 347 */
 obj_t BgL_funz00_1782;
if(
PROCEDUREP(BgL_contz00_1471))
{ /* Ieee/control.scm 347 */
BgL_funz00_1782 = BgL_contz00_1471; }  else 
{ 
 obj_t BgL_auxz00_3004;
BgL_auxz00_3004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(11578L), BGl_string1938z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_contz00_1471); 
FAILURE(BgL_auxz00_3004,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1782, 1L))
{ /* Ieee/control.scm 347 */
return 
(VA_PROCEDUREP( BgL_funz00_1782 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_1782))(BgL_contz00_1471, BgL_arg1332z00_1781, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_1782))(BgL_contz00_1471, BgL_arg1332z00_1781) );}  else 
{ /* Ieee/control.scm 347 */
FAILURE(BGl_string1939z00zz__r4_control_features_6_9z00,BGl_list1940z00zz__r4_control_features_6_9z00,BgL_funz00_1782);} } }  else 
{ /* Ieee/control.scm 346 */
{ /* Ieee/control.scm 349 */
 int BgL_tmpz00_3015;
BgL_tmpz00_3015 = 
(int)(-1L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3015); } 
{ /* Ieee/control.scm 350 */
 obj_t BgL_funz00_1783;
if(
PROCEDUREP(BgL_contz00_1471))
{ /* Ieee/control.scm 350 */
BgL_funz00_1783 = BgL_contz00_1471; }  else 
{ 
 obj_t BgL_auxz00_3020;
BgL_auxz00_3020 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(11651L), BGl_string1938z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_contz00_1471); 
FAILURE(BgL_auxz00_3020,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1783, 1L))
{ /* Ieee/control.scm 350 */
return 
(VA_PROCEDUREP( BgL_funz00_1783 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_1783))(BgL_contz00_1471, BgL_valsz00_1472, BEOA) : ((obj_t (*)(obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_1783))(BgL_contz00_1471, BgL_valsz00_1472) );}  else 
{ /* Ieee/control.scm 350 */
FAILURE(BGl_string1939z00zz__r4_control_features_6_9z00,BGl_list1945z00zz__r4_control_features_6_9z00,BgL_funz00_1783);} } } } } } 

}



/* 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_1473, obj_t BgL_procz00_1474)
{
{ /* Ieee/control.scm 359 */
{ /* Ieee/control.scm 360 */
 obj_t BgL_auxz00_3032;
if(
PROCEDUREP(BgL_procz00_1474))
{ /* Ieee/control.scm 360 */
BgL_auxz00_3032 = BgL_procz00_1474
; }  else 
{ 
 obj_t BgL_auxz00_3035;
BgL_auxz00_3035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(12040L), BGl_string1948z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_procz00_1474); 
FAILURE(BgL_auxz00_3035,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00(BgL_auxz00_3032);} } 

}



/* 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, 0L))
{ /* Ieee/control.scm 366 */
(VA_PROCEDUREP( BgL_beforez00_39 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_beforez00_39))(BgL_beforez00_39, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_beforez00_39))(BgL_beforez00_39) ); }  else 
{ /* Ieee/control.scm 366 */
FAILURE(BGl_string1949z00zz__r4_control_features_6_9z00,BGl_list1950z00zz__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_1325;
BgL_exitd1014z00_1325 = 
BGL_EXITD_TOP_AS_OBJ(); 
{ /* Ieee/control.scm 372 */
 obj_t BgL_zc3z04anonymousza31334ze3z87_1475;
BgL_zc3z04anonymousza31334ze3z87_1475 = 
MAKE_FX_PROCEDURE(BGl_z62zc3z04anonymousza31334ze3ze5zz__r4_control_features_6_9z00, 
(int)(0L), 
(int)(1L)); 
PROCEDURE_SET(BgL_zc3z04anonymousza31334ze3z87_1475, 
(int)(0L), BgL_afterz00_41); 
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1592z00_1328;
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1595z00_1329;
BgL_arg1595z00_1329 = 
BGL_EXITD_PROTECT(BgL_exitd1014z00_1325); 
BgL_arg1592z00_1328 = 
MAKE_YOUNG_PAIR(BgL_zc3z04anonymousza31334ze3z87_1475, BgL_arg1595z00_1329); } 
BGL_EXITD_PROTECT_SET(BgL_exitd1014z00_1325, BgL_arg1592z00_1328); BUNSPEC; } 
{ /* Ieee/control.scm 370 */
 obj_t BgL_tmp1016z00_1327;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_40, 0L))
{ /* Ieee/control.scm 370 */
BgL_tmp1016z00_1327 = 
(VA_PROCEDUREP( BgL_thunkz00_40 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_thunkz00_40))(BgL_thunkz00_40, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_thunkz00_40))(BgL_thunkz00_40) ); }  else 
{ /* Ieee/control.scm 370 */
FAILURE(BGl_string1949z00zz__r4_control_features_6_9z00,BGl_list1953z00zz__r4_control_features_6_9z00,BgL_thunkz00_40);} 
{ /* Ieee/control.scm 369 */
 bool_t BgL_test2251z00_3062;
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1591z00_1331;
BgL_arg1591z00_1331 = 
BGL_EXITD_PROTECT(BgL_exitd1014z00_1325); 
BgL_test2251z00_3062 = 
PAIRP(BgL_arg1591z00_1331); } 
if(BgL_test2251z00_3062)
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1589z00_1332;
{ /* Ieee/control.scm 369 */
 obj_t BgL_arg1590z00_1333;
BgL_arg1590z00_1333 = 
BGL_EXITD_PROTECT(BgL_exitd1014z00_1325); 
{ /* Ieee/control.scm 369 */
 obj_t BgL_pairz00_1334;
if(
PAIRP(BgL_arg1590z00_1333))
{ /* Ieee/control.scm 369 */
BgL_pairz00_1334 = BgL_arg1590z00_1333; }  else 
{ 
 obj_t BgL_auxz00_3068;
BgL_auxz00_3068 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(12411L), BGl_string1956z00zz__r4_control_features_6_9z00, BGl_string1837z00zz__r4_control_features_6_9z00, BgL_arg1590z00_1333); 
FAILURE(BgL_auxz00_3068,BFALSE,BFALSE);} 
BgL_arg1589z00_1332 = 
CDR(BgL_pairz00_1334); } } 
BGL_EXITD_PROTECT_SET(BgL_exitd1014z00_1325, BgL_arg1589z00_1332); BUNSPEC; }  else 
{ /* Ieee/control.scm 369 */BFALSE; } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_afterz00_41, 0L))
{ /* Ieee/control.scm 372 */
(VA_PROCEDUREP( BgL_afterz00_41 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_afterz00_41))(BgL_afterz00_41, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_afterz00_41))(BgL_afterz00_41) ); }  else 
{ /* Ieee/control.scm 372 */
FAILURE(BGl_string1949z00zz__r4_control_features_6_9z00,BGl_list1957z00zz__r4_control_features_6_9z00,BgL_afterz00_41);} 
POP_BEFORE(); 
return BgL_tmp1016z00_1327;} } } } } 

}



/* &dynamic-wind */
obj_t BGl_z62dynamiczd2windzb0zz__r4_control_features_6_9z00(obj_t BgL_envz00_1476, obj_t BgL_beforez00_1477, obj_t BgL_thunkz00_1478, obj_t BgL_afterz00_1479)
{
{ /* Ieee/control.scm 365 */
{ /* Ieee/control.scm 366 */
 obj_t BgL_auxz00_3095; obj_t BgL_auxz00_3088; obj_t BgL_auxz00_3081;
if(
PROCEDUREP(BgL_afterz00_1479))
{ /* Ieee/control.scm 366 */
BgL_auxz00_3095 = BgL_afterz00_1479
; }  else 
{ 
 obj_t BgL_auxz00_3098;
BgL_auxz00_3098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(12364L), BGl_string1960z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_afterz00_1479); 
FAILURE(BgL_auxz00_3098,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_thunkz00_1478))
{ /* Ieee/control.scm 366 */
BgL_auxz00_3088 = BgL_thunkz00_1478
; }  else 
{ 
 obj_t BgL_auxz00_3091;
BgL_auxz00_3091 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(12364L), BGl_string1960z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_thunkz00_1478); 
FAILURE(BgL_auxz00_3091,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_beforez00_1477))
{ /* Ieee/control.scm 366 */
BgL_auxz00_3081 = BgL_beforez00_1477
; }  else 
{ 
 obj_t BgL_auxz00_3084;
BgL_auxz00_3084 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1835z00zz__r4_control_features_6_9z00, 
BINT(12364L), BGl_string1960z00zz__r4_control_features_6_9z00, BGl_string1839z00zz__r4_control_features_6_9z00, BgL_beforez00_1477); 
FAILURE(BgL_auxz00_3084,BFALSE,BFALSE);} 
return 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_auxz00_3081, BgL_auxz00_3088, BgL_auxz00_3095);} } 

}



/* &<@anonymous:1334> */
obj_t BGl_z62zc3z04anonymousza31334ze3ze5zz__r4_control_features_6_9z00(obj_t BgL_envz00_1480)
{
{ /* Ieee/control.scm 369 */
{ /* Ieee/control.scm 372 */
 obj_t BgL_afterz00_1481;
BgL_afterz00_1481 = 
((obj_t)
PROCEDURE_REF(BgL_envz00_1480, 
(int)(0L))); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_afterz00_1481, 0L))
{ /* Ieee/control.scm 372 */
(VA_PROCEDUREP( BgL_afterz00_1481 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_afterz00_1481))(BgL_afterz00_1481, BEOA) : ((obj_t (*)(obj_t))PROCEDURE_ENTRY(BgL_afterz00_1481))(BgL_afterz00_1481) ); }  else 
{ /* Ieee/control.scm 372 */
FAILURE(BGl_string1961z00zz__r4_control_features_6_9z00,BGl_list1957z00zz__r4_control_features_6_9z00,BgL_afterz00_1481);} 
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_string1962z00zz__r4_control_features_6_9z00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string1962z00zz__r4_control_features_6_9z00)); 
return 
BGl_modulezd2initializa7ationz75zz__evaluatez00(398574045L, 
BSTRING_TO_STRING(BGl_string1962z00zz__r4_control_features_6_9z00));} 

}

#ifdef __cplusplus
}
#endif
