/*===========================================================================*/
/*   (Ieee/control.scm)                                                      */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/control.scm -indent -o objs/obj_s/Ieee/control.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <signal.h>

static obj_t BGl_symbol2643z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2642z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_loopz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2641z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_symbol2640z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2637z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2636z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__procedurezf3zf3zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2635z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2633z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2632z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2631z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2628z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2627z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2626z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2625z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2622z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2621z00zz__r4_control_features_6_9z00 = BUNSPEC;
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2620z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2619z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2618z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2617z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2613z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2611z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2609z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2608z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2604z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2606z00zz__r4_control_features_6_9z00 = BUNSPEC;
extern long bgl_list_length(obj_t);
static obj_t BGl_symbol2605z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2602z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2601z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_procedurezf3zf3zz__r4_control_features_6_9z00(obj_t);
static obj_t BGl_list2616z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_forcez00zz__r4_control_features_6_9z00(obj_t);
static obj_t BGl_list2623z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_recurz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list2624z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31174za3Ieeezf2controlze2scmza3207ze3z93zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list2630z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__r4_control_features_6_9z00();
static obj_t BGl_loopz72z72zz__r4_control_features_6_9z00(obj_t);
static obj_t BGl_list2639z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2645z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2647z00zz__r4_control_features_6_9z00 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_list2649z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2654z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2660z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list2665z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__callzf2cczf2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_list2668z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2671z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__applyz00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list2677z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__forzd2eachzd22z00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_list2679z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_list2682z00zz__r4_control_features_6_9z00 = BUNSPEC;
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);
BGL_EXPORTED_DECL obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00();
static obj_t BGl__filterz121797z12zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__forzd2eachzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t, obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl__filter1795z00zz__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__mapzd22zd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
extern obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(obj_t, obj_t);
extern obj_t call_cc(obj_t);
static obj_t BGl__dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31169za3Ieeezf2controlze2scmza3192ze3z93zz__r4_control_features_6_9z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00(obj_t);
static obj_t BGl_symbol2685z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2684z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2683z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__mapz00zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2680z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2678z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_zc3exitza31206za3Ieeezf2controlze2scmza3231ze3z93zz__r4_control_features_6_9z00(obj_t);
static obj_t BGl_symbol2675z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2674z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2673z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__forcez00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2672z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2670z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2669z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2666z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl__makezd2promisezd2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2663z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2662z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2661z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2658z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2657z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2656z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2655z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_zc3anonymousza31179za3Ieeezf2controlze2scmza3208ze3z93zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2652z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2651z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2650z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t BGl_symbol2648z00zz__r4_control_features_6_9z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_mapzd22zd2zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_symbol2646z00zz__r4_control_features_6_9z00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string2676z00zz__r4_control_features_6_9z00, BgL_bgl_string2676za700za7za7__r4_control_features_6_9za7002704z00, "dynamic-wind:Wrong number of arguments", 38 );
DEFINE_EXPORT_PROCEDURE( BGl_forzd2eachzd2envz00zz__r4_control_features_6_9z00, BgL_bgl__forza7d2eachza7d2za7za7__r4_control_features_6_9za7002705za7, va_generic_entry, BGl__forzd2eachzd2zz__r4_control_features_6_9z00, -2 );
DEFINE_STRING( BGl_string2667z00zz__r4_control_features_6_9z00, BgL_bgl_string2667za700za7za7__r4_control_features_6_9za7002706z00, "<anonymous:1179:Ieee/control.scm:208>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string2664z00zz__r4_control_features_6_9z00, BgL_bgl_string2664za700za7za7__r4_control_features_6_9za7002707z00, "<anonymous:1174:Ieee/control.scm:207>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string2659z00zz__r4_control_features_6_9z00, BgL_bgl_string2659za700za7za7__r4_control_features_6_9za7002708z00, "<anonymous:1169:Ieee/control.scm:192>:Wrong number of arguments", 63 );
DEFINE_STRING( BGl_string2653z00zz__r4_control_features_6_9z00, BgL_bgl_string2653za700za7za7__r4_control_features_6_9za7002709z00, "force:Wrong number of arguments", 31 );
DEFINE_STRING( BGl_string2644z00zz__r4_control_features_6_9z00, BgL_bgl_string2644za700za7za7__r4_control_features_6_9za7002710z00, "filter!:Wrong number of arguments", 33 );
DEFINE_STRING( BGl_string2638z00zz__r4_control_features_6_9z00, BgL_bgl_string2638za700za7za7__r4_control_features_6_9za7002711z00, "recur:Wrong number of arguments", 31 );
DEFINE_STRING( BGl_string2634z00zz__r4_control_features_6_9z00, BgL_bgl_string2634za700za7za7__r4_control_features_6_9za7002712z00, "for-each:Wrong number of arguments", 34 );
DEFINE_STRING( BGl_string2629z00zz__r4_control_features_6_9z00, BgL_bgl_string2629za700za7za7__r4_control_features_6_9za7002713z00, "for-each-2:Wrong number of arguments", 36 );
DEFINE_STRING( BGl_string2615z00zz__r4_control_features_6_9z00, BgL_bgl_string2615za700za7za7__r4_control_features_6_9za7002714z00, "map-2:Wrong number of arguments", 31 );
DEFINE_STRING( BGl_string2614z00zz__r4_control_features_6_9z00, BgL_bgl_string2614za700za7za7__r4_control_features_6_9za7002715z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string2612z00zz__r4_control_features_6_9z00, BgL_bgl_string2612za700za7za7__r4_control_features_6_9za7002716z00, "procedure", 9 );
DEFINE_STRING( BGl_string2610z00zz__r4_control_features_6_9z00, BgL_bgl_string2610za700za7za7__r4_control_features_6_9za7002717z00, "pair", 4 );
DEFINE_STRING( BGl_string2607z00zz__r4_control_features_6_9z00, BgL_bgl_string2607za700za7za7__r4_control_features_6_9za7002718z00, "/tmp/bigloo/runtime/./Ieee/control.scm", 38 );
DEFINE_STRING( BGl_string2603z00zz__r4_control_features_6_9z00, BgL_bgl_string2603za700za7za7__r4_control_features_6_9za7002719z00, "Wrong number of arguments", 25 );
DEFINE_EXPORT_PROCEDURE( BGl_forzd2eachzd22zd2envzd2zz__r4_control_features_6_9z00, BgL_bgl__forza7d2eachza7d22za700za7za7__r4_control_features_6_9za7002720z00, BGl__forzd2eachzd22z00zz__r4_control_features_6_9z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2withzd2currentzd2continuationzd2envz00zz__r4_control_features_6_9z00, BgL_bgl__callza7d2withza7d2currentza7d2continuationza7d2za7za7__r4_control_features_6_9za7002721za7, BGl__callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00, 0L, 1 );
extern obj_t BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00;
extern obj_t BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00;
DEFINE_EXPORT_PROCEDURE( BGl_callzf2cczd2envz20zz__r4_control_features_6_9z00, BgL_bgl__callza7f2ccza7f2za7za7__r4_control_features_6_9za7002722za7, BGl__callzf2cczf2zz__r4_control_features_6_9z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_filterz12zd2envzc0zz__r4_control_features_6_9z00, BgL_bgl__filterza7121797za712za7za7__r4_control_features_6_9za7002723za7, BGl__filterz121797z12zz__r4_control_features_6_9z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_mapzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl__mapza700za7za7__r4_control_features_6_9za7002724z00, va_generic_entry, BGl__mapz00zz__r4_control_features_6_9z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_mapzd22zd2envz00zz__r4_control_features_6_9z00, BgL_bgl__mapza7d22za7d2za7za7__r4_control_features_6_9za7002725za7, BGl__mapzd22zd2zz__r4_control_features_6_9z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_procedurezf3zd2envz21zz__r4_control_features_6_9z00, BgL_bgl__procedureza7f3za7f3za7za7__r4_control_features_6_9za7002726za7, BGl__procedurezf3zf3zz__r4_control_features_6_9z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_dynamiczd2windzd2envz00zz__r4_control_features_6_9z00, BgL_bgl__dynamicza7d2windza7d2za7za7__r4_control_features_6_9za7002727za7, BGl__dynamiczd2windzd2zz__r4_control_features_6_9z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2promisezd2envz00zz__r4_control_features_6_9z00, BgL_bgl__makeza7d2promiseza7d2za7za7__r4_control_features_6_9za7002728za7, BGl__makezd2promisezd2zz__r4_control_features_6_9z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_filterzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl__filter1795za700za7za7__r4_control_features_6_9za7002729z00, BGl__filter1795z00zz__r4_control_features_6_9z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_applyzd2envzd2zz__r4_control_features_6_9z00, BgL_bgl__applyza700za7za7__r4_control_features_6_9za7002730z00, va_generic_entry, BGl__applyz00zz__r4_control_features_6_9z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_forcezd2envzd2zz__r4_control_features_6_9z00, BgL_bgl__forceza700za7za7__r4_control_features_6_9za7002731z00, BGl__forcez00zz__r4_control_features_6_9z00, 0L, 1 );
DEFINE_STRING( BGl_string2681z00zz__r4_control_features_6_9z00, BgL_bgl_string2681za700za7za7__r4_control_features_6_9za7002732z00, "<exit:1206:Ieee/control.scm:231>:Wrong number of arguments", 58 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long BgL_checksumz00_916, char * BgL_fromz00_917)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_control_features_6_9z00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_control_features_6_9z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_control_features_6_9z00()
{ AN_OBJECT;
{ /* ./Ieee/control.scm 14 */
BGl_symbol2601z00zz__r4_control_features_6_9z00 = 
string_to_symbol("procedure?"); 
BGl_symbol2602z00zz__r4_control_features_6_9z00 = 
string_to_symbol("apply"); 
BGl_symbol2605z00zz__r4_control_features_6_9z00 = 
string_to_symbol("proc"); 
BGl_symbol2606z00zz__r4_control_features_6_9z00 = 
string_to_symbol("args"); 
{ /* ./Ieee/control.scm 81 */
obj_t BgL_auxz00_927;
{ /* ./Ieee/control.scm 81 */
obj_t BgL_auxz00_928;
BgL_auxz00_928 = 
MAKE_PAIR(BGl_symbol2606z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_927 = 
MAKE_PAIR(BGl_symbol2605z00zz__r4_control_features_6_9z00, BgL_auxz00_928); } 
BGl_list2604z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2602z00zz__r4_control_features_6_9z00, BgL_auxz00_927); } 
BGl_symbol2608z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_"); 
BGl_symbol2609z00zz__r4_control_features_6_9z00 = 
string_to_symbol("loop'"); 
BGl_symbol2611z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_apply"); 
BGl_symbol2613z00zz__r4_control_features_6_9z00 = 
string_to_symbol("map-2"); 
BGl_symbol2617z00zz__r4_control_features_6_9z00 = 
string_to_symbol("funcall"); 
BGl_symbol2618z00zz__r4_control_features_6_9z00 = 
string_to_symbol("f"); 
BGl_symbol2619z00zz__r4_control_features_6_9z00 = 
string_to_symbol("arg1041"); 
{ /* ./Ieee/control.scm 91 */
obj_t BgL_auxz00_939;
{ /* ./Ieee/control.scm 91 */
obj_t BgL_auxz00_940;
{ /* ./Ieee/control.scm 91 */
obj_t BgL_auxz00_941;
BgL_auxz00_941 = 
MAKE_PAIR(BGl_symbol2619z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_940 = 
MAKE_PAIR(BGl_symbol2618z00zz__r4_control_features_6_9z00, BgL_auxz00_941); } 
BgL_auxz00_939 = 
MAKE_PAIR(BGl_symbol2618z00zz__r4_control_features_6_9z00, BgL_auxz00_940); } 
BGl_list2616z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_939); } 
BGl_symbol2620z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_map-2"); 
BGl_symbol2621z00zz__r4_control_features_6_9z00 = 
string_to_symbol("map"); 
BGl_symbol2622z00zz__r4_control_features_6_9z00 = 
string_to_symbol("loop"); 
BGl_symbol2625z00zz__r4_control_features_6_9z00 = 
string_to_symbol("car-env"); 
BGl_symbol2626z00zz__r4_control_features_6_9z00 = 
string_to_symbol("l"); 
{ /* ./Ieee/control.scm 106 */
obj_t BgL_auxz00_951;
{ /* ./Ieee/control.scm 106 */
obj_t BgL_auxz00_952;
BgL_auxz00_952 = 
MAKE_PAIR(BGl_symbol2626z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_951 = 
MAKE_PAIR(BGl_symbol2625z00zz__r4_control_features_6_9z00, BgL_auxz00_952); } 
BGl_list2624z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2613z00zz__r4_control_features_6_9z00, BgL_auxz00_951); } 
{ /* ./Ieee/control.scm 106 */
obj_t BgL_auxz00_956;
{ /* ./Ieee/control.scm 106 */
obj_t BgL_auxz00_957;
BgL_auxz00_957 = 
MAKE_PAIR(BGl_list2624z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_956 = 
MAKE_PAIR(BGl_symbol2618z00zz__r4_control_features_6_9z00, BgL_auxz00_957); } 
BGl_list2623z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2602z00zz__r4_control_features_6_9z00, BgL_auxz00_956); } 
BGl_symbol2627z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_map"); 
BGl_symbol2628z00zz__r4_control_features_6_9z00 = 
string_to_symbol("for-each-2"); 
BGl_symbol2631z00zz__r4_control_features_6_9z00 = 
string_to_symbol("arg1075"); 
{ /* ./Ieee/control.scm 113 */
obj_t BgL_auxz00_964;
{ /* ./Ieee/control.scm 113 */
obj_t BgL_auxz00_965;
{ /* ./Ieee/control.scm 113 */
obj_t BgL_auxz00_966;
BgL_auxz00_966 = 
MAKE_PAIR(BGl_symbol2631z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_965 = 
MAKE_PAIR(BGl_symbol2618z00zz__r4_control_features_6_9z00, BgL_auxz00_966); } 
BgL_auxz00_964 = 
MAKE_PAIR(BGl_symbol2618z00zz__r4_control_features_6_9z00, BgL_auxz00_965); } 
BGl_list2630z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_964); } 
BGl_symbol2632z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_for-each-2"); 
BGl_symbol2633z00zz__r4_control_features_6_9z00 = 
string_to_symbol("for-each"); 
BGl_symbol2635z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_for-each"); 
BGl_symbol2636z00zz__r4_control_features_6_9z00 = 
string_to_symbol("filter"); 
BGl_symbol2637z00zz__r4_control_features_6_9z00 = 
string_to_symbol("recur"); 
BGl_symbol2640z00zz__r4_control_features_6_9z00 = 
string_to_symbol("pred"); 
BGl_symbol2641z00zz__r4_control_features_6_9z00 = 
string_to_symbol("head"); 
{ /* ./Ieee/control.scm 146 */
obj_t BgL_auxz00_978;
{ /* ./Ieee/control.scm 146 */
obj_t BgL_auxz00_979;
{ /* ./Ieee/control.scm 146 */
obj_t BgL_auxz00_980;
BgL_auxz00_980 = 
MAKE_PAIR(BGl_symbol2641z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_979 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_980); } 
BgL_auxz00_978 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_979); } 
BGl_list2639z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_978); } 
BGl_symbol2642z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_filter1795"); 
BGl_symbol2643z00zz__r4_control_features_6_9z00 = 
string_to_symbol("filter!"); 
BGl_symbol2646z00zz__r4_control_features_6_9z00 = 
string_to_symbol("arg1164"); 
{ /* ./Ieee/control.scm 160 */
obj_t BgL_auxz00_988;
{ /* ./Ieee/control.scm 160 */
obj_t BgL_auxz00_989;
{ /* ./Ieee/control.scm 160 */
obj_t BgL_auxz00_990;
BgL_auxz00_990 = 
MAKE_PAIR(BGl_symbol2646z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_989 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_990); } 
BgL_auxz00_988 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_989); } 
BGl_list2645z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_988); } 
BGl_symbol2648z00zz__r4_control_features_6_9z00 = 
string_to_symbol("arg1136"); 
{ /* ./Ieee/control.scm 165 */
obj_t BgL_auxz00_996;
{ /* ./Ieee/control.scm 165 */
obj_t BgL_auxz00_997;
{ /* ./Ieee/control.scm 165 */
obj_t BgL_auxz00_998;
BgL_auxz00_998 = 
MAKE_PAIR(BGl_symbol2648z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_997 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_998); } 
BgL_auxz00_996 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_997); } 
BGl_list2647z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_996); } 
BGl_symbol2650z00zz__r4_control_features_6_9z00 = 
string_to_symbol("arg1154"); 
{ /* ./Ieee/control.scm 171 */
obj_t BgL_auxz00_1004;
{ /* ./Ieee/control.scm 171 */
obj_t BgL_auxz00_1005;
{ /* ./Ieee/control.scm 171 */
obj_t BgL_auxz00_1006;
BgL_auxz00_1006 = 
MAKE_PAIR(BGl_symbol2650z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1005 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_1006); } 
BgL_auxz00_1004 = 
MAKE_PAIR(BGl_symbol2640z00zz__r4_control_features_6_9z00, BgL_auxz00_1005); } 
BGl_list2649z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1004); } 
BGl_symbol2651z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_filter!1797"); 
BGl_symbol2652z00zz__r4_control_features_6_9z00 = 
string_to_symbol("force"); 
BGl_symbol2655z00zz__r4_control_features_6_9z00 = 
string_to_symbol("promise"); 
{ /* ./Ieee/control.scm 184 */
obj_t BgL_auxz00_1014;
{ /* ./Ieee/control.scm 184 */
obj_t BgL_auxz00_1015;
BgL_auxz00_1015 = 
MAKE_PAIR(BGl_symbol2655z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1014 = 
MAKE_PAIR(BGl_symbol2655z00zz__r4_control_features_6_9z00, BgL_auxz00_1015); } 
BGl_list2654z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1014); } 
BGl_symbol2656z00zz__r4_control_features_6_9z00 = 
string_to_symbol("make-promise"); 
BGl_symbol2657z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_make-promise"); 
BGl_symbol2658z00zz__r4_control_features_6_9z00 = 
string_to_symbol("<anonymous:1169:Ieee/control.scm:192>"); 
{ /* ./Ieee/control.scm 195 */
obj_t BgL_auxz00_1022;
{ /* ./Ieee/control.scm 195 */
obj_t BgL_auxz00_1023;
BgL_auxz00_1023 = 
MAKE_PAIR(BGl_symbol2605z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1022 = 
MAKE_PAIR(BGl_symbol2605z00zz__r4_control_features_6_9z00, BgL_auxz00_1023); } 
BGl_list2660z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1022); } 
BGl_symbol2661z00zz__r4_control_features_6_9z00 = 
string_to_symbol("call/cc"); 
BGl_symbol2662z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_call/cc"); 
BGl_symbol2663z00zz__r4_control_features_6_9z00 = 
string_to_symbol("<anonymous:1174:Ieee/control.scm:207>"); 
BGl_symbol2666z00zz__r4_control_features_6_9z00 = 
string_to_symbol("<anonymous:1179:Ieee/control.scm:208>"); 
{ /* ./Ieee/control.scm 208 */
obj_t BgL_auxz00_1031;
{ /* ./Ieee/control.scm 208 */
obj_t BgL_auxz00_1032;
{ /* ./Ieee/control.scm 208 */
obj_t BgL_auxz00_1033;
BgL_auxz00_1033 = 
MAKE_PAIR(BGl_symbol2666z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1032 = 
MAKE_PAIR(BGl_symbol2605z00zz__r4_control_features_6_9z00, BgL_auxz00_1033); } 
BgL_auxz00_1031 = 
MAKE_PAIR(BGl_symbol2605z00zz__r4_control_features_6_9z00, BgL_auxz00_1032); } 
BGl_list2665z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1031); } 
BGl_symbol2669z00zz__r4_control_features_6_9z00 = 
string_to_symbol("cont"); 
BGl_symbol2670z00zz__r4_control_features_6_9z00 = 
string_to_symbol("arg1182"); 
{ /* ./Ieee/control.scm 210 */
obj_t BgL_auxz00_1040;
{ /* ./Ieee/control.scm 210 */
obj_t BgL_auxz00_1041;
{ /* ./Ieee/control.scm 210 */
obj_t BgL_auxz00_1042;
BgL_auxz00_1042 = 
MAKE_PAIR(BGl_symbol2670z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1041 = 
MAKE_PAIR(BGl_symbol2669z00zz__r4_control_features_6_9z00, BgL_auxz00_1042); } 
BgL_auxz00_1040 = 
MAKE_PAIR(BGl_symbol2669z00zz__r4_control_features_6_9z00, BgL_auxz00_1041); } 
BGl_list2668z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1040); } 
BGl_symbol2672z00zz__r4_control_features_6_9z00 = 
string_to_symbol("vals"); 
{ /* ./Ieee/control.scm 213 */
obj_t BgL_auxz00_1048;
{ /* ./Ieee/control.scm 213 */
obj_t BgL_auxz00_1049;
{ /* ./Ieee/control.scm 213 */
obj_t BgL_auxz00_1050;
BgL_auxz00_1050 = 
MAKE_PAIR(BGl_symbol2672z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1049 = 
MAKE_PAIR(BGl_symbol2669z00zz__r4_control_features_6_9z00, BgL_auxz00_1050); } 
BgL_auxz00_1048 = 
MAKE_PAIR(BGl_symbol2669z00zz__r4_control_features_6_9z00, BgL_auxz00_1049); } 
BGl_list2671z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1048); } 
BGl_symbol2673z00zz__r4_control_features_6_9z00 = 
string_to_symbol("call-with-current-continuation"); 
BGl_symbol2674z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_call-with-current-continuation"); 
BGl_symbol2675z00zz__r4_control_features_6_9z00 = 
string_to_symbol("dynamic-wind"); 
BGl_symbol2678z00zz__r4_control_features_6_9z00 = 
string_to_symbol("before"); 
{ /* ./Ieee/control.scm 225 */
obj_t BgL_auxz00_1059;
{ /* ./Ieee/control.scm 225 */
obj_t BgL_auxz00_1060;
BgL_auxz00_1060 = 
MAKE_PAIR(BGl_symbol2678z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1059 = 
MAKE_PAIR(BGl_symbol2678z00zz__r4_control_features_6_9z00, BgL_auxz00_1060); } 
BGl_list2677z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1059); } 
BGl_symbol2680z00zz__r4_control_features_6_9z00 = 
string_to_symbol("after"); 
{ /* ./Ieee/control.scm 231 */
obj_t BgL_auxz00_1065;
{ /* ./Ieee/control.scm 231 */
obj_t BgL_auxz00_1066;
BgL_auxz00_1066 = 
MAKE_PAIR(BGl_symbol2680z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1065 = 
MAKE_PAIR(BGl_symbol2680z00zz__r4_control_features_6_9z00, BgL_auxz00_1066); } 
BGl_list2679z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1065); } 
BGl_symbol2683z00zz__r4_control_features_6_9z00 = 
string_to_symbol("thunk"); 
{ /* ./Ieee/control.scm 229 */
obj_t BgL_auxz00_1071;
{ /* ./Ieee/control.scm 229 */
obj_t BgL_auxz00_1072;
BgL_auxz00_1072 = 
MAKE_PAIR(BGl_symbol2683z00zz__r4_control_features_6_9z00, BNIL); 
BgL_auxz00_1071 = 
MAKE_PAIR(BGl_symbol2683z00zz__r4_control_features_6_9z00, BgL_auxz00_1072); } 
BGl_list2682z00zz__r4_control_features_6_9z00 = 
MAKE_PAIR(BGl_symbol2617z00zz__r4_control_features_6_9z00, BgL_auxz00_1071); } 
BGl_symbol2684z00zz__r4_control_features_6_9z00 = 
string_to_symbol("_dynamic-wind"); 
return ( 
BGl_symbol2685z00zz__r4_control_features_6_9z00 = 
string_to_symbol("%import@__r4_control_features_6_9"), BUNSPEC) ;} 
}



/* procedure? */
BGL_EXPORTED_DEF bool_t BGl_procedurezf3zf3zz__r4_control_features_6_9z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 68 */
{ /* ./Ieee/control.scm 69 */
obj_t BgL_symbol1730z00_838;
BgL_symbol1730z00_838 = BGl_symbol2601z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 69 */

PUSH_TRACE(BgL_symbol1730z00_838); BUNSPEC; 
{ /* ./Ieee/control.scm 69 */
bool_t BgL_aux1729z00_839;
BgL_aux1729z00_839 = 
PROCEDUREP(BgL_objz00_1); 
POP_TRACE(); 
return BgL_aux1729z00_839;} } } } 
}



/* _procedure? */
obj_t BGl__procedurezf3zf3zz__r4_control_features_6_9z00(obj_t BgL_envz00_597, obj_t BgL_objz00_598)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 68 */
{ /* ./Ieee/control.scm 69 */
bool_t BgL_auxz00_1081;
{ /* ./Ieee/control.scm 69 */
bool_t BgL_res2686z00_843;
{ /* ./Ieee/control.scm 69 */
obj_t BgL_symbol1730z00_841;
BgL_symbol1730z00_841 = BGl_symbol2601z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 69 */

PUSH_TRACE(BgL_symbol1730z00_841); BUNSPEC; 
{ /* ./Ieee/control.scm 69 */
bool_t BgL_aux1729z00_842;
BgL_aux1729z00_842 = 
PROCEDUREP(BgL_objz00_598); 
POP_TRACE(); 
BgL_res2686z00_843 = BgL_aux1729z00_842; } } } 
BgL_auxz00_1081 = BgL_res2686z00_843; } 
return 
BBOOL(BgL_auxz00_1081);} } 
}



/* apply */
BGL_EXPORTED_DEF obj_t BGl_applyz00zz__r4_control_features_6_9z00(obj_t BgL_procz00_2, obj_t BgL_argsz00_3, obj_t BgL_optz00_4)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 74 */
{ /* ./Ieee/control.scm 75 */
obj_t BgL_symbol1734z00_571;
BgL_symbol1734z00_571 = BGl_symbol2602z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 75 */

PUSH_TRACE(BgL_symbol1734z00_571); BUNSPEC; 
{ /* ./Ieee/control.scm 75 */
obj_t BgL_aux1733z00_572;
{ /* ./Ieee/control.scm 75 */
obj_t BgL_argsz00_271;
if(
PAIRP(BgL_optz00_4))
{ /* ./Ieee/control.scm 76 */
obj_t BgL_auxz00_1089;
BgL_auxz00_1089 = 
BGl_loopz72z72zz__r4_control_features_6_9z00(BgL_optz00_4); 
BgL_argsz00_271 = 
MAKE_PAIR(BgL_argsz00_3, BgL_auxz00_1089); }  else 
{ /* ./Ieee/control.scm 75 */
BgL_argsz00_271 = BgL_argsz00_3; } 
{ /* ./Ieee/control.scm 81 */
int BgL_len1811z00_657;
{ /* ./Ieee/control.scm 81 */
long BgL_auxz00_1092;
BgL_auxz00_1092 = 
bgl_list_length(BgL_argsz00_271); 
BgL_len1811z00_657 = 
(int)(BgL_auxz00_1092); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_2, BgL_len1811z00_657))
{ /* ./Ieee/control.scm 81 */
BgL_aux1733z00_572 = 
apply(BgL_procz00_2, BgL_argsz00_271); }  else 
{ /* ./Ieee/control.scm 81 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2602z00zz__r4_control_features_6_9z00, BGl_string2603z00zz__r4_control_features_6_9z00, BGl_list2604z00zz__r4_control_features_6_9z00, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3155))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } } 
POP_TRACE(); 
return BgL_aux1733z00_572;} } } } 
}



/* loop' */
obj_t BGl_loopz72z72zz__r4_control_features_6_9z00(obj_t BgL_optz00_274)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 76 */
{ /* ./Ieee/control.scm 77 */
bool_t BgL_test1012z00_276;
{ /* ./Ieee/control.scm 77 */
obj_t BgL_arg1024z00_280;
{ /* ./Ieee/control.scm 77 */
obj_t BgL_pairz00_500;
if(
PAIRP(BgL_optz00_274))
{ /* ./Ieee/control.scm 77 */
BgL_pairz00_500 = BgL_optz00_274; }  else 
{ /* ./Ieee/control.scm 77 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2609z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_optz00_274, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3067))); 
exit( -1 );} 
BgL_arg1024z00_280 = 
CDR(BgL_pairz00_500); } 
BgL_test1012z00_276 = 
PAIRP(BgL_arg1024z00_280); } 
if(BgL_test1012z00_276)
{ /* ./Ieee/control.scm 78 */
obj_t BgL_arg1014z00_277;obj_t BgL_arg1015z00_278;
{ /* ./Ieee/control.scm 78 */
obj_t BgL_pairz00_502;
if(
PAIRP(BgL_optz00_274))
{ /* ./Ieee/control.scm 78 */
BgL_pairz00_502 = BgL_optz00_274; }  else 
{ /* ./Ieee/control.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2609z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_optz00_274, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3093))); 
exit( -1 );} 
BgL_arg1014z00_277 = 
CAR(BgL_pairz00_502); } 
{ /* ./Ieee/control.scm 78 */
obj_t BgL_arg1019z00_279;
{ /* ./Ieee/control.scm 78 */
obj_t BgL_pairz00_503;
if(
PAIRP(BgL_optz00_274))
{ /* ./Ieee/control.scm 78 */
BgL_pairz00_503 = BgL_optz00_274; }  else 
{ /* ./Ieee/control.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2609z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_optz00_274, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3109))); 
exit( -1 );} 
BgL_arg1019z00_279 = 
CDR(BgL_pairz00_503); } 
BgL_arg1015z00_278 = 
BGl_loopz72z72zz__r4_control_features_6_9z00(BgL_arg1019z00_279); } 
return 
MAKE_PAIR(BgL_arg1014z00_277, BgL_arg1015z00_278);}  else 
{ /* ./Ieee/control.scm 79 */
obj_t BgL_pairz00_504;
if(
PAIRP(BgL_optz00_274))
{ /* ./Ieee/control.scm 79 */
BgL_pairz00_504 = BgL_optz00_274; }  else 
{ /* ./Ieee/control.scm 79 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2609z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_optz00_274, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3130))); 
exit( -1 );} 
return 
CAR(BgL_pairz00_504);} } } 
}



/* _apply */
obj_t BGl__applyz00zz__r4_control_features_6_9z00(obj_t BgL_envz00_599, obj_t BgL_procz00_600, obj_t BgL_argsz00_601, obj_t BgL_optz00_602)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 74 */
{ /* ./Ieee/control.scm 75 */
obj_t BgL_auxz00_1131;
if(
PROCEDUREP(BgL_procz00_600))
{ /* ./Ieee/control.scm 75 */
BgL_auxz00_1131 = BgL_procz00_600
; }  else 
{ /* ./Ieee/control.scm 75 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2611z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_procz00_600, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)2978))); 
exit( -1 );} 
return 
BGl_applyz00zz__r4_control_features_6_9z00(BgL_auxz00_1131, BgL_argsz00_601, BgL_optz00_602);} } 
}



/* map-2 */
BGL_EXPORTED_DEF obj_t BGl_mapzd22zd2zz__r4_control_features_6_9z00(obj_t BgL_fz00_5, obj_t BgL_lz00_6)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 86 */
{ /* ./Ieee/control.scm 87 */
obj_t BgL_symbol1738z00_573;
BgL_symbol1738z00_573 = BGl_symbol2613z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 87 */

PUSH_TRACE(BgL_symbol1738z00_573); BUNSPEC; 
{ /* ./Ieee/control.scm 87 */
obj_t BgL_aux1737z00_574;
{ 
obj_t BgL_lz00_281;obj_t BgL_resz00_282;
BgL_lz00_281 = BgL_lz00_6; 
BgL_resz00_282 = BNIL; 
BgL_loopz00_283:
if(
NULLP(BgL_lz00_281))
{ /* ./Ieee/control.scm 90 */
obj_t BgL_auxz00_1141;
{ /* ./Ieee/control.scm 90 */
bool_t BgL_testz00_1142;
if(
PAIRP(BgL_resz00_282))
{ /* ./Ieee/control.scm 90 */
BgL_testz00_1142 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 90 */
BgL_testz00_1142 = 
NULLP(BgL_resz00_282)
; } 
if(BgL_testz00_1142)
{ /* ./Ieee/control.scm 90 */
BgL_auxz00_1141 = BgL_resz00_282
; }  else 
{ /* ./Ieee/control.scm 90 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2613z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_resz00_282, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3493))); 
exit( -1 );} } 
BgL_aux1737z00_574 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_1141); }  else 
{ /* ./Ieee/control.scm 91 */
obj_t BgL_arg1032z00_285;obj_t BgL_arg1033z00_286;
{ /* ./Ieee/control.scm 91 */
obj_t BgL_pairz00_506;
if(
PAIRP(BgL_lz00_281))
{ /* ./Ieee/control.scm 91 */
BgL_pairz00_506 = BgL_lz00_281; }  else 
{ /* ./Ieee/control.scm 91 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2613z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_281, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3510))); 
exit( -1 );} 
BgL_arg1032z00_285 = 
CDR(BgL_pairz00_506); } 
{ /* ./Ieee/control.scm 91 */
obj_t BgL_arg1037z00_287;
{ /* ./Ieee/control.scm 91 */
obj_t BgL_arg1041z00_288;
{ /* ./Ieee/control.scm 91 */
obj_t BgL_pairz00_507;
if(
PAIRP(BgL_lz00_281))
{ /* ./Ieee/control.scm 91 */
BgL_pairz00_507 = BgL_lz00_281; }  else 
{ /* ./Ieee/control.scm 91 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2613z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_281, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3527))); 
exit( -1 );} 
BgL_arg1041z00_288 = 
CAR(BgL_pairz00_507); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_5, ((long)1)))
{ /* ./Ieee/control.scm 91 */
BgL_arg1037z00_287 = 
PROCEDURE_ENTRY(BgL_fz00_5)(BgL_fz00_5, BgL_arg1041z00_288, BEOA); }  else 
{ /* ./Ieee/control.scm 91 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2615z00zz__r4_control_features_6_9z00, BGl_list2616z00zz__r4_control_features_6_9z00, BgL_fz00_5, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3519))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
BgL_arg1033z00_286 = 
MAKE_PAIR(BgL_arg1037z00_287, BgL_resz00_282); } 
{ 
obj_t BgL_resz00_1171;obj_t BgL_lz00_1170;
BgL_lz00_1170 = BgL_arg1032z00_285; 
BgL_resz00_1171 = BgL_arg1033z00_286; 
BgL_resz00_282 = BgL_resz00_1171; 
BgL_lz00_281 = BgL_lz00_1170; 
goto BgL_loopz00_283;} } } 
POP_TRACE(); 
return BgL_aux1737z00_574;} } } } 
}



/* _map-2 */
obj_t BGl__mapzd22zd2zz__r4_control_features_6_9z00(obj_t BgL_envz00_603, obj_t BgL_fz00_604, obj_t BgL_lz00_605)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 86 */
{ /* ./Ieee/control.scm 87 */
obj_t BgL_auxz00_1179;obj_t BgL_auxz00_1173;
{ /* ./Ieee/control.scm 87 */
bool_t BgL_testz00_1180;
if(
PAIRP(BgL_lz00_605))
{ /* ./Ieee/control.scm 87 */
BgL_testz00_1180 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 87 */
BgL_testz00_1180 = 
NULLP(BgL_lz00_605)
; } 
if(BgL_testz00_1180)
{ /* ./Ieee/control.scm 87 */
BgL_auxz00_1179 = BgL_lz00_605
; }  else 
{ /* ./Ieee/control.scm 87 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2620z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lz00_605, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3421))); 
exit( -1 );} } 
if(
PROCEDUREP(BgL_fz00_604))
{ /* ./Ieee/control.scm 87 */
BgL_auxz00_1173 = BgL_fz00_604
; }  else 
{ /* ./Ieee/control.scm 87 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2620z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_fz00_604, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3421))); 
exit( -1 );} 
return 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_auxz00_1173, BgL_auxz00_1179);} } 
}



/* map */
BGL_EXPORTED_DEF obj_t BGl_mapz00zz__r4_control_features_6_9z00(obj_t BgL_fz00_7, obj_t BgL_lz00_8)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 96 */
{ /* ./Ieee/control.scm 98 */
obj_t BgL_symbol1742z00_575;
BgL_symbol1742z00_575 = BGl_symbol2621z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 98 */

PUSH_TRACE(BgL_symbol1742z00_575); BUNSPEC; 
{ /* ./Ieee/control.scm 98 */
obj_t BgL_aux1741z00_576;
if(
NULLP(BgL_lz00_8))
{ /* ./Ieee/control.scm 98 */
BgL_aux1741z00_576 = BNIL; }  else 
{ /* ./Ieee/control.scm 100 */
bool_t BgL_test1046z00_290;
{ /* ./Ieee/control.scm 100 */
obj_t BgL_arg1068z00_299;
{ /* ./Ieee/control.scm 100 */
obj_t BgL_pairz00_509;
if(
PAIRP(BgL_lz00_8))
{ /* ./Ieee/control.scm 100 */
BgL_pairz00_509 = BgL_lz00_8; }  else 
{ /* ./Ieee/control.scm 100 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2621z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_8, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3840))); 
exit( -1 );} 
BgL_arg1068z00_299 = 
CDR(BgL_pairz00_509); } 
BgL_test1046z00_290 = 
NULLP(BgL_arg1068z00_299); } 
if(BgL_test1046z00_290)
{ /* ./Ieee/control.scm 100 */
{ /* ./Ieee/control.scm 101 */
obj_t BgL_arg1048z00_291;
{ /* ./Ieee/control.scm 101 */
obj_t BgL_pairz00_511;
if(
PAIRP(BgL_lz00_8))
{ /* ./Ieee/control.scm 101 */
BgL_pairz00_511 = BgL_lz00_8; }  else 
{ /* ./Ieee/control.scm 101 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2621z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_8, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3865))); 
exit( -1 );} 
BgL_arg1048z00_291 = 
CAR(BgL_pairz00_511); } 
{ /* ./Ieee/control.scm 101 */
obj_t BgL_auxz00_1205;
{ /* ./Ieee/control.scm 101 */
bool_t BgL_testz00_1206;
if(
PAIRP(BgL_arg1048z00_291))
{ /* ./Ieee/control.scm 101 */
BgL_testz00_1206 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 101 */
BgL_testz00_1206 = 
NULLP(BgL_arg1048z00_291)
; } 
if(BgL_testz00_1206)
{ /* ./Ieee/control.scm 101 */
BgL_auxz00_1205 = BgL_arg1048z00_291
; }  else 
{ /* ./Ieee/control.scm 101 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2621z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_arg1048z00_291, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3866))); 
exit( -1 );} } 
BgL_aux1741z00_576 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BgL_fz00_7, BgL_auxz00_1205); } } }  else 
{ /* ./Ieee/control.scm 100 */
{ /* ./Ieee/control.scm 103 */
obj_t BgL_aux1956z00_688;
BgL_aux1956z00_688 = 
BGl_loopz00zz__r4_control_features_6_9z00(BgL_fz00_7, BgL_lz00_8); 
{ /* ./Ieee/control.scm 103 */
bool_t BgL_testz00_1215;
if(
PAIRP(BgL_aux1956z00_688))
{ /* ./Ieee/control.scm 103 */
BgL_testz00_1215 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 103 */
BgL_testz00_1215 = 
NULLP(BgL_aux1956z00_688)
; } 
if(BgL_testz00_1215)
{ /* ./Ieee/control.scm 103 */
BgL_aux1741z00_576 = BgL_aux1956z00_688; }  else 
{ /* ./Ieee/control.scm 103 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2621z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_aux1956z00_688, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3889))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux1741z00_576;} } } } 
}



/* loop */
obj_t BGl_loopz00zz__r4_control_features_6_9z00(obj_t BgL_fz00_654, obj_t BgL_lz00_292)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 103 */
{ /* ./Ieee/control.scm 104 */
bool_t BgL_test1052z00_294;
{ /* ./Ieee/control.scm 104 */
obj_t BgL_arg1064z00_298;
{ /* ./Ieee/control.scm 104 */
obj_t BgL_pairz00_512;
if(
PAIRP(BgL_lz00_292))
{ /* ./Ieee/control.scm 104 */
BgL_pairz00_512 = BgL_lz00_292; }  else 
{ /* ./Ieee/control.scm 104 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2622z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_292, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3926))); 
exit( -1 );} 
BgL_arg1064z00_298 = 
CAR(BgL_pairz00_512); } 
BgL_test1052z00_294 = 
NULLP(BgL_arg1064z00_298); } 
if(BgL_test1052z00_294)
{ /* ./Ieee/control.scm 104 */
return BNIL;}  else 
{ /* ./Ieee/control.scm 106 */
obj_t BgL_arg1054z00_295;obj_t BgL_arg1055z00_296;
{ /* ./Ieee/control.scm 106 */
obj_t BgL_valz00_695;
{ /* ./Ieee/control.scm 106 */
obj_t BgL_auxz00_1231;
{ /* ./Ieee/control.scm 106 */
bool_t BgL_testz00_1232;
if(
PAIRP(BgL_lz00_292))
{ /* ./Ieee/control.scm 106 */
BgL_testz00_1232 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 106 */
BgL_testz00_1232 = 
NULLP(BgL_lz00_292)
; } 
if(BgL_testz00_1232)
{ /* ./Ieee/control.scm 106 */
BgL_auxz00_1231 = BgL_lz00_292
; }  else 
{ /* ./Ieee/control.scm 106 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2622z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lz00_292, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3974))); 
exit( -1 );} } 
BgL_valz00_695 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_1231); } 
{ /* ./Ieee/control.scm 106 */
int BgL_len1987z00_696;
{ /* ./Ieee/control.scm 106 */
long BgL_auxz00_1240;
BgL_auxz00_1240 = 
bgl_list_length(BgL_valz00_695); 
BgL_len1987z00_696 = 
(int)(BgL_auxz00_1240); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_654, BgL_len1987z00_696))
{ /* ./Ieee/control.scm 106 */
BgL_arg1054z00_295 = 
apply(BgL_fz00_654, BgL_valz00_695); }  else 
{ /* ./Ieee/control.scm 106 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2622z00zz__r4_control_features_6_9z00, BGl_string2603z00zz__r4_control_features_6_9z00, BGl_list2623z00zz__r4_control_features_6_9z00, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3954))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } } 
{ /* ./Ieee/control.scm 107 */
obj_t BgL_arg1059z00_297;
{ /* ./Ieee/control.scm 107 */
obj_t BgL_auxz00_1250;
{ /* ./Ieee/control.scm 107 */
bool_t BgL_testz00_1251;
if(
PAIRP(BgL_lz00_292))
{ /* ./Ieee/control.scm 107 */
BgL_testz00_1251 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 107 */
BgL_testz00_1251 = 
NULLP(BgL_lz00_292)
; } 
if(BgL_testz00_1251)
{ /* ./Ieee/control.scm 107 */
BgL_auxz00_1250 = BgL_lz00_292
; }  else 
{ /* ./Ieee/control.scm 107 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2622z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lz00_292, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4001))); 
exit( -1 );} } 
BgL_arg1059z00_297 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_1250); } 
BgL_arg1055z00_296 = 
BGl_loopz00zz__r4_control_features_6_9z00(BgL_fz00_654, BgL_arg1059z00_297); } 
return 
MAKE_PAIR(BgL_arg1054z00_295, BgL_arg1055z00_296);} } } 
}



/* _map */
obj_t BGl__mapz00zz__r4_control_features_6_9z00(obj_t BgL_envz00_606, obj_t BgL_fz00_607, obj_t BgL_lz00_608)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 96 */
{ /* ./Ieee/control.scm 98 */
obj_t BgL_auxz00_1261;
if(
PROCEDUREP(BgL_fz00_607))
{ /* ./Ieee/control.scm 98 */
BgL_auxz00_1261 = BgL_fz00_607
; }  else 
{ /* ./Ieee/control.scm 98 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2627z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_fz00_607, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)3799))); 
exit( -1 );} 
return 
BGl_mapz00zz__r4_control_features_6_9z00(BgL_auxz00_1261, BgL_lz00_608);} } 
}



/* for-each-2 */
BGL_EXPORTED_DEF obj_t BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(obj_t BgL_fz00_9, obj_t BgL_lz00_10)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 112 */
{ /* ./Ieee/control.scm 113 */
obj_t BgL_symbol1746z00_577;
BgL_symbol1746z00_577 = BGl_symbol2628z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 113 */

PUSH_TRACE(BgL_symbol1746z00_577); BUNSPEC; 
{ /* ./Ieee/control.scm 113 */
obj_t BgL_aux1745z00_578;
{ 
obj_t BgL_lz00_515;
BgL_lz00_515 = BgL_lz00_10; 
BgL_loopz00_514:
if(
NULLP(BgL_lz00_515))
{ /* ./Ieee/control.scm 113 */
BgL_aux1745z00_578 = BUNSPEC; }  else 
{ /* ./Ieee/control.scm 113 */
{ /* ./Ieee/control.scm 113 */
obj_t BgL_arg1075z00_517;
{ /* ./Ieee/control.scm 113 */
obj_t BgL_pairz00_520;
if(
PAIRP(BgL_lz00_515))
{ /* ./Ieee/control.scm 113 */
BgL_pairz00_520 = BgL_lz00_515; }  else 
{ /* ./Ieee/control.scm 113 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2628z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_515, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4262))); 
exit( -1 );} 
BgL_arg1075z00_517 = 
CAR(BgL_pairz00_520); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_9, ((long)1)))
{ /* ./Ieee/control.scm 113 */
PROCEDURE_ENTRY(BgL_fz00_9)(BgL_fz00_9, BgL_arg1075z00_517, BEOA); }  else 
{ /* ./Ieee/control.scm 113 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2629z00zz__r4_control_features_6_9z00, BGl_list2630z00zz__r4_control_features_6_9z00, BgL_fz00_9, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4262))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
{ /* ./Ieee/control.scm 113 */
obj_t BgL_arg1079z00_518;
{ /* ./Ieee/control.scm 113 */
obj_t BgL_pairz00_521;
if(
PAIRP(BgL_lz00_515))
{ /* ./Ieee/control.scm 113 */
BgL_pairz00_521 = BgL_lz00_515; }  else 
{ /* ./Ieee/control.scm 113 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2628z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_515, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4262))); 
exit( -1 );} 
BgL_arg1079z00_518 = 
CDR(BgL_pairz00_521); } 
{ 
obj_t BgL_lz00_1290;
BgL_lz00_1290 = BgL_arg1079z00_518; 
BgL_lz00_515 = BgL_lz00_1290; 
goto BgL_loopz00_514;} } } } 
POP_TRACE(); 
return BgL_aux1745z00_578;} } } } 
}



/* _for-each-2 */
obj_t BGl__forzd2eachzd22z00zz__r4_control_features_6_9z00(obj_t BgL_envz00_613, obj_t BgL_fz00_614, obj_t BgL_lz00_615)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 112 */
{ /* ./Ieee/control.scm 113 */
obj_t BgL_auxz00_1298;obj_t BgL_auxz00_1292;
{ /* ./Ieee/control.scm 113 */
bool_t BgL_testz00_1299;
if(
PAIRP(BgL_lz00_615))
{ /* ./Ieee/control.scm 113 */
BgL_testz00_1299 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 113 */
BgL_testz00_1299 = 
NULLP(BgL_lz00_615)
; } 
if(BgL_testz00_1299)
{ /* ./Ieee/control.scm 113 */
BgL_auxz00_1298 = BgL_lz00_615
; }  else 
{ /* ./Ieee/control.scm 113 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2632z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lz00_615, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4262))); 
exit( -1 );} } 
if(
PROCEDUREP(BgL_fz00_614))
{ /* ./Ieee/control.scm 113 */
BgL_auxz00_1292 = BgL_fz00_614
; }  else 
{ /* ./Ieee/control.scm 113 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2632z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_fz00_614, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4262))); 
exit( -1 );} 
return 
BGl_forzd2eachzd22z00zz__r4_control_features_6_9z00(BgL_auxz00_1292, BgL_auxz00_1298);} } 
}



/* for-each */
BGL_EXPORTED_DEF obj_t BGl_forzd2eachzd2zz__r4_control_features_6_9z00(obj_t BgL_fz00_11, obj_t BgL_lz00_12)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 123 */
{ /* ./Ieee/control.scm 125 */
obj_t BgL_symbol1750z00_579;
BgL_symbol1750z00_579 = BGl_symbol2633z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 125 */

PUSH_TRACE(BgL_symbol1750z00_579); BUNSPEC; 
{ /* ./Ieee/control.scm 125 */
obj_t BgL_aux1749z00_580;
if(
NULLP(BgL_lz00_12))
{ /* ./Ieee/control.scm 125 */
BgL_aux1749z00_580 = BUNSPEC; }  else 
{ /* ./Ieee/control.scm 127 */
bool_t BgL_test1084z00_306;
{ /* ./Ieee/control.scm 127 */
obj_t BgL_arg1101z00_313;
{ /* ./Ieee/control.scm 127 */
obj_t BgL_pairz00_523;
if(
PAIRP(BgL_lz00_12))
{ /* ./Ieee/control.scm 127 */
BgL_pairz00_523 = BgL_lz00_12; }  else 
{ /* ./Ieee/control.scm 127 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_12, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4683))); 
exit( -1 );} 
BgL_arg1101z00_313 = 
CDR(BgL_pairz00_523); } 
BgL_test1084z00_306 = 
NULLP(BgL_arg1101z00_313); } 
if(BgL_test1084z00_306)
{ /* ./Ieee/control.scm 127 */
{ /* ./Ieee/control.scm 128 */
obj_t BgL_arg1086z00_307;
{ /* ./Ieee/control.scm 128 */
obj_t BgL_pairz00_525;
if(
PAIRP(BgL_lz00_12))
{ /* ./Ieee/control.scm 128 */
BgL_pairz00_525 = BgL_lz00_12; }  else 
{ /* ./Ieee/control.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_12, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4713))); 
exit( -1 );} 
BgL_arg1086z00_307 = 
CAR(BgL_pairz00_525); } 
{ /* ./Ieee/control.scm 128 */
obj_t BgL_lz00_527;
{ /* ./Ieee/control.scm 128 */
bool_t BgL_testz00_1324;
if(
PAIRP(BgL_arg1086z00_307))
{ /* ./Ieee/control.scm 128 */
BgL_testz00_1324 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 128 */
BgL_testz00_1324 = 
NULLP(BgL_arg1086z00_307)
; } 
if(BgL_testz00_1324)
{ /* ./Ieee/control.scm 128 */
BgL_lz00_527 = BgL_arg1086z00_307; }  else 
{ /* ./Ieee/control.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_arg1086z00_307, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4714))); 
exit( -1 );} } 
{ 
obj_t BgL_lz00_529;
BgL_lz00_529 = BgL_lz00_527; 
BgL_loopz00_528:
if(
NULLP(BgL_lz00_529))
{ /* ./Ieee/control.scm 128 */
BgL_aux1749z00_580 = BUNSPEC; }  else 
{ /* ./Ieee/control.scm 128 */
{ /* ./Ieee/control.scm 128 */
obj_t BgL_arg1075z00_531;
{ /* ./Ieee/control.scm 128 */
obj_t BgL_pairz00_534;
if(
PAIRP(BgL_lz00_529))
{ /* ./Ieee/control.scm 128 */
BgL_pairz00_534 = BgL_lz00_529; }  else 
{ /* ./Ieee/control.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_529, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4694))); 
exit( -1 );} 
BgL_arg1075z00_531 = 
CAR(BgL_pairz00_534); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_11, ((long)1)))
{ /* ./Ieee/control.scm 128 */
PROCEDURE_ENTRY(BgL_fz00_11)(BgL_fz00_11, BgL_arg1075z00_531, BEOA); }  else 
{ /* ./Ieee/control.scm 128 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2634z00zz__r4_control_features_6_9z00, BGl_list2630z00zz__r4_control_features_6_9z00, BgL_fz00_11, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4694))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
{ /* ./Ieee/control.scm 128 */
obj_t BgL_arg1079z00_532;
{ /* ./Ieee/control.scm 128 */
obj_t BgL_pairz00_535;
if(
PAIRP(BgL_lz00_529))
{ /* ./Ieee/control.scm 128 */
BgL_pairz00_535 = BgL_lz00_529; }  else 
{ /* ./Ieee/control.scm 128 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_529, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4694))); 
exit( -1 );} 
BgL_arg1079z00_532 = 
CDR(BgL_pairz00_535); } 
{ 
obj_t BgL_lz00_1352;
BgL_lz00_1352 = BgL_arg1079z00_532; 
BgL_lz00_529 = BgL_lz00_1352; 
goto BgL_loopz00_528;} } } } } } }  else 
{ /* ./Ieee/control.scm 127 */
{ 
obj_t BgL_lz00_308;
BgL_lz00_308 = BgL_lz00_12; 
BgL_loopz00_309:
{ /* ./Ieee/control.scm 131 */
bool_t BgL_test1090z00_310;
{ /* ./Ieee/control.scm 131 */
obj_t BgL_arg1097z00_312;
{ /* ./Ieee/control.scm 131 */
obj_t BgL_pairz00_536;
if(
PAIRP(BgL_lz00_308))
{ /* ./Ieee/control.scm 131 */
BgL_pairz00_536 = BgL_lz00_308; }  else 
{ /* ./Ieee/control.scm 131 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lz00_308, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4774))); 
exit( -1 );} 
BgL_arg1097z00_312 = 
CAR(BgL_pairz00_536); } 
BgL_test1090z00_310 = 
NULLP(BgL_arg1097z00_312); } 
if(BgL_test1090z00_310)
{ /* ./Ieee/control.scm 131 */
BgL_aux1749z00_580 = BUNSPEC; }  else 
{ /* ./Ieee/control.scm 131 */
{ /* ./Ieee/control.scm 134 */
obj_t BgL_valz00_731;
{ /* ./Ieee/control.scm 134 */
obj_t BgL_auxz00_1361;
{ /* ./Ieee/control.scm 134 */
bool_t BgL_testz00_1362;
if(
PAIRP(BgL_lz00_308))
{ /* ./Ieee/control.scm 134 */
BgL_testz00_1362 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 134 */
BgL_testz00_1362 = 
NULLP(BgL_lz00_308)
; } 
if(BgL_testz00_1362)
{ /* ./Ieee/control.scm 134 */
BgL_auxz00_1361 = BgL_lz00_308
; }  else 
{ /* ./Ieee/control.scm 134 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lz00_308, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4835))); 
exit( -1 );} } 
BgL_valz00_731 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_1361); } 
{ /* ./Ieee/control.scm 134 */
int BgL_len2141z00_732;
{ /* ./Ieee/control.scm 134 */
long BgL_auxz00_1370;
BgL_auxz00_1370 = 
bgl_list_length(BgL_valz00_731); 
BgL_len2141z00_732 = 
(int)(BgL_auxz00_1370); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_11, BgL_len2141z00_732))
{ /* ./Ieee/control.scm 134 */
apply(BgL_fz00_11, BgL_valz00_731); }  else 
{ /* ./Ieee/control.scm 134 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2603z00zz__r4_control_features_6_9z00, BGl_list2623z00zz__r4_control_features_6_9z00, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4815))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } } 
{ /* ./Ieee/control.scm 135 */
obj_t BgL_arg1093z00_311;
{ /* ./Ieee/control.scm 135 */
obj_t BgL_auxz00_1380;
{ /* ./Ieee/control.scm 135 */
bool_t BgL_testz00_1381;
if(
PAIRP(BgL_lz00_308))
{ /* ./Ieee/control.scm 135 */
BgL_testz00_1381 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 135 */
BgL_testz00_1381 = 
NULLP(BgL_lz00_308)
; } 
if(BgL_testz00_1381)
{ /* ./Ieee/control.scm 135 */
BgL_auxz00_1380 = BgL_lz00_308
; }  else 
{ /* ./Ieee/control.scm 135 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2633z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lz00_308, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4859))); 
exit( -1 );} } 
BgL_arg1093z00_311 = 
BGl_mapzd22zd2zz__r4_control_features_6_9z00(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_1380); } 
{ 
obj_t BgL_lz00_1389;
BgL_lz00_1389 = BgL_arg1093z00_311; 
BgL_lz00_308 = BgL_lz00_1389; 
goto BgL_loopz00_309;} } } } } } } 
POP_TRACE(); 
return BgL_aux1749z00_580;} } } } 
}



/* _for-each */
obj_t BGl__forzd2eachzd2zz__r4_control_features_6_9z00(obj_t BgL_envz00_616, obj_t BgL_fz00_617, obj_t BgL_lz00_618)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 123 */
{ /* ./Ieee/control.scm 125 */
obj_t BgL_auxz00_1391;
if(
PROCEDUREP(BgL_fz00_617))
{ /* ./Ieee/control.scm 125 */
BgL_auxz00_1391 = BgL_fz00_617
; }  else 
{ /* ./Ieee/control.scm 125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2635z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_fz00_617, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)4633))); 
exit( -1 );} 
return 
BGl_forzd2eachzd2zz__r4_control_features_6_9z00(BgL_auxz00_1391, BgL_lz00_618);} } 
}



/* filter */
BGL_EXPORTED_DEF obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t BgL_predz00_13, obj_t BgL_lisz00_14)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 140 */
{ /* ./Ieee/control.scm 141 */
obj_t BgL_symbol1754z00_581;
BgL_symbol1754z00_581 = BGl_symbol2636z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 141 */

PUSH_TRACE(BgL_symbol1754z00_581); BUNSPEC; 
{ /* ./Ieee/control.scm 141 */
obj_t BgL_aux1753z00_582;
BgL_aux1753z00_582 = 
BGl_recurz00zz__r4_control_features_6_9z00(BgL_predz00_13, BgL_lisz00_14); 
POP_TRACE(); 
return BgL_aux1753z00_582;} } } } 
}



/* recur */
obj_t BGl_recurz00zz__r4_control_features_6_9z00(obj_t BgL_predz00_653, obj_t BgL_lisz00_314)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 141 */
BGl_recurz00zz__r4_control_features_6_9z00:
if(
NULLP(BgL_lisz00_314))
{ /* ./Ieee/control.scm 142 */
return BgL_lisz00_314;}  else 
{ /* ./Ieee/control.scm 144 */
obj_t BgL_headz00_317;obj_t BgL_tailz00_318;
{ /* ./Ieee/control.scm 144 */
obj_t BgL_pairz00_539;
if(
PAIRP(BgL_lisz00_314))
{ /* ./Ieee/control.scm 144 */
BgL_pairz00_539 = BgL_lisz00_314; }  else 
{ /* ./Ieee/control.scm 144 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2637z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_314, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5200))); 
exit( -1 );} 
BgL_headz00_317 = 
CAR(BgL_pairz00_539); } 
{ /* ./Ieee/control.scm 145 */
obj_t BgL_pairz00_540;
if(
PAIRP(BgL_lisz00_314))
{ /* ./Ieee/control.scm 145 */
BgL_pairz00_540 = BgL_lisz00_314; }  else 
{ /* ./Ieee/control.scm 145 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2637z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_314, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5219))); 
exit( -1 );} 
BgL_tailz00_318 = 
CDR(BgL_pairz00_540); } 
{ /* ./Ieee/control.scm 146 */
bool_t BgL_test1107z00_319;
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_653, ((long)1)))
{ /* ./Ieee/control.scm 146 */
obj_t BgL_auxz00_1417;
BgL_auxz00_1417 = 
PROCEDURE_ENTRY(BgL_predz00_653)(BgL_predz00_653, BgL_headz00_317, BEOA); 
BgL_test1107z00_319 = 
CBOOL(BgL_auxz00_1417); }  else 
{ /* ./Ieee/control.scm 146 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2638z00zz__r4_control_features_6_9z00, BGl_list2639z00zz__r4_control_features_6_9z00, BgL_predz00_653, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5234))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} 
if(BgL_test1107z00_319)
{ /* ./Ieee/control.scm 147 */
obj_t BgL_newzd2tailzd2_320;
BgL_newzd2tailzd2_320 = 
BGl_recurz00zz__r4_control_features_6_9z00(BgL_predz00_653, BgL_tailz00_318); 
if(
(BgL_tailz00_318==BgL_newzd2tailzd2_320))
{ /* ./Ieee/control.scm 148 */
return BgL_lisz00_314;}  else 
{ /* ./Ieee/control.scm 148 */
return 
MAKE_PAIR(BgL_headz00_317, BgL_newzd2tailzd2_320);} }  else 
{ 
obj_t BgL_lisz00_1429;
BgL_lisz00_1429 = BgL_tailz00_318; 
BgL_lisz00_314 = BgL_lisz00_1429; 
goto BGl_recurz00zz__r4_control_features_6_9z00;} } } } 
}



/* _filter1795 */
obj_t BGl__filter1795z00zz__r4_control_features_6_9z00(obj_t BgL_envz00_619, obj_t BgL_predz00_620, obj_t BgL_lisz00_621)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 140 */
{ /* ./Ieee/control.scm 141 */
obj_t BgL_auxz00_1436;obj_t BgL_auxz00_1430;
{ /* ./Ieee/control.scm 141 */
bool_t BgL_testz00_1437;
if(
PAIRP(BgL_lisz00_621))
{ /* ./Ieee/control.scm 141 */
BgL_testz00_1437 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 141 */
BgL_testz00_1437 = 
NULLP(BgL_lisz00_621)
; } 
if(BgL_testz00_1437)
{ /* ./Ieee/control.scm 141 */
BgL_auxz00_1436 = BgL_lisz00_621
; }  else 
{ /* ./Ieee/control.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2642z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lisz00_621, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5121))); 
exit( -1 );} } 
if(
PROCEDUREP(BgL_predz00_620))
{ /* ./Ieee/control.scm 141 */
BgL_auxz00_1430 = BgL_predz00_620
; }  else 
{ /* ./Ieee/control.scm 141 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2642z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_predz00_620, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5121))); 
exit( -1 );} 
return 
BGl_filterz00zz__r4_control_features_6_9z00(BgL_auxz00_1430, BgL_auxz00_1436);} } 
}



/* filter! */
BGL_EXPORTED_DEF obj_t BGl_filterz12z12zz__r4_control_features_6_9z00(obj_t BgL_predz00_15, obj_t BgL_lisz00_16)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 156 */
{ /* ./Ieee/control.scm 157 */
obj_t BgL_symbol1758z00_583;
BgL_symbol1758z00_583 = BGl_symbol2643z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 157 */

PUSH_TRACE(BgL_symbol1758z00_583); BUNSPEC; 
{ /* ./Ieee/control.scm 157 */
obj_t BgL_aux1757z00_584;
{ 
obj_t BgL_ansz00_322;
BgL_ansz00_322 = BgL_lisz00_16; 
BgL_lpz00_323:
if(
NULLP(BgL_ansz00_322))
{ /* ./Ieee/control.scm 158 */
BgL_aux1757z00_584 = BgL_ansz00_322; }  else 
{ /* ./Ieee/control.scm 160 */
bool_t BgL_test1119z00_325;
{ /* ./Ieee/control.scm 160 */
obj_t BgL_arg1164z00_350;
{ /* ./Ieee/control.scm 160 */
obj_t BgL_pairz00_542;
if(
PAIRP(BgL_ansz00_322))
{ /* ./Ieee/control.scm 160 */
BgL_pairz00_542 = BgL_ansz00_322; }  else 
{ /* ./Ieee/control.scm 160 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_ansz00_322, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5697))); 
exit( -1 );} 
BgL_arg1164z00_350 = 
CAR(BgL_pairz00_542); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_15, ((long)1)))
{ /* ./Ieee/control.scm 160 */
obj_t BgL_auxz00_1456;
BgL_auxz00_1456 = 
PROCEDURE_ENTRY(BgL_predz00_15)(BgL_predz00_15, BgL_arg1164z00_350, BEOA); 
BgL_test1119z00_325 = 
CBOOL(BgL_auxz00_1456); }  else 
{ /* ./Ieee/control.scm 160 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2644z00zz__r4_control_features_6_9z00, BGl_list2645z00zz__r4_control_features_6_9z00, BgL_predz00_15, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5684))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
if(BgL_test1119z00_325)
{ /* ./Ieee/control.scm 160 */
{ 
obj_t BgL_prevz00_337;obj_t BgL_lisz00_338;obj_t BgL_prevz00_329;obj_t BgL_lisz00_330;
{ /* ./Ieee/control.scm 177 */
obj_t BgL_arg1121z00_328;
{ /* ./Ieee/control.scm 177 */
obj_t BgL_pairz00_543;
if(
PAIRP(BgL_ansz00_322))
{ /* ./Ieee/control.scm 177 */
BgL_pairz00_543 = BgL_ansz00_322; }  else 
{ /* ./Ieee/control.scm 177 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_ansz00_322, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6175))); 
exit( -1 );} 
BgL_arg1121z00_328 = 
CDR(BgL_pairz00_543); } 
BgL_prevz00_329 = BgL_ansz00_322; 
BgL_lisz00_330 = BgL_arg1121z00_328; 
BgL_zc3anonymousza31124za3ieeezf2controlze2scmza3163ze3z93_331:
{ /* ./Ieee/control.scm 164 */
bool_t BgL_test1125z00_332;
BgL_test1125z00_332 = 
PAIRP(BgL_lisz00_330); 
if(BgL_test1125z00_332)
{ /* ./Ieee/control.scm 165 */
bool_t BgL_test1126z00_333;
{ /* ./Ieee/control.scm 165 */
obj_t BgL_arg1136z00_336;
{ /* ./Ieee/control.scm 165 */
obj_t BgL_pairz00_545;
if(BgL_test1125z00_332)
{ /* ./Ieee/control.scm 165 */
BgL_pairz00_545 = BgL_lisz00_330; }  else 
{ /* ./Ieee/control.scm 165 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_330, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5827))); 
exit( -1 );} 
BgL_arg1136z00_336 = 
CAR(BgL_pairz00_545); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_15, ((long)1)))
{ /* ./Ieee/control.scm 165 */
obj_t BgL_auxz00_1479;
BgL_auxz00_1479 = 
PROCEDURE_ENTRY(BgL_predz00_15)(BgL_predz00_15, BgL_arg1136z00_336, BEOA); 
BgL_test1126z00_333 = 
CBOOL(BgL_auxz00_1479); }  else 
{ /* ./Ieee/control.scm 165 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2644z00zz__r4_control_features_6_9z00, BGl_list2647z00zz__r4_control_features_6_9z00, BgL_predz00_15, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5814))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
if(BgL_test1126z00_333)
{ /* ./Ieee/control.scm 166 */
obj_t BgL_arg1128z00_334;
{ /* ./Ieee/control.scm 166 */
obj_t BgL_pairz00_546;
if(
PAIRP(BgL_lisz00_330))
{ /* ./Ieee/control.scm 166 */
BgL_pairz00_546 = BgL_lisz00_330; }  else 
{ /* ./Ieee/control.scm 166 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_330, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5858))); 
exit( -1 );} 
BgL_arg1128z00_334 = 
CDR(BgL_pairz00_546); } 
{ 
obj_t BgL_lisz00_1494;obj_t BgL_prevz00_1493;
BgL_prevz00_1493 = BgL_lisz00_330; 
BgL_lisz00_1494 = BgL_arg1128z00_334; 
BgL_lisz00_330 = BgL_lisz00_1494; 
BgL_prevz00_329 = BgL_prevz00_1493; 
goto BgL_zc3anonymousza31124za3ieeezf2controlze2scmza3163ze3z93_331;} }  else 
{ /* ./Ieee/control.scm 167 */
obj_t BgL_arg1132z00_335;
{ /* ./Ieee/control.scm 167 */
obj_t BgL_pairz00_547;
if(
PAIRP(BgL_lisz00_330))
{ /* ./Ieee/control.scm 167 */
BgL_pairz00_547 = BgL_lisz00_330; }  else 
{ /* ./Ieee/control.scm 167 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_330, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5891))); 
exit( -1 );} 
BgL_arg1132z00_335 = 
CDR(BgL_pairz00_547); } 
BgL_prevz00_337 = BgL_prevz00_329; 
BgL_lisz00_338 = BgL_arg1132z00_335; 
{ 
obj_t BgL_lisz00_340;
BgL_lisz00_340 = BgL_lisz00_338; 
BgL_lpz00_341:
{ /* ./Ieee/control.scm 170 */
bool_t BgL_test1142z00_342;
BgL_test1142z00_342 = 
PAIRP(BgL_lisz00_340); 
if(BgL_test1142z00_342)
{ /* ./Ieee/control.scm 171 */
bool_t BgL_test1143z00_343;
{ /* ./Ieee/control.scm 171 */
obj_t BgL_arg1154z00_346;
{ /* ./Ieee/control.scm 171 */
obj_t BgL_pairz00_549;
if(BgL_test1142z00_342)
{ /* ./Ieee/control.scm 171 */
BgL_pairz00_549 = BgL_lisz00_340; }  else 
{ /* ./Ieee/control.scm 171 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_340, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6013))); 
exit( -1 );} 
BgL_arg1154z00_346 = 
CAR(BgL_pairz00_549); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_15, ((long)1)))
{ /* ./Ieee/control.scm 171 */
obj_t BgL_auxz00_1510;
BgL_auxz00_1510 = 
PROCEDURE_ENTRY(BgL_predz00_15)(BgL_predz00_15, BgL_arg1154z00_346, BEOA); 
BgL_test1143z00_343 = 
CBOOL(BgL_auxz00_1510); }  else 
{ /* ./Ieee/control.scm 171 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2644z00zz__r4_control_features_6_9z00, BGl_list2649z00zz__r4_control_features_6_9z00, BgL_predz00_15, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6000))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
if(BgL_test1143z00_343)
{ /* ./Ieee/control.scm 171 */
{ /* ./Ieee/control.scm 173 */
obj_t BgL_pairz00_550;
if(
PAIRP(BgL_prevz00_337))
{ /* ./Ieee/control.scm 173 */
BgL_pairz00_550 = BgL_prevz00_337; }  else 
{ /* ./Ieee/control.scm 173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_prevz00_337, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6055))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_550, BgL_lisz00_340); } 
{ /* ./Ieee/control.scm 174 */
obj_t BgL_arg1146z00_344;
{ /* ./Ieee/control.scm 174 */
obj_t BgL_pairz00_552;
if(
PAIRP(BgL_lisz00_340))
{ /* ./Ieee/control.scm 174 */
BgL_pairz00_552 = BgL_lisz00_340; }  else 
{ /* ./Ieee/control.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_340, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6089))); 
exit( -1 );} 
BgL_arg1146z00_344 = 
CDR(BgL_pairz00_552); } 
{ 
obj_t BgL_lisz00_1531;obj_t BgL_prevz00_1530;
BgL_prevz00_1530 = BgL_lisz00_340; 
BgL_lisz00_1531 = BgL_arg1146z00_344; 
BgL_lisz00_330 = BgL_lisz00_1531; 
BgL_prevz00_329 = BgL_prevz00_1530; 
goto BgL_zc3anonymousza31124za3ieeezf2controlze2scmza3163ze3z93_331;} } }  else 
{ /* ./Ieee/control.scm 175 */
obj_t BgL_arg1150z00_345;
{ /* ./Ieee/control.scm 175 */
obj_t BgL_pairz00_553;
if(
PAIRP(BgL_lisz00_340))
{ /* ./Ieee/control.scm 175 */
BgL_pairz00_553 = BgL_lisz00_340; }  else 
{ /* ./Ieee/control.scm 175 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_lisz00_340, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6116))); 
exit( -1 );} 
BgL_arg1150z00_345 = 
CDR(BgL_pairz00_553); } 
{ 
obj_t BgL_lisz00_1538;
BgL_lisz00_1538 = BgL_arg1150z00_345; 
BgL_lisz00_340 = BgL_lisz00_1538; 
goto BgL_lpz00_341;} } }  else 
{ /* ./Ieee/control.scm 176 */
obj_t BgL_pairz00_554;
if(
PAIRP(BgL_prevz00_337))
{ /* ./Ieee/control.scm 176 */
BgL_pairz00_554 = BgL_prevz00_337; }  else 
{ /* ./Ieee/control.scm 176 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_prevz00_337, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6141))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_554, BgL_lisz00_340); } } } } }  else 
{ /* ./Ieee/control.scm 164 */BFALSE; } } } 
BgL_aux1757z00_584 = BgL_ansz00_322; } }  else 
{ /* ./Ieee/control.scm 160 */
{ /* ./Ieee/control.scm 161 */
obj_t BgL_arg1160z00_349;
{ /* ./Ieee/control.scm 161 */
obj_t BgL_pairz00_556;
if(
PAIRP(BgL_ansz00_322))
{ /* ./Ieee/control.scm 161 */
BgL_pairz00_556 = BgL_ansz00_322; }  else 
{ /* ./Ieee/control.scm 161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2643z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_ansz00_322, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5719))); 
exit( -1 );} 
BgL_arg1160z00_349 = 
CDR(BgL_pairz00_556); } 
{ 
obj_t BgL_ansz00_1551;
BgL_ansz00_1551 = BgL_arg1160z00_349; 
BgL_ansz00_322 = BgL_ansz00_1551; 
goto BgL_lpz00_323;} } } } } 
POP_TRACE(); 
return BgL_aux1757z00_584;} } } } 
}



/* _filter!1797 */
obj_t BGl__filterz121797z12zz__r4_control_features_6_9z00(obj_t BgL_envz00_622, obj_t BgL_predz00_623, obj_t BgL_lisz00_624)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 156 */
{ /* ./Ieee/control.scm 157 */
obj_t BgL_auxz00_1559;obj_t BgL_auxz00_1553;
{ /* ./Ieee/control.scm 157 */
bool_t BgL_testz00_1560;
if(
PAIRP(BgL_lisz00_624))
{ /* ./Ieee/control.scm 157 */
BgL_testz00_1560 = ((bool_t)1)
; }  else 
{ /* ./Ieee/control.scm 157 */
BgL_testz00_1560 = 
NULLP(BgL_lisz00_624)
; } 
if(BgL_testz00_1560)
{ /* ./Ieee/control.scm 157 */
BgL_auxz00_1559 = BgL_lisz00_624
; }  else 
{ /* ./Ieee/control.scm 157 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2651z00zz__r4_control_features_6_9z00, BGl_string2614z00zz__r4_control_features_6_9z00, BgL_lisz00_624, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5617))); 
exit( -1 );} } 
if(
PROCEDUREP(BgL_predz00_623))
{ /* ./Ieee/control.scm 157 */
BgL_auxz00_1553 = BgL_predz00_623
; }  else 
{ /* ./Ieee/control.scm 157 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2651z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_predz00_623, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)5617))); 
exit( -1 );} 
return 
BGl_filterz12z12zz__r4_control_features_6_9z00(BgL_auxz00_1553, BgL_auxz00_1559);} } 
}



/* force */
BGL_EXPORTED_DEF obj_t BGl_forcez00zz__r4_control_features_6_9z00(obj_t BgL_promisez00_17)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 183 */
{ /* ./Ieee/control.scm 184 */
obj_t BgL_symbol1762z00_904;
BgL_symbol1762z00_904 = BGl_symbol2652z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 184 */

PUSH_TRACE(BgL_symbol1762z00_904); BUNSPEC; 
{ /* ./Ieee/control.scm 184 */
obj_t BgL_aux1761z00_905;
{ /* ./Ieee/control.scm 184 */
obj_t BgL_funz00_906;
if(
PROCEDUREP(BgL_promisez00_17))
{ /* ./Ieee/control.scm 184 */
BgL_funz00_906 = BgL_promisez00_17; }  else 
{ /* ./Ieee/control.scm 184 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2652z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_promisez00_17, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6447))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_906, ((long)0)))
{ /* ./Ieee/control.scm 184 */
BgL_aux1761z00_905 = 
PROCEDURE_ENTRY(BgL_funz00_906)(BgL_promisez00_17, BEOA); }  else 
{ /* ./Ieee/control.scm 184 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2653z00zz__r4_control_features_6_9z00, BGl_list2654z00zz__r4_control_features_6_9z00, BgL_funz00_906, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6447))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
POP_TRACE(); 
return BgL_aux1761z00_905;} } } } 
}



/* _force */
obj_t BGl__forcez00zz__r4_control_features_6_9z00(obj_t BgL_envz00_625, obj_t BgL_promisez00_626)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 183 */
{ /* ./Ieee/control.scm 184 */
obj_t BgL_symbol1762z00_908;
BgL_symbol1762z00_908 = BGl_symbol2652z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 184 */

PUSH_TRACE(BgL_symbol1762z00_908); BUNSPEC; 
{ /* ./Ieee/control.scm 184 */
obj_t BgL_aux1761z00_909;
{ /* ./Ieee/control.scm 184 */
obj_t BgL_funz00_910;
if(
PROCEDUREP(BgL_promisez00_626))
{ /* ./Ieee/control.scm 184 */
BgL_funz00_910 = BgL_promisez00_626; }  else 
{ /* ./Ieee/control.scm 184 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2652z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_promisez00_626, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6447))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_910, ((long)0)))
{ /* ./Ieee/control.scm 184 */
BgL_aux1761z00_909 = 
PROCEDURE_ENTRY(BgL_funz00_910)(BgL_promisez00_626, BEOA); }  else 
{ /* ./Ieee/control.scm 184 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2653z00zz__r4_control_features_6_9z00, BGl_list2654z00zz__r4_control_features_6_9z00, BgL_funz00_910, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6447))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
POP_TRACE(); 
return BgL_aux1761z00_909;} } } } 
}



/* make-promise */
BGL_EXPORTED_DEF obj_t BGl_makezd2promisezd2zz__r4_control_features_6_9z00(obj_t BgL_procz00_18)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 189 */
{ /* ./Ieee/control.scm 190 */
obj_t BgL_symbol1766z00_587;
BgL_symbol1766z00_587 = BGl_symbol2656z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 190 */

PUSH_TRACE(BgL_symbol1766z00_587); BUNSPEC; 
{ /* ./Ieee/control.scm 190 */
obj_t BgL_aux1765z00_588;
{ /* ./Ieee/control.scm 190 */
obj_t BgL_resultzd2readyzf3z21_351;obj_t BgL_resultz00_352;
BgL_resultzd2readyzf3z21_351 = 
MAKE_CELL(BFALSE); 
BgL_resultz00_352 = 
MAKE_CELL(BFALSE); 
{ /* ./Ieee/control.scm 192 */
obj_t BgL_zc3anonymousza31169za3ieeezf2controlze2scmza3192ze3z93_627;
{ 
int BgL_auxz00_1599;int BgL_auxz00_1597;
BgL_auxz00_1599 = 
(int)(((long)3)); 
BgL_auxz00_1597 = 
(int)(((long)0)); 
BgL_zc3anonymousza31169za3ieeezf2controlze2scmza3192ze3z93_627 = 
make_fx_procedure(BGl_zc3anonymousza31169za3Ieeezf2controlze2scmza3192ze3z93zz__r4_control_features_6_9z00, BgL_auxz00_1597, BgL_auxz00_1599); } 
{ /* ./Ieee/control.scm 192 */
int BgL_auxz00_1602;
BgL_auxz00_1602 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31169za3ieeezf2controlze2scmza3192ze3z93_627, BgL_auxz00_1602, BgL_procz00_18); } 
{ /* ./Ieee/control.scm 192 */
int BgL_auxz00_1605;
BgL_auxz00_1605 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31169za3ieeezf2controlze2scmza3192ze3z93_627, BgL_auxz00_1605, BgL_resultzd2readyzf3z21_351); } 
{ /* ./Ieee/control.scm 192 */
int BgL_auxz00_1608;
BgL_auxz00_1608 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31169za3ieeezf2controlze2scmza3192ze3z93_627, BgL_auxz00_1608, BgL_resultz00_352); } 
BgL_aux1765z00_588 = BgL_zc3anonymousza31169za3ieeezf2controlze2scmza3192ze3z93_627; } } 
POP_TRACE(); 
return BgL_aux1765z00_588;} } } } 
}



/* _make-promise */
obj_t BGl__makezd2promisezd2zz__r4_control_features_6_9z00(obj_t BgL_envz00_628, obj_t BgL_procz00_629)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 189 */
{ /* ./Ieee/control.scm 190 */
obj_t BgL_auxz00_1612;
if(
PROCEDUREP(BgL_procz00_629))
{ /* ./Ieee/control.scm 190 */
BgL_auxz00_1612 = BgL_procz00_629
; }  else 
{ /* ./Ieee/control.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2657z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_procz00_629, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6712))); 
exit( -1 );} 
return 
BGl_makezd2promisezd2zz__r4_control_features_6_9z00(BgL_auxz00_1612);} } 
}



/* <anonymous:1169:Ieee/control.scm:192> */
obj_t BGl_zc3anonymousza31169za3Ieeezf2controlze2scmza3192ze3z93zz__r4_control_features_6_9z00(obj_t BgL_envz00_630)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 192 */
{ /* ./Ieee/control.scm 193 */
obj_t BgL_procz00_631;obj_t BgL_resultzd2readyzf3z21_632;obj_t BgL_resultz00_633;
{ /* ./Ieee/control.scm 193 */
int BgL_auxz00_1619;
BgL_auxz00_1619 = 
(int)(((long)0)); 
BgL_procz00_631 = 
PROCEDURE_REF(BgL_envz00_630, BgL_auxz00_1619); } 
{ /* ./Ieee/control.scm 193 */
int BgL_auxz00_1622;
BgL_auxz00_1622 = 
(int)(((long)1)); 
BgL_resultzd2readyzf3z21_632 = 
PROCEDURE_REF(BgL_envz00_630, BgL_auxz00_1622); } 
{ /* ./Ieee/control.scm 193 */
int BgL_auxz00_1625;
BgL_auxz00_1625 = 
(int)(((long)2)); 
BgL_resultz00_633 = 
PROCEDURE_REF(BgL_envz00_630, BgL_auxz00_1625); } 
{ 

{ /* ./Ieee/control.scm 193 */
bool_t BgL_testz00_1628;
{ /* ./Ieee/control.scm 193 */
obj_t BgL_auxz00_1629;
BgL_auxz00_1629 = 
CELL_REF(BgL_resultzd2readyzf3z21_632); 
BgL_testz00_1628 = 
CBOOL(BgL_auxz00_1629); } 
if(BgL_testz00_1628)
{ /* ./Ieee/control.scm 193 */
return 
CELL_REF(BgL_resultz00_633);}  else 
{ /* ./Ieee/control.scm 195 */
obj_t BgL_xz00_354;
{ /* ./Ieee/control.scm 195 */
obj_t BgL_funz00_793;
if(
PROCEDUREP(BgL_procz00_631))
{ /* ./Ieee/control.scm 195 */
BgL_funz00_793 = BgL_procz00_631; }  else 
{ /* ./Ieee/control.scm 195 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2658z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_procz00_631, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6824))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_793, ((long)0)))
{ /* ./Ieee/control.scm 195 */
BgL_xz00_354 = 
PROCEDURE_ENTRY(BgL_funz00_793)(BgL_procz00_631, BEOA); }  else 
{ /* ./Ieee/control.scm 195 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2659z00zz__r4_control_features_6_9z00, BGl_list2660z00zz__r4_control_features_6_9z00, BgL_funz00_793, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)6824))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } 
{ /* ./Ieee/control.scm 196 */
bool_t BgL_testz00_1643;
{ /* ./Ieee/control.scm 196 */
obj_t BgL_auxz00_1644;
BgL_auxz00_1644 = 
CELL_REF(BgL_resultzd2readyzf3z21_632); 
BgL_testz00_1643 = 
CBOOL(BgL_auxz00_1644); } 
if(BgL_testz00_1643)
{ /* ./Ieee/control.scm 196 */
return 
CELL_REF(BgL_resultz00_633);}  else 
{ /* ./Ieee/control.scm 196 */
CELL_SET(BgL_resultzd2readyzf3z21_632, BTRUE); 
CELL_SET(BgL_resultz00_633, BgL_xz00_354); 
return 
CELL_REF(BgL_resultz00_633);} } } } } } } 
}



/* call/cc */
BGL_EXPORTED_DEF obj_t BGl_callzf2cczf2zz__r4_control_features_6_9z00(obj_t BgL_procz00_19)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 206 */
{ /* ./Ieee/control.scm 209 */
obj_t BgL_symbol1770z00_589;
BgL_symbol1770z00_589 = BGl_symbol2661z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 209 */

PUSH_TRACE(BgL_symbol1770z00_589); BUNSPEC; 
{ /* ./Ieee/control.scm 209 */
obj_t BgL_aux1769z00_590;
{ /* ./Ieee/control.scm 209 */
obj_t BgL_zc3anonymousza31174za3ieeezf2controlze2scmza3207ze3z93_637;
{ 
int BgL_auxz00_1649;int BgL_auxz00_1647;
BgL_auxz00_1649 = 
(int)(((long)1)); 
BgL_auxz00_1647 = 
(int)(((long)1)); 
BgL_zc3anonymousza31174za3ieeezf2controlze2scmza3207ze3z93_637 = 
make_fx_procedure(BGl_zc3anonymousza31174za3Ieeezf2controlze2scmza3207ze3z93zz__r4_control_features_6_9z00, BgL_auxz00_1647, BgL_auxz00_1649); } 
{ /* ./Ieee/control.scm 209 */
int BgL_auxz00_1652;
BgL_auxz00_1652 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31174za3ieeezf2controlze2scmza3207ze3z93_637, BgL_auxz00_1652, BgL_procz00_19); } 
BgL_aux1769z00_590 = 
call_cc(BgL_zc3anonymousza31174za3ieeezf2controlze2scmza3207ze3z93_637); } 
POP_TRACE(); 
return BgL_aux1769z00_590;} } } } 
}



/* _call/cc */
obj_t BGl__callzf2cczf2zz__r4_control_features_6_9z00(obj_t BgL_envz00_638, obj_t BgL_procz00_639)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 206 */
{ /* ./Ieee/control.scm 209 */
obj_t BgL_auxz00_1657;
if(
PROCEDUREP(BgL_procz00_639))
{ /* ./Ieee/control.scm 209 */
BgL_auxz00_1657 = BgL_procz00_639
; }  else 
{ /* ./Ieee/control.scm 209 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2662z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_procz00_639, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7264))); 
exit( -1 );} 
return 
BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_auxz00_1657);} } 
}



/* <anonymous:1174:Ieee/control.scm:207> */
obj_t BGl_zc3anonymousza31174za3Ieeezf2controlze2scmza3207ze3z93zz__r4_control_features_6_9z00(obj_t BgL_envz00_640, obj_t BgL_contz00_642)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 207 */
{ /* ./Ieee/control.scm 209 */
obj_t BgL_procz00_641;
{ /* ./Ieee/control.scm 209 */
int BgL_auxz00_1664;
BgL_auxz00_1664 = 
(int)(((long)0)); 
BgL_procz00_641 = 
PROCEDURE_REF(BgL_envz00_640, BgL_auxz00_1664); } 
{ 
obj_t BgL_contz00_356;
BgL_contz00_356 = BgL_contz00_642; 
{ /* ./Ieee/control.scm 209 */
obj_t BgL_zc3anonymousza31179za3ieeezf2controlze2scmza3208ze3z93_636;
{ 
int BgL_auxz00_1669;int BgL_auxz00_1667;
BgL_auxz00_1669 = 
(int)(((long)1)); 
BgL_auxz00_1667 = 
(int)(((long)-1)); 
BgL_zc3anonymousza31179za3ieeezf2controlze2scmza3208ze3z93_636 = 
make_va_procedure(BGl_zc3anonymousza31179za3Ieeezf2controlze2scmza3208ze3z93zz__r4_control_features_6_9z00, BgL_auxz00_1667, BgL_auxz00_1669); } 
{ /* ./Ieee/control.scm 209 */
int BgL_auxz00_1672;
BgL_auxz00_1672 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31179za3ieeezf2controlze2scmza3208ze3z93_636, BgL_auxz00_1672, BgL_contz00_356); } 
{ /* ./Ieee/control.scm 208 */
obj_t BgL_funz00_800;
if(
PROCEDUREP(BgL_procz00_641))
{ /* ./Ieee/control.scm 208 */
BgL_funz00_800 = BgL_procz00_641; }  else 
{ /* ./Ieee/control.scm 208 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2663z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_procz00_641, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7242))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_800, ((long)1)))
{ /* ./Ieee/control.scm 208 */
return 
PROCEDURE_ENTRY(BgL_funz00_800)(BgL_procz00_641, BgL_zc3anonymousza31179za3ieeezf2controlze2scmza3208ze3z93_636, BEOA);}  else 
{ /* ./Ieee/control.scm 208 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2664z00zz__r4_control_features_6_9z00, BGl_list2665z00zz__r4_control_features_6_9z00, BgL_funz00_800, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7242))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } } } } } 
}



/* <anonymous:1179:Ieee/control.scm:208> */
obj_t BGl_zc3anonymousza31179za3Ieeezf2controlze2scmza3208ze3z93zz__r4_control_features_6_9z00(obj_t BgL_envz00_643, obj_t BgL_valsz00_645)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 208 */
{ /* ./Ieee/control.scm 209 */
obj_t BgL_contz00_644;
{ /* ./Ieee/control.scm 209 */
int BgL_auxz00_1687;
BgL_auxz00_1687 = 
(int)(((long)0)); 
BgL_contz00_644 = 
PROCEDURE_REF(BgL_envz00_643, BgL_auxz00_1687); } 
{ 
obj_t BgL_valsz00_359;
BgL_valsz00_359 = BgL_valsz00_645; 
{ /* ./Ieee/control.scm 209 */
bool_t BgL_test1180z00_361;
{ /* ./Ieee/control.scm 209 */
bool_t BgL_test1187z00_363;
BgL_test1187z00_363 = 
PAIRP(BgL_valsz00_359); 
if(BgL_test1187z00_363)
{ /* ./Ieee/control.scm 209 */
obj_t BgL_arg1189z00_364;
{ /* ./Ieee/control.scm 209 */
obj_t BgL_pairz00_558;
if(BgL_test1187z00_363)
{ /* ./Ieee/control.scm 209 */
BgL_pairz00_558 = BgL_valsz00_359; }  else 
{ /* ./Ieee/control.scm 209 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2666z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_valsz00_359, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7301))); 
exit( -1 );} 
BgL_arg1189z00_364 = 
CDR(BgL_pairz00_558); } 
BgL_test1180z00_361 = 
NULLP(BgL_arg1189z00_364); }  else 
{ /* ./Ieee/control.scm 209 */
BgL_test1180z00_361 = ((bool_t)0); } } 
if(BgL_test1180z00_361)
{ /* ./Ieee/control.scm 210 */
obj_t BgL_arg1182z00_362;
{ /* ./Ieee/control.scm 210 */
obj_t BgL_pairz00_560;
if(
PAIRP(BgL_valsz00_359))
{ /* ./Ieee/control.scm 210 */
BgL_pairz00_560 = BgL_valsz00_359; }  else 
{ /* ./Ieee/control.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2666z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_valsz00_359, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7327))); 
exit( -1 );} 
BgL_arg1182z00_362 = 
CAR(BgL_pairz00_560); } 
{ /* ./Ieee/control.scm 210 */
obj_t BgL_funz00_809;
if(
PROCEDUREP(BgL_contz00_644))
{ /* ./Ieee/control.scm 210 */
BgL_funz00_809 = BgL_contz00_644; }  else 
{ /* ./Ieee/control.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2666z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_contz00_644, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7313))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_809, ((long)1)))
{ /* ./Ieee/control.scm 210 */
return 
PROCEDURE_ENTRY(BgL_funz00_809)(BgL_contz00_644, BgL_arg1182z00_362, BEOA);}  else 
{ /* ./Ieee/control.scm 210 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2667z00zz__r4_control_features_6_9z00, BGl_list2668z00zz__r4_control_features_6_9z00, BgL_funz00_809, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7313))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } }  else 
{ /* ./Ieee/control.scm 209 */
{ /* ./Ieee/control.scm 212 */
int BgL_auxz00_1717;
BgL_auxz00_1717 = 
(int)(((long)-1)); 
BGL_MVALUES_NUMBER_SET(BgL_auxz00_1717); } 
{ /* ./Ieee/control.scm 213 */
obj_t BgL_funz00_814;
if(
PROCEDUREP(BgL_contz00_644))
{ /* ./Ieee/control.scm 213 */
BgL_funz00_814 = BgL_contz00_644; }  else 
{ /* ./Ieee/control.scm 213 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2666z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_contz00_644, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7391))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_814, ((long)1)))
{ /* ./Ieee/control.scm 213 */
return 
PROCEDURE_ENTRY(BgL_funz00_814)(BgL_contz00_644, BgL_valsz00_359, BEOA);}  else 
{ /* ./Ieee/control.scm 213 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2667z00zz__r4_control_features_6_9z00, BGl_list2671z00zz__r4_control_features_6_9z00, BgL_funz00_814, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7391))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} } } } } } } 
}



/* call-with-current-continuation */
BGL_EXPORTED_DEF obj_t BGl_callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00(obj_t BgL_procz00_20)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 218 */
{ /* ./Ieee/control.scm 219 */
obj_t BgL_symbol1774z00_911;
BgL_symbol1774z00_911 = BGl_symbol2673z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 219 */

PUSH_TRACE(BgL_symbol1774z00_911); BUNSPEC; 
{ /* ./Ieee/control.scm 219 */
obj_t BgL_aux1773z00_912;
BgL_aux1773z00_912 = 
BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_procz00_20); 
POP_TRACE(); 
return BgL_aux1773z00_912;} } } } 
}



/* _call-with-current-continuation */
obj_t BGl__callzd2withzd2currentzd2continuationzd2zz__r4_control_features_6_9z00(obj_t BgL_envz00_646, obj_t BgL_procz00_647)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 218 */
{ /* ./Ieee/control.scm 219 */
obj_t BgL_procz00_913;
if(
PROCEDUREP(BgL_procz00_647))
{ /* ./Ieee/control.scm 219 */
BgL_procz00_913 = BgL_procz00_647; }  else 
{ /* ./Ieee/control.scm 219 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2674z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_procz00_647, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)7689))); 
exit( -1 );} 
{ /* ./Ieee/control.scm 219 */
obj_t BgL_symbol1774z00_914;
BgL_symbol1774z00_914 = BGl_symbol2673z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 219 */

PUSH_TRACE(BgL_symbol1774z00_914); BUNSPEC; 
{ /* ./Ieee/control.scm 219 */
obj_t BgL_aux1773z00_915;
BgL_aux1773z00_915 = 
BGl_callzf2cczf2zz__r4_control_features_6_9z00(BgL_procz00_913); 
POP_TRACE(); 
return BgL_aux1773z00_915;} } } } } 
}



/* dynamic-wind */
BGL_EXPORTED_DEF obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t BgL_beforez00_21, obj_t BgL_thunkz00_22, obj_t BgL_afterz00_23)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 224 */
{ /* ./Ieee/control.scm 225 */
obj_t BgL_symbol1778z00_593;
BgL_symbol1778z00_593 = BGl_symbol2675z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 225 */

PUSH_TRACE(BgL_symbol1778z00_593); BUNSPEC; 
{ /* ./Ieee/control.scm 225 */
obj_t BgL_aux1777z00_594;
if(
PROCEDURE_CORRECT_ARITYP(BgL_beforez00_21, ((long)0)))
{ /* ./Ieee/control.scm 225 */
PROCEDURE_ENTRY(BgL_beforez00_21)(BgL_beforez00_21, BEOA); }  else 
{ /* ./Ieee/control.scm 225 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2676z00zz__r4_control_features_6_9z00, BGl_list2677z00zz__r4_control_features_6_9z00, BgL_beforez00_21, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8006))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} 
{ /* ./Ieee/control.scm 226 */

PUSH_BEFORE(BgL_beforez00_21); 
{ /* ./Ieee/control.scm 228 */
obj_t BgL_val1003z00_367;
BgL_val1003z00_367 = 
BGl_zc3exitza31206za3Ieeezf2controlze2scmza3231ze3z93zz__r4_control_features_6_9z00(BgL_thunkz00_22); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_afterz00_23, ((long)0)))
{ /* ./Ieee/control.scm 231 */
PROCEDURE_ENTRY(BgL_afterz00_23)(BgL_afterz00_23, BEOA); }  else 
{ /* ./Ieee/control.scm 231 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2676z00zz__r4_control_features_6_9z00, BGl_list2679z00zz__r4_control_features_6_9z00, BgL_afterz00_23, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8100))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} 
POP_BEFORE(); 
{ /* ./Ieee/control.scm 232 */
bool_t BgL_testz00_1761;
{ /* ./Ieee/control.scm 232 */
obj_t BgL_auxz00_1762;
BgL_auxz00_1762 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val1003z00_367); 
BgL_testz00_1761 = 
CBOOL(BgL_auxz00_1762); } 
if(BgL_testz00_1761)
{ /* ./Ieee/control.scm 232 */
obj_t BgL_arg1200z00_369;obj_t BgL_arg1201z00_370;
{ /* ./Ieee/control.scm 232 */
obj_t BgL_pairz00_562;
if(
PAIRP(BgL_val1003z00_367))
{ /* ./Ieee/control.scm 232 */
BgL_pairz00_562 = BgL_val1003z00_367; }  else 
{ /* ./Ieee/control.scm 232 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2675z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_val1003z00_367, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8113))); 
exit( -1 );} 
BgL_arg1200z00_369 = 
CAR(BgL_pairz00_562); } 
{ /* ./Ieee/control.scm 232 */
obj_t BgL_pairz00_563;
if(
PAIRP(BgL_val1003z00_367))
{ /* ./Ieee/control.scm 232 */
BgL_pairz00_563 = BgL_val1003z00_367; }  else 
{ /* ./Ieee/control.scm 232 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2675z00zz__r4_control_features_6_9z00, BGl_string2610z00zz__r4_control_features_6_9z00, BgL_val1003z00_367, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8113))); 
exit( -1 );} 
BgL_arg1201z00_370 = 
CDR(BgL_pairz00_563); } 
BgL_aux1777z00_594 = 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg1200z00_369, BgL_arg1201z00_370); }  else 
{ /* ./Ieee/control.scm 232 */
BgL_aux1777z00_594 = BgL_val1003z00_367; } } } } 
POP_TRACE(); 
return BgL_aux1777z00_594;} } } } 
}



/* <exit:1206:Ieee/control.scm:231> */
obj_t BGl_zc3exitza31206za3Ieeezf2controlze2scmza3231ze3z93zz__r4_control_features_6_9z00(obj_t BgL_thunkz00_652)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 231 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1004z00_372;
if( SET_EXIT(BgL_an_exit1004z00_372) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1004z00_372 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/control.scm 231 */

PUSH_EXIT(BgL_an_exit1004z00_372, ((bool_t)0)); 
{ /* ./Ieee/control.scm 229 */
obj_t BgL_val1005z00_373;
if(
PROCEDURE_CORRECT_ARITYP(BgL_thunkz00_652, ((long)0)))
{ /* ./Ieee/control.scm 229 */
BgL_val1005z00_373 = 
PROCEDURE_ENTRY(BgL_thunkz00_652)(BgL_thunkz00_652, BEOA); }  else 
{ /* ./Ieee/control.scm 229 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string2681z00zz__r4_control_features_6_9z00, BGl_list2682z00zz__r4_control_features_6_9z00, BgL_thunkz00_652, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8078))); 
FAILURE(BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00,BGl_symbol2608z00zz__r4_control_features_6_9z00);} 
POP_EXIT(); 
return BgL_val1005z00_373;} } 
} } 
}



/* _dynamic-wind */
obj_t BGl__dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t BgL_envz00_648, obj_t BgL_beforez00_649, obj_t BgL_thunkz00_650, obj_t BgL_afterz00_651)
{ AN_OBJECT;
{ /* ./Ieee/control.scm 224 */
{ /* ./Ieee/control.scm 225 */
obj_t BgL_auxz00_1802;obj_t BgL_auxz00_1796;obj_t BgL_auxz00_1790;
if(
PROCEDUREP(BgL_afterz00_651))
{ /* ./Ieee/control.scm 225 */
BgL_auxz00_1802 = BgL_afterz00_651
; }  else 
{ /* ./Ieee/control.scm 225 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2684z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_afterz00_651, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8006))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_thunkz00_650))
{ /* ./Ieee/control.scm 225 */
BgL_auxz00_1796 = BgL_thunkz00_650
; }  else 
{ /* ./Ieee/control.scm 225 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2684z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_thunkz00_650, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8006))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_beforez00_649))
{ /* ./Ieee/control.scm 225 */
BgL_auxz00_1790 = BgL_beforez00_649
; }  else 
{ /* ./Ieee/control.scm 225 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2684z00zz__r4_control_features_6_9z00, BGl_string2612z00zz__r4_control_features_6_9z00, BgL_beforez00_649, BGl_string2607z00zz__r4_control_features_6_9z00, 
BINT(((long)8006))); 
exit( -1 );} 
return 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_auxz00_1790, BgL_auxz00_1796, BgL_auxz00_1802);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_control_features_6_9z00()
{ AN_OBJECT;
{ /* ./Ieee/control.scm 14 */
{ /* ./Ieee/control.scm 14 */
obj_t BgL_symbol1782z00_595;
BgL_symbol1782z00_595 = BGl_symbol2685z00zz__r4_control_features_6_9z00; 
{ /* ./Ieee/control.scm 14 */

PUSH_TRACE(BgL_symbol1782z00_595); BUNSPEC; 
{ /* ./Ieee/control.scm 14 */
obj_t BgL_aux1781z00_596;
BgL_aux1781z00_596 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_control_features_6_9"); 
POP_TRACE(); 
return BgL_aux1781z00_596;} } } } 
}

