/*---------------------------------------------------------------------*/
void *
bgl_debug_trace_top() {
obj_t env = BGL_CURRENT_DYNAMIC_ENV();
#if !BMEMDEBUG
if( !env ) {
goto unknown;
} else {
struct bgl_dframe *top = BGL_ENV_GET_TOP_OF_FRAME( env );
if( !top ) goto unknown;
if( !SYMBOLP( top->name ) ) goto unknown;
return top->name;
}
unknown:
{
/* if we see no trace in a stack (or no stack at all) we */
/* check we are running a asynchronous fair-thread. */
void *th = bmem_thread ? ____bglthread_id_get() : 0;
if( SYMBOLP( th ) )
return th;
else
return BUNSPEC;
}
}
/* kill-my-self */
obj_t BGl_killzd2myzd2selfz00zzengine_signalsz00(obj_t BgL_envz00_100,
obj_t BgL_nz00_101)
{
AN_OBJECT;
{ /* Engine/signals.scm 25 */
{
obj_t BgL_nz00_87;
BgL_nz00_87 = BgL_nz00_101;
{ /* Engine/signals.scm 26 */
obj_t BgL_port1508z00_89;
{ /* Engine/signals.scm 26 */
obj_t BgL_res1510z00_92;
{ /* Engine/signals.scm 26 */
obj_t BgL_auxz00_117;
BgL_auxz00_117 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1510z00_92 = BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_117);
}
BgL_port1508z00_89 = BgL_res1510z00_92;
}
bgl_display_string(BGl_string1512z00zzengine_signalsz00,
BgL_port1508z00_89);
bgl_display_string(BGl_string1513z00zzengine_signalsz00,
BgL_port1508z00_89);
bgl_display_obj(BgL_nz00_87, BgL_port1508z00_89);
bgl_display_char(((unsigned char) '\n'), BgL_port1508z00_89);
}
return BGl_compilerzd2exitzd2zzinit_mainz00(BINT(((long) 2)));
}}
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF
void
bgl_init_trace() {
obj_t env = BGL_CURRENT_DYNAMIC_ENV();
BGL_DYNAMIC_ENV( env ).top.name = BUNSPEC;
BGL_DYNAMIC_ENV( env ).top.link = 0;
BGL_ENV_SET_TOP_OF_FRAME( env, &(BGL_DYNAMIC_ENV( env ).top) );
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF obj_t
bgl_time( obj_t thunk ) {
#ifdef _MINGW_VER
obj_t env = BGL_CURRENT_DYNAMIC_ENV();
BGL_ENV_MVALUES_NUMBER_SET( env, 4 );
BGL_ENV_MVALUES_VAL_SET( env, 1, 0 );
BGL_ENV_MVALUES_VAL_SET( env, 2, 0 );
BGL_ENV_MVALUES_VAL_SET( env, 3, 0 );
return PROCEDURE_ENTRY( thunk )( thunk, BEOA );
#else
static long ctick = 0;
obj_t env = BGL_CURRENT_DYNAMIC_ENV();
struct tms buf1, buf2;
clock_t t1, t2;
obj_t res;
if( !ctick ) ctick = sysconf( _SC_CLK_TCK );
t1 = times( &buf1 );
res = PROCEDURE_ENTRY( thunk )( thunk, BEOA );
t2 = times( &buf2 );
BGL_ENV_MVALUES_NUMBER_SET( env, 4 );
# define BTICK( v ) BINT( (v) * 1000 / ctick )
BGL_ENV_MVALUES_VAL_SET( env, 1, BTICK( t2 - t1 ) );
BGL_ENV_MVALUES_VAL_SET( env, 2, BTICK( buf2.tms_stime - buf1.tms_stime ) );
BGL_ENV_MVALUES_VAL_SET( env, 3, BTICK( (buf2.tms_cutime - buf1.tms_cutime)
+ (buf2.tms_utime - buf1.tms_utime) ) );
# undef BTICK
return res;
#endif
}
/*---------------------------------------------------------------------*/
BGL_RUNTIME_DEF obj_t
get_trace_stack( int depth ) {
long level = 0L;
struct bgl_dframe *runner = BGL_ENV_GET_TOP_OF_FRAME( BGL_CURRENT_DYNAMIC_ENV() );
obj_t l = MAKE_PAIR( BNIL, BNIL );
obj_t r = l;
while( ((depth < 0) || (level < depth)) && runner ) {
if( SYMBOLP( runner->name ) ) {
obj_t p = MAKE_PAIR( runner->name, MAKE_PAIR( runner->location, BNIL ) );
SET_CDR( r, MAKE_PAIR( p, BNIL ) );
r = CDR( r );
level++;
}
runner = runner->link;
}
return CDR( l );
}
/* short-version */
BGL_EXPORTED_DEF obj_t BGl_shortzd2versionzd2zzwrite_versionz00()
{
AN_OBJECT;
{ /* Write/version.scm 31 */
{ /* Write/version.scm 32 */
obj_t BgL_port1511z00_91;
{ /* Write/version.scm 32 */
obj_t BgL_res1574z00_161;
{ /* Write/version.scm 32 */
obj_t BgL_auxz00_258;
BgL_auxz00_258 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1574z00_161 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_258);
}
BgL_port1511z00_91 = BgL_res1574z00_161;
}
bgl_display_obj(BGl_za2bigloozd2nameza2zd2zzengine_paramz00,
BgL_port1511z00_91);
return bgl_display_char(((unsigned char) '\n'), BgL_port1511z00_91);
}}
}
/* revision */
BGL_EXPORTED_DEF obj_t BGl_revisionz00zzwrite_versionz00()
{
AN_OBJECT;
{ /* Write/version.scm 25 */
{ /* Write/version.scm 26 */
obj_t BgL_port1510z00_90;
{ /* Write/version.scm 26 */
obj_t BgL_res1573z00_158;
{ /* Write/version.scm 26 */
obj_t BgL_auxz00_252;
BgL_auxz00_252 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1573z00_158 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_252);
}
BgL_port1510z00_90 = BgL_res1573z00_158;
}
bgl_display_obj(BGl_za2bigloozd2versionza2zd2zzengine_paramz00,
BgL_port1510z00_90);
return bgl_display_char(((unsigned char) '\n'), BgL_port1510z00_90);
}}
}
/* write-effect */
BGL_EXPORTED_DEF obj_t BGl_writezd2effectzd2zzeffect_walkz00(obj_t
BgL_globalsz00_4)
{
AN_OBJECT;
{ /* Effect/walk.scm 84 */
{ /* Effect/walk.scm 95 */
obj_t BgL_onamez00_876;
if (STRINGP(BGl_za2destza2z00zzengine_paramz00))
{ /* Effect/walk.scm 95 */
BgL_onamez00_876 = BGl_za2destza2z00zzengine_paramz00;
}
else
{ /* Effect/walk.scm 97 */
bool_t BgL_testz00_1600;
if (PAIRP(BGl_za2srczd2filesza2zd2zzengine_paramz00))
{ /* Effect/walk.scm 97 */
obj_t BgL_auxz00_1603;
BgL_auxz00_1603 =
CAR(BGl_za2srczd2filesza2zd2zzengine_paramz00);
BgL_testz00_1600 = STRINGP(BgL_auxz00_1603);
}
else
{ /* Effect/walk.scm 97 */
BgL_testz00_1600 = ((bool_t) 0);
}
if (BgL_testz00_1600)
{ /* Effect/walk.scm 97 */
BgL_onamez00_876 =
string_append(BGl_prefixz00zz__osz00(CAR
(BGl_za2srczd2filesza2zd2zzengine_paramz00)),
BGl_string3574z00zzeffect_walkz00);
}
else
{ /* Effect/walk.scm 97 */
BgL_onamez00_876 = BFALSE;
}
}
{ /* Effect/walk.scm 95 */
obj_t BgL_portz00_877;
if (STRINGP(BgL_onamez00_876))
{ /* Effect/walk.scm 101 */
obj_t BgL_g2679z00_900;
BgL_g2679z00_900 = BgL_onamez00_876;
{ /* Effect/walk.scm 101 */
BgL_portz00_877 =
BGl_openzd2outputzd2filez00zz__r4_ports_6_10_1z00
(BgL_g2679z00_900, BTRUE);
}
}
else
{ /* Effect/walk.scm 102 */
obj_t BgL_res3561z00_1382;
{ /* Effect/walk.scm 102 */
obj_t BgL_auxz00_1612;
BgL_auxz00_1612 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3561z00_1382 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_1612);
}
BgL_portz00_877 = BgL_res3561z00_1382;
}
{ /* Effect/walk.scm 100 */
if (OUTPUT_PORTP(BgL_portz00_877))
{ /* Effect/walk.scm 105 */
obj_t BgL_val3381z00_879;
BgL_val3381z00_879 =
BGl_zc3exitza33459ze3z83zzeffect_walkz00(BgL_globalsz00_4);
{ /* Effect/walk.scm 110 */
bool_t BgL_testz00_1618;
{ /* Effect/walk.scm 110 */
obj_t BgL_arg3455z00_881;
{ /* Effect/walk.scm 110 */
obj_t BgL_res3564z00_1396;
{ /* Effect/walk.scm 110 */
obj_t BgL_auxz00_1619;
BgL_auxz00_1619 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3564z00_1396 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_1619);
}
BgL_arg3455z00_881 = BgL_res3564z00_1396;
}
BgL_testz00_1618 = (BgL_portz00_877 == BgL_arg3455z00_881);
}
if (BgL_testz00_1618)
{ /* Effect/walk.scm 110 */
BFALSE;
}
else
{ /* Effect/walk.scm 110 */
bgl_close_output_port(BgL_portz00_877);
}
}
if (CBOOL(BGl_valzd2fromzd2exitzf3zf3zz__bexitz00
(BgL_val3381z00_879)))
{ /* Effect/walk.scm 110 */
return
BGl_unwindzd2untilz12zc0zz__bexitz00(CAR
(BgL_val3381z00_879), CDR(BgL_val3381z00_879));
}
else
{ /* Effect/walk.scm 110 */
return BgL_val3381z00_879;
}
}
else
{ /* Effect/walk.scm 103 */
return
BGl_errorz00zz__errorz00(BGl_string3575z00zzeffect_walkz00,
BGl_string3576z00zzeffect_walkz00, BgL_onamez00_876);
}
}
}
}
}
}
/* reduce-walk! */
BGL_EXPORTED_DEF obj_t BGl_reducezd2walkz12zc0zzreduce_walkz00(obj_t
BgL_globalsz00_1, obj_t BgL_msgz00_2, obj_t BgL_typezd2unsafezd2_3)
{
AN_OBJECT;
{ /* Reduce/walk.scm 36 */
{ /* Reduce/walk.scm 37 */
obj_t BgL_list3254z00_776;
{ /* Reduce/walk.scm 37 */
obj_t BgL_arg3256z00_778;
{ /* Reduce/walk.scm 37 */
obj_t BgL_arg3257z00_779;
BgL_arg3257z00_779 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3256z00_778 = MAKE_PAIR(BgL_msgz00_2, BgL_arg3257z00_779);
}
BgL_list3254z00_776 =
MAKE_PAIR(BGl_string3354z00zzreduce_walkz00, BgL_arg3256z00_778);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3254z00_776);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 = BgL_msgz00_2;
{
obj_t BgL_hooksz00_783;
obj_t BgL_hnamesz00_784;
BgL_hooksz00_783 = BNIL;
BgL_hnamesz00_784 = BNIL;
BgL_zc3anonymousza33258ze3z83_785:
if (NULLP(BgL_hooksz00_783))
{ /* Reduce/walk.scm 37 */
CNST_TABLE_REF(((long) 0));
}
else
{ /* Reduce/walk.scm 37 */
bool_t BgL_testz00_1307;
{ /* Reduce/walk.scm 37 */
obj_t BgL_fun3265z00_792;
BgL_fun3265z00_792 = CAR(BgL_hooksz00_783);
BgL_testz00_1307 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3265z00_792) (BgL_fun3265z00_792,
BEOA));
}
if (BgL_testz00_1307)
{
obj_t BgL_hnamesz00_1314;
obj_t BgL_hooksz00_1312;
BgL_hooksz00_1312 = CDR(BgL_hooksz00_783);
BgL_hnamesz00_1314 = CDR(BgL_hnamesz00_784);
BgL_hnamesz00_784 = BgL_hnamesz00_1314;
BgL_hooksz00_783 = BgL_hooksz00_1312;
goto BgL_zc3anonymousza33258ze3z83_785;
}
else
{ /* Reduce/walk.scm 37 */
BGl_internalzd2errorzd2zztools_errorz00(BgL_msgz00_2,
BGl_string3355z00zzreduce_walkz00, CAR(BgL_hnamesz00_784));
}
}
}
{ /* Reduce/walk.scm 39 */
bool_t BgL_testz00_1318;
if (PAIRP(BgL_typezd2unsafezd2_3))
{ /* Reduce/walk.scm 39 */
BgL_testz00_1318 = CBOOL(CAR(BgL_typezd2unsafezd2_3));
}
else
{ /* Reduce/walk.scm 39 */
BgL_testz00_1318 = ((bool_t) 0);
}
if (BgL_testz00_1318)
{ /* Reduce/walk.scm 39 */
BGl_reducezd21occz12zc0zzreduce_1occz00(BgL_globalsz00_1);
{ /* Reduce/walk.scm 41 */
obj_t BgL_valuez00_796;
BgL_valuez00_796 =
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long) 1)),
BgL_globalsz00_1);
if (((long)
CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Reduce/walk.scm 41 */
{ /* Reduce/walk.scm 41 */
obj_t BgL_port3252z00_798;
{ /* Reduce/walk.scm 41 */
obj_t BgL_res3350z00_1228;
{ /* Reduce/walk.scm 41 */
obj_t BgL_auxz00_1329;
BgL_auxz00_1329 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3350z00_1228 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1329);
}
BgL_port3252z00_798 = BgL_res3350z00_1228;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3252z00_798);
bgl_display_string(BGl_string3356z00zzreduce_walkz00,
BgL_port3252z00_798);
{ /* Reduce/walk.scm 41 */
obj_t BgL_arg3269z00_799;
{ /* Reduce/walk.scm 41 */
bool_t BgL_testz00_1334;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Reduce/walk.scm 41 */
BgL_testz00_1334 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Reduce/walk.scm 41 */
BgL_testz00_1334 = ((bool_t) 0);
}
if (BgL_testz00_1334)
{ /* Reduce/walk.scm 41 */
BgL_arg3269z00_799 =
BGl_string3357z00zzreduce_walkz00;
}
else
{ /* Reduce/walk.scm 41 */
BgL_arg3269z00_799 =
BGl_string3358z00zzreduce_walkz00;
}
}
bgl_display_obj(BgL_arg3269z00_799, BgL_port3252z00_798);
}
bgl_display_string(BGl_string3359z00zzreduce_walkz00,
BgL_port3252z00_798);
bgl_display_char(((unsigned char) '\n'),
BgL_port3252z00_798);
}
{ /* Reduce/walk.scm 41 */
obj_t BgL_list3272z00_802;
BgL_list3272z00_802 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3272z00_802);
}
}
else
{
obj_t BgL_hooksz00_806;
obj_t BgL_hnamesz00_807;
BgL_hooksz00_806 = BNIL;
BgL_hnamesz00_807 = BNIL;
BgL_zc3anonymousza33273ze3z83_808:
if (NULLP(BgL_hooksz00_806))
{ /* Reduce/walk.scm 41 */
return BgL_valuez00_796;
}
else
{ /* Reduce/walk.scm 41 */
bool_t BgL_testz00_1347;
{ /* Reduce/walk.scm 41 */
obj_t BgL_fun3281z00_815;
BgL_fun3281z00_815 = CAR(BgL_hooksz00_806);
BgL_testz00_1347 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3281z00_815)
(BgL_fun3281z00_815, BEOA));
}
if (BgL_testz00_1347)
{
obj_t BgL_hnamesz00_1354;
obj_t BgL_hooksz00_1352;
BgL_hooksz00_1352 = CDR(BgL_hooksz00_806);
BgL_hnamesz00_1354 = CDR(BgL_hnamesz00_807);
BgL_hnamesz00_807 = BgL_hnamesz00_1354;
BgL_hooksz00_806 = BgL_hooksz00_1352;
goto BgL_zc3anonymousza33273ze3z83_808;
}
else
{ /* Reduce/walk.scm 41 */
obj_t BgL_arg3279z00_814;
BgL_arg3279z00_814 = CAR(BgL_hnamesz00_807);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3360z00zzreduce_walkz00,
BgL_arg3279z00_814);
}
}
}
}
}
else
{ /* Reduce/walk.scm 39 */
if (CBOOL(BGl_za2optimzd2dataflowzf3za2z21zzengine_paramz00))
{ /* Reduce/walk.scm 42 */
BGl_reducezd2copyz12zc0zzreduce_copyz00(BgL_globalsz00_1);
if (
((long) CINT(BGl_za2optimza2z00zzengine_paramz00) >=
((long) 2)))
{ /* Reduce/walk.scm 44 */
BGl_reducezd2csez12zc0zzreduce_csez00(BgL_globalsz00_1);
}
else
{ /* Reduce/walk.scm 44 */
BFALSE;
}
BGl_reducezd2typezd2checkz12z12zzreduce_typecz00
(BgL_globalsz00_1);
BGl_reducezd2copyz12zc0zzreduce_copyz00(BgL_globalsz00_1);
BGl_reducezd2conditionalz12zc0zzreduce_condz00
(BgL_globalsz00_1);
BGl_reducezd21occz12zc0zzreduce_1occz00(BgL_globalsz00_1);
if (CBOOL
(BGl_za2optimzd2reducezd2betazf3za2zf3zzengine_paramz00))
{ /* Reduce/walk.scm 49 */
BGl_reducezd2betaz12zc0zzreduce_betaz00(BgL_globalsz00_1);
}
else
{ /* Reduce/walk.scm 49 */
BFALSE;
}
BGl_reducezd2flowzd2typezd2checkz12zc0zzreduce_flowzd2typeczd2
(BgL_globalsz00_1);
{ /* Reduce/walk.scm 51 */
obj_t BgL_valuez00_819;
BgL_valuez00_819 =
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long)
1)), BgL_globalsz00_1);
if (((long)
CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00)
> ((long) 0)))
{ /* Reduce/walk.scm 51 */
{ /* Reduce/walk.scm 51 */
obj_t BgL_port3253z00_821;
{ /* Reduce/walk.scm 51 */
obj_t BgL_res3352z00_1246;
{ /* Reduce/walk.scm 51 */
obj_t BgL_auxz00_1378;
BgL_auxz00_1378 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3352z00_1246 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1378);
}
BgL_port3253z00_821 = BgL_res3352z00_1246;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3253z00_821);
bgl_display_string(BGl_string3356z00zzreduce_walkz00,
BgL_port3253z00_821);
{ /* Reduce/walk.scm 51 */
obj_t BgL_arg3285z00_822;
{ /* Reduce/walk.scm 51 */
bool_t BgL_testz00_1383;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Reduce/walk.scm 51 */
BgL_testz00_1383 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Reduce/walk.scm 51 */
BgL_testz00_1383 = ((bool_t) 0);
}
if (BgL_testz00_1383)
{ /* Reduce/walk.scm 51 */
BgL_arg3285z00_822 =
BGl_string3357z00zzreduce_walkz00;
}
else
{ /* Reduce/walk.scm 51 */
BgL_arg3285z00_822 =
BGl_string3358z00zzreduce_walkz00;
}
}
bgl_display_obj(BgL_arg3285z00_822,
BgL_port3253z00_821);
}
bgl_display_string(BGl_string3359z00zzreduce_walkz00,
BgL_port3253z00_821);
bgl_display_char(((unsigned char) '\n'),
BgL_port3253z00_821);
}
{ /* Reduce/walk.scm 51 */
obj_t BgL_list3288z00_825;
BgL_list3288z00_825 =
MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3288z00_825);
}
}
else
{
obj_t BgL_hooksz00_829;
obj_t BgL_hnamesz00_830;
BgL_hooksz00_829 = BNIL;
BgL_hnamesz00_830 = BNIL;
BgL_zc3anonymousza33289ze3z83_831:
if (NULLP(BgL_hooksz00_829))
{ /* Reduce/walk.scm 51 */
return BgL_valuez00_819;
}
else
{ /* Reduce/walk.scm 51 */
bool_t BgL_testz00_1396;
{ /* Reduce/walk.scm 51 */
obj_t BgL_fun3297z00_838;
BgL_fun3297z00_838 = CAR(BgL_hooksz00_829);
BgL_testz00_1396 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3297z00_838)
(BgL_fun3297z00_838, BEOA));
}
if (BgL_testz00_1396)
{
obj_t BgL_hnamesz00_1403;
obj_t BgL_hooksz00_1401;
BgL_hooksz00_1401 = CDR(BgL_hooksz00_829);
BgL_hnamesz00_1403 = CDR(BgL_hnamesz00_830);
BgL_hnamesz00_830 = BgL_hnamesz00_1403;
BgL_hooksz00_829 = BgL_hooksz00_1401;
goto BgL_zc3anonymousza33289ze3z83_831;
}
else
{ /* Reduce/walk.scm 51 */
obj_t BgL_arg3295z00_837;
BgL_arg3295z00_837 = CAR(BgL_hnamesz00_830);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3360z00zzreduce_walkz00,
BgL_arg3295z00_837);
}
}
}
}
}
else
{ /* Reduce/walk.scm 42 */
return
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long) 1)),
BgL_globalsz00_1);
}}}}
}
/* inline-walk! */
BGL_EXPORTED_DEF obj_t BGl_inlinezd2walkz12zc0zzinline_walkz00(obj_t
BgL_globalsz00_1, obj_t BgL_whatz00_2)
{
AN_OBJECT;
{ /* Inline/walk.scm 40 */
{ /* Inline/walk.scm 42 */
obj_t BgL_list3278z00_786;
{ /* Inline/walk.scm 42 */
obj_t BgL_arg3280z00_788;
{ /* Inline/walk.scm 42 */
obj_t BgL_arg3282z00_790;
BgL_arg3282z00_790 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3280z00_788 =
MAKE_PAIR(BGl_string3393z00zzinline_walkz00, BgL_arg3282z00_790);
}
BgL_list3278z00_786 =
MAKE_PAIR(BGl_string3394z00zzinline_walkz00, BgL_arg3280z00_788);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3278z00_786);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3393z00zzinline_walkz00;
{ /* Inline/walk.scm 42 */
obj_t BgL_g3270z00_791;
obj_t BgL_g3271z00_792;
{ /* Inline/walk.scm 42 */
obj_t BgL_list3292z00_806;
BgL_list3292z00_806 =
MAKE_PAIR(BGl_resetzd2statz12zd2envz12zzinline_walkz00, BNIL);
BgL_g3270z00_791 = BgL_list3292z00_806;
}
BgL_g3271z00_792 = CNST_TABLE_REF(((long) 1));
{
obj_t BgL_hooksz00_794;
obj_t BgL_hnamesz00_795;
BgL_hooksz00_794 = BgL_g3270z00_791;
BgL_hnamesz00_795 = BgL_g3271z00_792;
BgL_zc3anonymousza33283ze3z83_796:
if (NULLP(BgL_hooksz00_794))
{ /* Inline/walk.scm 42 */
CNST_TABLE_REF(((long) 2));
}
else
{ /* Inline/walk.scm 42 */
bool_t BgL_testz00_1352;
{ /* Inline/walk.scm 42 */
obj_t BgL_fun3291z00_804;
BgL_fun3291z00_804 = CAR(BgL_hooksz00_794);
BgL_testz00_1352 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3291z00_804) (BgL_fun3291z00_804,
BEOA));
}
if (BgL_testz00_1352)
{
obj_t BgL_hnamesz00_1359;
obj_t BgL_hooksz00_1357;
BgL_hooksz00_1357 = CDR(BgL_hooksz00_794);
BgL_hnamesz00_1359 = CDR(BgL_hnamesz00_795);
BgL_hnamesz00_795 = BgL_hnamesz00_1359;
BgL_hooksz00_794 = BgL_hooksz00_1357;
goto BgL_zc3anonymousza33283ze3z83_796;
}
else
{ /* Inline/walk.scm 42 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3393z00zzinline_walkz00,
BGl_string3395z00zzinline_walkz00, CAR(BgL_hnamesz00_795));
}
}
}
}
BGl_inlinezd2setupz12zc0zzinline_walkz00(BgL_whatz00_2);
{
obj_t BgL_l3275z00_808;
BgL_l3275z00_808 = BgL_globalsz00_1;
BgL_zc3anonymousza33293ze3z83_809:
if (PAIRP(BgL_l3275z00_808))
{ /* Inline/walk.scm 46 */
{ /* Inline/walk.scm 47 */
obj_t BgL_gz00_811;
BgL_gz00_811 = CAR(BgL_l3275z00_808);
{ /* Inline/walk.scm 47 */
obj_t BgL_kfactorz00_812;
{ /* Inline/walk.scm 47 */
bool_t BgL_testz00_1367;
{ /* Inline/walk.scm 47 */
obj_t BgL_auxz00_1368;
{ /* Inline/walk.scm 47 */
BgL_sfunz00_bglt BgL_obj1887z00_1262;
{ /* Inline/walk.scm 47 */
BgL_variablez00_bglt BgL_obj1611z00_1261;
BgL_obj1611z00_1261 =
(BgL_variablez00_bglt) (BgL_gz00_811);
BgL_obj1887z00_1262 =
(BgL_sfunz00_bglt) (
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1261))->
BgL_valuez00));
}
BgL_auxz00_1368 =
(((BgL_sfunz00_bglt) CREF(BgL_obj1887z00_1262))->
BgL_classz00);
}
BgL_testz00_1367 =
(BgL_auxz00_1368 == CNST_TABLE_REF(((long) 3)));
}
if (BgL_testz00_1367)
{ /* Inline/walk.scm 47 */
BgL_kfactorz00_812 = BINT(((long) 1));
}
else
{ /* Inline/walk.scm 47 */
BgL_kfactorz00_812 = BGl_za2kfactorza2z00zzinline_walkz00;
}
}
{ /* Inline/walk.scm 53 */
obj_t BgL_arg3295z00_813;
{
BgL_variablez00_bglt BgL_auxz00_1376;
BgL_auxz00_1376 = (BgL_variablez00_bglt) (BgL_gz00_811);
BgL_arg3295z00_813 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1376))->
BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3295z00_813);
}
BGl_inlinezd2sfunz12zc0zzinline_inlinez00(
(BgL_variablez00_bglt) (BgL_gz00_811),
(long) CINT(BgL_kfactorz00_812), BNIL);
BGl_leavezd2functionzd2zztools_errorz00();
}}
{
obj_t BgL_l3275z00_1384;
BgL_l3275z00_1384 = CDR(BgL_l3275z00_808);
BgL_l3275z00_808 = BgL_l3275z00_1384;
goto BgL_zc3anonymousza33293ze3z83_809;
}
}
else
{ /* Inline/walk.scm 46 */
((bool_t) 1);
}
}
{
obj_t BgL_globalsz00_822;
obj_t BgL_newzd2globalszd2_823;
BgL_globalsz00_822 = BgL_globalsz00_1;
BgL_newzd2globalszd2_823 = BNIL;
BgL_zc3anonymousza33301ze3z83_824:
if (NULLP(BgL_globalsz00_822))
{ /* Inline/walk.scm 62 */
obj_t BgL_valuez00_826;
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3319z00_848;
obj_t BgL_arg3320z00_849;
BgL_arg3319z00_848 = CNST_TABLE_REF(((long) 4));
BgL_arg3320z00_849 = bgl_reverse_bang(BgL_newzd2globalszd2_823);
BgL_valuez00_826 =
BGl_removezd2varzd2zzast_removez00(BgL_arg3319z00_848,
BgL_arg3320z00_849);
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00)
> ((long) 0)))
{ /* Inline/walk.scm 62 */
{ /* Inline/walk.scm 62 */
obj_t BgL_port3277z00_828;
{ /* Inline/walk.scm 62 */
obj_t BgL_res3391z00_1269;
{ /* Inline/walk.scm 62 */
obj_t BgL_auxz00_1394;
BgL_auxz00_1394 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3391z00_1269 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1394);
}
BgL_port3277z00_828 = BgL_res3391z00_1269;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3277z00_828);
bgl_display_string(BGl_string3396z00zzinline_walkz00,
BgL_port3277z00_828);
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3304z00_829;
{ /* Inline/walk.scm 62 */
bool_t BgL_testz00_1399;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Inline/walk.scm 62 */
BgL_testz00_1399 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Inline/walk.scm 62 */
BgL_testz00_1399 = ((bool_t) 0);
}
if (BgL_testz00_1399)
{ /* Inline/walk.scm 62 */
BgL_arg3304z00_829 =
BGl_string3397z00zzinline_walkz00;
}
else
{ /* Inline/walk.scm 62 */
BgL_arg3304z00_829 =
BGl_string3398z00zzinline_walkz00;
}
}
bgl_display_obj(BgL_arg3304z00_829, BgL_port3277z00_828);
}
bgl_display_string(BGl_string3399z00zzinline_walkz00,
BgL_port3277z00_828);
bgl_display_char(((unsigned char) '\n'), BgL_port3277z00_828);
}
{ /* Inline/walk.scm 62 */
obj_t BgL_list3307z00_832;
BgL_list3307z00_832 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3307z00_832);
}
}
else
{ /* Inline/walk.scm 62 */
obj_t BgL_g3273z00_833;
obj_t BgL_g3274z00_834;
{ /* Inline/walk.scm 62 */
obj_t BgL_list3318z00_847;
BgL_list3318z00_847 =
MAKE_PAIR(BGl_showzd2statz12zd2envz12zzinline_walkz00,
BNIL);
BgL_g3273z00_833 = BgL_list3318z00_847;
}
BgL_g3274z00_834 = CNST_TABLE_REF(((long) 5));
{
obj_t BgL_hooksz00_836;
obj_t BgL_hnamesz00_837;
BgL_hooksz00_836 = BgL_g3273z00_833;
BgL_hnamesz00_837 = BgL_g3274z00_834;
BgL_zc3anonymousza33308ze3z83_838:
if (NULLP(BgL_hooksz00_836))
{ /* Inline/walk.scm 62 */
return BgL_valuez00_826;
}
else
{ /* Inline/walk.scm 62 */
bool_t BgL_testz00_1414;
{ /* Inline/walk.scm 62 */
obj_t BgL_fun3317z00_845;
BgL_fun3317z00_845 = CAR(BgL_hooksz00_836);
BgL_testz00_1414 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3317z00_845)
(BgL_fun3317z00_845, BEOA));
}
if (BgL_testz00_1414)
{
obj_t BgL_hnamesz00_1421;
obj_t BgL_hooksz00_1419;
BgL_hooksz00_1419 = CDR(BgL_hooksz00_836);
BgL_hnamesz00_1421 = CDR(BgL_hnamesz00_837);
BgL_hnamesz00_837 = BgL_hnamesz00_1421;
BgL_hooksz00_836 = BgL_hooksz00_1419;
goto BgL_zc3anonymousza33308ze3z83_838;
}
else
{ /* Inline/walk.scm 62 */
obj_t BgL_arg3314z00_844;
BgL_arg3314z00_844 = CAR(BgL_hnamesz00_837);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3400z00zzinline_walkz00,
BgL_arg3314z00_844);
}
}
}
}
}
else
{ /* Inline/walk.scm 64 */
bool_t BgL_testz00_1425;
{ /* Inline/walk.scm 64 */
obj_t BgL_arg3328z00_855;
{ /* Inline/walk.scm 64 */
BgL_globalz00_bglt BgL_obj1676z00_1283;
{ /* Inline/walk.scm 64 */
obj_t BgL_pairz00_1282;
BgL_pairz00_1282 = BgL_globalsz00_822;
BgL_obj1676z00_1283 =
(BgL_globalz00_bglt) (CAR(BgL_pairz00_1282));
}
BgL_arg3328z00_855 =
(((BgL_globalz00_bglt) CREF(BgL_obj1676z00_1283))->
BgL_modulez00);
}
BgL_testz00_1425 =
(BgL_arg3328z00_855 == BGl_za2moduleza2z00zzmodule_modulez00);
}
if (BgL_testz00_1425)
{ /* Inline/walk.scm 65 */
obj_t BgL_arg3324z00_851;
obj_t BgL_arg3325z00_852;
BgL_arg3324z00_851 = CDR(BgL_globalsz00_822);
BgL_arg3325z00_852 =
MAKE_PAIR(CAR(BgL_globalsz00_822), BgL_newzd2globalszd2_823);
{
obj_t BgL_newzd2globalszd2_1434;
obj_t BgL_globalsz00_1433;
BgL_globalsz00_1433 = BgL_arg3324z00_851;
BgL_newzd2globalszd2_1434 = BgL_arg3325z00_852;
BgL_newzd2globalszd2_823 = BgL_newzd2globalszd2_1434;
BgL_globalsz00_822 = BgL_globalsz00_1433;
goto BgL_zc3anonymousza33301ze3z83_824;
}
}
else
{
obj_t BgL_globalsz00_1435;
BgL_globalsz00_1435 = CDR(BgL_globalsz00_822);
BgL_globalsz00_822 = BgL_globalsz00_1435;
goto BgL_zc3anonymousza33301ze3z83_824;
}
}
}
}
}
/* globalize-walk! */
BGL_EXPORTED_DEF obj_t BGl_globaliza7ezd2walkz12z67zzglobaliza7e_walkza7(obj_t
BgL_globalsz00_1, obj_t BgL_removez00_2)
{
AN_OBJECT;
{ /* Globalize/walk.scm 30 */
{ /* Globalize/walk.scm 31 */
obj_t BgL_list3258z00_775;
{ /* Globalize/walk.scm 31 */
obj_t BgL_arg3260z00_777;
{ /* Globalize/walk.scm 31 */
obj_t BgL_arg3262z00_779;
BgL_arg3262z00_779 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3260z00_777 =
MAKE_PAIR(BGl_string3351z00zzglobaliza7e_walkza7,
BgL_arg3262z00_779);
}
BgL_list3258z00_775 =
MAKE_PAIR(BGl_string3352z00zzglobaliza7e_walkza7,
BgL_arg3260z00_777);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3258z00_775);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3351z00zzglobaliza7e_walkza7;
{
obj_t BgL_hooksz00_783;
obj_t BgL_hnamesz00_784;
BgL_hooksz00_783 = BNIL;
BgL_hnamesz00_784 = BNIL;
BgL_zc3anonymousza33263ze3z83_785:
if (NULLP(BgL_hooksz00_783))
{ /* Globalize/walk.scm 31 */
CNST_TABLE_REF(((long) 0));
}
else
{ /* Globalize/walk.scm 31 */
bool_t BgL_testz00_1289;
{ /* Globalize/walk.scm 31 */
obj_t BgL_fun3271z00_793;
BgL_fun3271z00_793 = CAR(BgL_hooksz00_783);
BgL_testz00_1289 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3271z00_793) (BgL_fun3271z00_793,
BEOA));
}
if (BgL_testz00_1289)
{
obj_t BgL_hnamesz00_1296;
obj_t BgL_hooksz00_1294;
BgL_hooksz00_1294 = CDR(BgL_hooksz00_783);
BgL_hnamesz00_1296 = CDR(BgL_hnamesz00_784);
BgL_hnamesz00_784 = BgL_hnamesz00_1296;
BgL_hooksz00_783 = BgL_hooksz00_1294;
goto BgL_zc3anonymousza33263ze3z83_785;
}
else
{ /* Globalize/walk.scm 31 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3351z00zzglobaliza7e_walkza7,
BGl_string3353z00zzglobaliza7e_walkza7,
CAR(BgL_hnamesz00_784));
}
}
}
{
obj_t BgL_l3255z00_797;
BgL_l3255z00_797 = BgL_globalsz00_1;
BgL_zc3anonymousza33273ze3z83_798:
if (PAIRP(BgL_l3255z00_797))
{ /* Globalize/walk.scm 33 */
{ /* Globalize/walk.scm 33 */
obj_t BgL_arg3275z00_800;
BgL_arg3275z00_800 = CAR(BgL_l3255z00_797);
BGl_escapezd2funz12zc0zzglobaliza7e_escapeza7(
(BgL_variablez00_bglt) (BgL_arg3275z00_800));
}
{
obj_t BgL_l3255z00_1305;
BgL_l3255z00_1305 = CDR(BgL_l3255z00_797);
BgL_l3255z00_797 = BgL_l3255z00_1305;
goto BgL_zc3anonymousza33273ze3z83_798;
}
}
else
{ /* Globalize/walk.scm 33 */
((bool_t) 1);
}
}
{
obj_t BgL_globalsz00_805;
obj_t BgL_newzd2globalszd2_806;
BgL_globalsz00_805 = BgL_globalsz00_1;
BgL_newzd2globalszd2_806 = BNIL;
BgL_zc3anonymousza33277ze3z83_807:
if (NULLP(BgL_globalsz00_805))
{ /* Globalize/walk.scm 40 */
obj_t BgL_valuez00_809;
BgL_valuez00_809 =
BGl_removezd2varzd2zzast_removez00(BgL_removez00_2,
bgl_append2(BgL_newzd2globalszd2_806,
BGl_foreignzd2closureszd2zzglobaliza7e_globalzd2closurez75()));
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00)
> ((long) 0)))
{ /* Globalize/walk.scm 40 */
{ /* Globalize/walk.scm 40 */
obj_t BgL_port3257z00_811;
{ /* Globalize/walk.scm 40 */
obj_t BgL_res3349z00_1226;
{ /* Globalize/walk.scm 40 */
obj_t BgL_auxz00_1315;
BgL_auxz00_1315 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3349z00_1226 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1315);
}
BgL_port3257z00_811 = BgL_res3349z00_1226;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3257z00_811);
bgl_display_string(BGl_string3354z00zzglobaliza7e_walkza7,
BgL_port3257z00_811);
{ /* Globalize/walk.scm 40 */
obj_t BgL_arg3280z00_812;
{ /* Globalize/walk.scm 40 */
bool_t BgL_testz00_1320;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Globalize/walk.scm 40 */
BgL_testz00_1320 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Globalize/walk.scm 40 */
BgL_testz00_1320 = ((bool_t) 0);
}
if (BgL_testz00_1320)
{ /* Globalize/walk.scm 40 */
BgL_arg3280z00_812 =
BGl_string3355z00zzglobaliza7e_walkza7;
}
else
{ /* Globalize/walk.scm 40 */
BgL_arg3280z00_812 =
BGl_string3356z00zzglobaliza7e_walkza7;
}
}
bgl_display_obj(BgL_arg3280z00_812, BgL_port3257z00_811);
}
bgl_display_string(BGl_string3357z00zzglobaliza7e_walkza7,
BgL_port3257z00_811);
bgl_display_char(((unsigned char) '\n'), BgL_port3257z00_811);
}
{ /* Globalize/walk.scm 40 */
obj_t BgL_list3283z00_815;
BgL_list3283z00_815 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3283z00_815);
}
}
else
{
obj_t BgL_hooksz00_819;
obj_t BgL_hnamesz00_820;
BgL_hooksz00_819 = BNIL;
BgL_hnamesz00_820 = BNIL;
BgL_zc3anonymousza33284ze3z83_821:
if (NULLP(BgL_hooksz00_819))
{ /* Globalize/walk.scm 40 */
return BgL_valuez00_809;
}
else
{ /* Globalize/walk.scm 40 */
bool_t BgL_testz00_1333;
{ /* Globalize/walk.scm 40 */
obj_t BgL_fun3291z00_828;
BgL_fun3291z00_828 = CAR(BgL_hooksz00_819);
BgL_testz00_1333 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3291z00_828)
(BgL_fun3291z00_828, BEOA));
}
if (BgL_testz00_1333)
{
obj_t BgL_hnamesz00_1340;
obj_t BgL_hooksz00_1338;
BgL_hooksz00_1338 = CDR(BgL_hooksz00_819);
BgL_hnamesz00_1340 = CDR(BgL_hnamesz00_820);
BgL_hnamesz00_820 = BgL_hnamesz00_1340;
BgL_hooksz00_819 = BgL_hooksz00_1338;
goto BgL_zc3anonymousza33284ze3z83_821;
}
else
{ /* Globalize/walk.scm 40 */
obj_t BgL_arg3290z00_827;
BgL_arg3290z00_827 = CAR(BgL_hnamesz00_820);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3358z00zzglobaliza7e_walkza7,
BgL_arg3290z00_827);
}
}
}
}
else
{ /* Globalize/walk.scm 42 */
obj_t BgL_arg3295z00_833;
obj_t BgL_arg3296z00_834;
BgL_arg3295z00_833 = CDR(BgL_globalsz00_805);
{ /* Globalize/walk.scm 43 */
obj_t BgL_arg3297z00_835;
{ /* Globalize/walk.scm 43 */
obj_t BgL_arg3298z00_836;
BgL_arg3298z00_836 = CAR(BgL_globalsz00_805);
BgL_arg3297z00_835 =
BGl_globaliza7ez12zb5zzglobaliza7e_globaliza7ez00(
(BgL_globalz00_bglt) (BgL_arg3298z00_836));
}
BgL_arg3296z00_834 =
bgl_append2(BgL_arg3297z00_835, BgL_newzd2globalszd2_806);
}
{
obj_t BgL_newzd2globalszd2_1350;
obj_t BgL_globalsz00_1349;
BgL_globalsz00_1349 = BgL_arg3295z00_833;
BgL_newzd2globalszd2_1350 = BgL_arg3296z00_834;
BgL_newzd2globalszd2_806 = BgL_newzd2globalszd2_1350;
BgL_globalsz00_805 = BgL_globalsz00_1349;
goto BgL_zc3anonymousza33277ze3z83_807;
}
}
}
}
}
/* coerce-walk! */
BGL_EXPORTED_DEF obj_t BGl_coercezd2walkz12zc0zzcoerce_walkz00(obj_t
BgL_astz00_1)
{
AN_OBJECT;
{ /* Coerce/walk.scm 34 */
{ /* Coerce/walk.scm 35 */
obj_t BgL_list3254z00_774;
{ /* Coerce/walk.scm 35 */
obj_t BgL_arg3256z00_776;
{ /* Coerce/walk.scm 35 */
obj_t BgL_arg3258z00_778;
BgL_arg3258z00_778 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3256z00_776 =
MAKE_PAIR(BGl_string3351z00zzcoerce_walkz00, BgL_arg3258z00_778);
}
BgL_list3254z00_774 =
MAKE_PAIR(BGl_string3352z00zzcoerce_walkz00, BgL_arg3256z00_776);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3254z00_774);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3351z00zzcoerce_walkz00;
{
obj_t BgL_hooksz00_782;
obj_t BgL_hnamesz00_783;
BgL_hooksz00_782 = BNIL;
BgL_hnamesz00_783 = BNIL;
BgL_zc3anonymousza33259ze3z83_784:
if (NULLP(BgL_hooksz00_782))
{ /* Coerce/walk.scm 35 */
CNST_TABLE_REF(((long) 0));
}
else
{ /* Coerce/walk.scm 35 */
bool_t BgL_testz00_1294;
{ /* Coerce/walk.scm 35 */
obj_t BgL_fun3267z00_792;
BgL_fun3267z00_792 = CAR(BgL_hooksz00_782);
BgL_testz00_1294 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3267z00_792) (BgL_fun3267z00_792,
BEOA));
}
if (BgL_testz00_1294)
{
obj_t BgL_hnamesz00_1301;
obj_t BgL_hooksz00_1299;
BgL_hooksz00_1299 = CDR(BgL_hooksz00_782);
BgL_hnamesz00_1301 = CDR(BgL_hnamesz00_783);
BgL_hnamesz00_783 = BgL_hnamesz00_1301;
BgL_hooksz00_782 = BgL_hooksz00_1299;
goto BgL_zc3anonymousza33259ze3z83_784;
}
else
{ /* Coerce/walk.scm 35 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3351z00zzcoerce_walkz00,
BGl_string3353z00zzcoerce_walkz00, CAR(BgL_hnamesz00_783));
}
}
}
{
obj_t BgL_l3251z00_796;
BgL_l3251z00_796 = BgL_astz00_1;
BgL_zc3anonymousza33269ze3z83_797:
if (PAIRP(BgL_l3251z00_796))
{ /* Coerce/walk.scm 36 */
{ /* Coerce/walk.scm 40 */
obj_t BgL_globalz00_799;
BgL_globalz00_799 = CAR(BgL_l3251z00_796);
BGl_resetzd2ppmargez12zc0zzcoerce_pprotoz00();
{ /* Coerce/walk.scm 38 */
obj_t BgL_arg3271z00_800;
{
BgL_variablez00_bglt BgL_auxz00_1309;
BgL_auxz00_1309 = (BgL_variablez00_bglt) (BgL_globalz00_799);
BgL_arg3271z00_800 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1309))->BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3271z00_800);
}
{ /* Coerce/walk.scm 39 */
bool_t BgL_arg3272z00_801;
if (CBOOL(BGl_za2unsafezd2typeza2zd2zzengine_paramz00))
{ /* Coerce/walk.scm 39 */
BgL_arg3272z00_801 = ((bool_t) 0);
}
else
{ /* Coerce/walk.scm 39 */
BgL_arg3272z00_801 = ((bool_t) 1);
}
BGl_coercezd2functionz12zc0zzcoerce_coercez00(
(BgL_variablez00_bglt) (BgL_globalz00_799),
BgL_arg3272z00_801);
}
BGl_leavezd2functionzd2zztools_errorz00();
}
{
obj_t BgL_l3251z00_1318;
BgL_l3251z00_1318 = CDR(BgL_l3251z00_796);
BgL_l3251z00_796 = BgL_l3251z00_1318;
goto BgL_zc3anonymousza33269ze3z83_797;
}
}
else
{ /* Coerce/walk.scm 36 */
((bool_t) 1);
}
}
BGl_resetzd2ppmargez12zc0zzcoerce_pprotoz00();
BGl_forzd2eachzd2globalz12z12zzast_envz00(BGl_proc3354z00zzcoerce_walkz00,
BNIL);
{ /* Coerce/walk.scm 48 */
obj_t BgL_valuez00_817;
BgL_valuez00_817 =
BGl_removezd2varzd2zzast_removez00(CNST_TABLE_REF(((long) 1)),
BgL_astz00_1);
if (((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Coerce/walk.scm 48 */
{ /* Coerce/walk.scm 48 */
obj_t BgL_port3253z00_819;
{ /* Coerce/walk.scm 48 */
obj_t BgL_res3349z00_1231;
{ /* Coerce/walk.scm 48 */
obj_t BgL_auxz00_1327;
BgL_auxz00_1327 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3349z00_1231 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1327);
}
BgL_port3253z00_819 = BgL_res3349z00_1231;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3253z00_819);
bgl_display_string(BGl_string3355z00zzcoerce_walkz00,
BgL_port3253z00_819);
{ /* Coerce/walk.scm 48 */
obj_t BgL_arg3285z00_820;
{ /* Coerce/walk.scm 48 */
bool_t BgL_testz00_1332;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Coerce/walk.scm 48 */
BgL_testz00_1332 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Coerce/walk.scm 48 */
BgL_testz00_1332 = ((bool_t) 0);
}
if (BgL_testz00_1332)
{ /* Coerce/walk.scm 48 */
BgL_arg3285z00_820 = BGl_string3356z00zzcoerce_walkz00;
}
else
{ /* Coerce/walk.scm 48 */
BgL_arg3285z00_820 = BGl_string3357z00zzcoerce_walkz00;
}
}
bgl_display_obj(BgL_arg3285z00_820, BgL_port3253z00_819);
}
bgl_display_string(BGl_string3358z00zzcoerce_walkz00,
BgL_port3253z00_819);
bgl_display_char(((unsigned char) '\n'), BgL_port3253z00_819);
}
{ /* Coerce/walk.scm 48 */
obj_t BgL_list3288z00_823;
BgL_list3288z00_823 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3288z00_823);
}
}
else
{
obj_t BgL_hooksz00_827;
obj_t BgL_hnamesz00_828;
BgL_hooksz00_827 = BNIL;
BgL_hnamesz00_828 = BNIL;
BgL_zc3anonymousza33289ze3z83_829:
if (NULLP(BgL_hooksz00_827))
{ /* Coerce/walk.scm 48 */
return BgL_valuez00_817;
}
else
{ /* Coerce/walk.scm 48 */
bool_t BgL_testz00_1345;
{ /* Coerce/walk.scm 48 */
obj_t BgL_fun3297z00_836;
BgL_fun3297z00_836 = CAR(BgL_hooksz00_827);
BgL_testz00_1345 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3297z00_836)
(BgL_fun3297z00_836, BEOA));
}
if (BgL_testz00_1345)
{
obj_t BgL_hnamesz00_1352;
obj_t BgL_hooksz00_1350;
BgL_hooksz00_1350 = CDR(BgL_hooksz00_827);
BgL_hnamesz00_1352 = CDR(BgL_hnamesz00_828);
BgL_hnamesz00_828 = BgL_hnamesz00_1352;
BgL_hooksz00_827 = BgL_hooksz00_1350;
goto BgL_zc3anonymousza33289ze3z83_829;
}
else
{ /* Coerce/walk.scm 48 */
obj_t BgL_arg3295z00_835;
BgL_arg3295z00_835 = CAR(BgL_hnamesz00_828);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3359z00zzcoerce_walkz00, BgL_arg3295z00_835);
}
}
}
}
}
}
/* internal-error */
BGL_EXPORTED_DEF obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t
BgL_procz00_15, obj_t BgL_mesz00_16, obj_t BgL_objz00_17)
{
AN_OBJECT;
{ /* Tools/error.scm 45 */
if (OUTPUT_PORTP(BGl_za2tracezd2portza2zd2zztools_tracez00))
{ /* Tools/error.scm 47 */
obj_t BgL_port3249z00_821;
BgL_port3249z00_821 = BGl_za2tracezd2portza2zd2zztools_tracez00;
bgl_display_string(BGl_string3374z00zztools_errorz00,
BgL_port3249z00_821);
bgl_display_obj(BgL_procz00_15, BgL_port3249z00_821);
bgl_display_string(BGl_string3375z00zztools_errorz00,
BgL_port3249z00_821);
bgl_display_obj(BgL_mesz00_16, BgL_port3249z00_821);
bgl_display_string(BGl_string3375z00zztools_errorz00,
BgL_port3249z00_821);
bgl_display_obj(BgL_objz00_17, BgL_port3249z00_821);
bgl_display_char(((unsigned char) '\n'), BgL_port3249z00_821);
}
else
{ /* Tools/error.scm 46 */
BFALSE;
}
{ /* Tools/error.scm 48 */
obj_t BgL_port3250z00_822;
{ /* Tools/error.scm 48 */
obj_t BgL_res3366z00_1295;
{ /* Tools/error.scm 48 */
obj_t BgL_auxz00_1486;
BgL_auxz00_1486 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3366z00_1295 = BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1486);
}
BgL_port3250z00_822 = BgL_res3366z00_1295;
}
bgl_display_string(BGl_string3376z00zztools_errorz00,
BgL_port3250z00_822);
bgl_display_obj(BGl_za2currentzd2passza2zd2zzengine_passz00,
BgL_port3250z00_822);
bgl_display_char(((unsigned char) '\n'), BgL_port3250z00_822);
}
{ /* Tools/error.scm 50 */
obj_t BgL_port3251z00_823;
{ /* Tools/error.scm 50 */
obj_t BgL_res3367z00_1300;
{ /* Tools/error.scm 50 */
obj_t BgL_auxz00_1492;
BgL_auxz00_1492 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3367z00_1300 = BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1492);
}
BgL_port3251z00_823 = BgL_res3367z00_1300;
}
bgl_display_string(BGl_string3377z00zztools_errorz00,
BgL_port3251z00_823);
bgl_display_char(((unsigned char) '\n'), BgL_port3251z00_823);
bgl_display_obj(BGl_za2bigloozd2authorza2zd2zzengine_paramz00,
BgL_port3251z00_823);
bgl_display_string(BGl_string3378z00zztools_errorz00,
BgL_port3251z00_823);
bgl_display_obj(BGl_za2bigloozd2emailza2zd2zzengine_paramz00,
BgL_port3251z00_823);
bgl_display_string(BGl_string3379z00zztools_errorz00,
BgL_port3251z00_823);
bgl_display_char(((unsigned char) '\n'), BgL_port3251z00_823);
}
BGl_errorz00zz__errorz00(BgL_procz00_15, BgL_mesz00_16, BgL_objz00_17);
return BGl_compilerzd2exitzd2zzinit_mainz00(BINT(((long) 1)));
}
}
/* display-to-column */
obj_t BGl_displayzd2tozd2columnz00zzwrite_versionz00(obj_t BgL_stringz00_2,
long BgL_columnz00_3, unsigned char BgL_charz00_4)
{
AN_OBJECT;
{ /* Write/version.scm 89 */
{ /* Write/version.scm 90 */
obj_t BgL_arg1565z00_146;
{ /* Write/version.scm 90 */
obj_t BgL_res1582z00_206;
{ /* Write/version.scm 90 */
obj_t BgL_auxz00_360;
BgL_auxz00_360 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1582z00_206 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_360);
}
BgL_arg1565z00_146 = BgL_res1582z00_206;
}
bgl_display_obj(BgL_stringz00_2, BgL_arg1565z00_146);
}
{ /* Write/version.scm 91 */
long BgL_g1509z00_147;
BgL_g1509z00_147 = (((long) 1) + STRING_LENGTH(BgL_stringz00_2));
{
long BgL_lz00_149;
BgL_lz00_149 = BgL_g1509z00_147;
BgL_zc3anonymousza31566ze3z83_150:
if ((BgL_lz00_149 == BgL_columnz00_3))
{ /* Write/version.scm 92 */
return CNST_TABLE_REF(((long) 1));
}
else
{ /* Write/version.scm 92 */
{ /* Write/version.scm 95 */
obj_t BgL_arg1568z00_152;
{ /* Write/version.scm 95 */
obj_t BgL_res1583z00_213;
{ /* Write/version.scm 95 */
obj_t BgL_auxz00_369;
BgL_auxz00_369 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1583z00_213 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_369);
}
BgL_arg1568z00_152 = BgL_res1583z00_213;
}
bgl_display_char(BgL_charz00_4, BgL_arg1568z00_152);
}
{
long BgL_lz00_373;
BgL_lz00_373 = (BgL_lz00_149 + ((long) 1));
BgL_lz00_149 = BgL_lz00_373;
goto BgL_zc3anonymousza31566ze3z83_150;
}
}
}
}
}
}
/* horse */
obj_t BGl_horsez00zzwrite_versionz00(obj_t BgL_lz00_1)
{
AN_OBJECT;
{ /* Write/version.scm 62 */
{ /* Write/version.scm 63 */
obj_t BgL_g1508z00_123;
BgL_g1508z00_123 = CNST_TABLE_REF(((long) 0));
{
obj_t BgL_lz00_125;
obj_t BgL_horsez00_126;
BgL_lz00_125 = BgL_lz00_1;
BgL_horsez00_126 = BgL_g1508z00_123;
BgL_zc3anonymousza31547ze3z83_127:
if (NULLP(BgL_lz00_125))
{ /* Write/version.scm 71 */
if (NULLP(BgL_horsez00_126))
{ /* Write/version.scm 72 */
return CNST_TABLE_REF(((long) 1));
}
else
{ /* Write/version.scm 72 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1584z00zzwrite_versionz00, ((long) 62),
((unsigned char) ' '));
{ /* Write/version.scm 76 */
obj_t BgL_port1512z00_130;
{ /* Write/version.scm 76 */
obj_t BgL_res1579z00_188;
{ /* Write/version.scm 76 */
obj_t BgL_auxz00_328;
BgL_auxz00_328 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1579z00_188 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_328);
}
BgL_port1512z00_130 = BgL_res1579z00_188;
}
bgl_display_obj(CAR(BgL_horsez00_126), BgL_port1512z00_130);
bgl_display_char(((unsigned char) '\n'),
BgL_port1512z00_130);
}
{
obj_t BgL_horsez00_335;
obj_t BgL_lz00_334;
BgL_lz00_334 = BNIL;
BgL_horsez00_335 = CDR(BgL_horsez00_126);
BgL_horsez00_126 = BgL_horsez00_335;
BgL_lz00_125 = BgL_lz00_334;
goto BgL_zc3anonymousza31547ze3z83_127;
}
}
}
else
{ /* Write/version.scm 71 */
if (NULLP(BgL_horsez00_126))
{ /* Write/version.scm 78 */
{ /* Write/version.scm 79 */
obj_t BgL_port1513z00_135;
{ /* Write/version.scm 79 */
obj_t BgL_res1580z00_194;
{ /* Write/version.scm 79 */
obj_t BgL_auxz00_339;
BgL_auxz00_339 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1580z00_194 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_339);
}
BgL_port1513z00_135 = BgL_res1580z00_194;
}
bgl_display_obj(CAR(BgL_lz00_125), BgL_port1513z00_135);
bgl_display_char(((unsigned char) '\n'),
BgL_port1513z00_135);
}
{
obj_t BgL_horsez00_347;
obj_t BgL_lz00_345;
BgL_lz00_345 = CDR(BgL_lz00_125);
BgL_horsez00_347 = BNIL;
BgL_horsez00_126 = BgL_horsez00_347;
BgL_lz00_125 = BgL_lz00_345;
goto BgL_zc3anonymousza31547ze3z83_127;
}
}
else
{ /* Write/version.scm 78 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00(CAR
(BgL_lz00_125), ((long) 62), ((unsigned char) ' '));
{ /* Write/version.scm 83 */
obj_t BgL_port1514z00_141;
{ /* Write/version.scm 83 */
obj_t BgL_res1581z00_200;
{ /* Write/version.scm 83 */
obj_t BgL_auxz00_350;
BgL_auxz00_350 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1581z00_200 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_350);
}
BgL_port1514z00_141 = BgL_res1581z00_200;
}
bgl_display_obj(CAR(BgL_horsez00_126), BgL_port1514z00_141);
bgl_display_char(((unsigned char) '\n'),
BgL_port1514z00_141);
}
{
obj_t BgL_horsez00_358;
obj_t BgL_lz00_356;
BgL_lz00_356 = CDR(BgL_lz00_125);
BgL_horsez00_358 = CDR(BgL_horsez00_126);
BgL_horsez00_126 = BgL_horsez00_358;
BgL_lz00_125 = BgL_lz00_356;
goto BgL_zc3anonymousza31547ze3z83_127;
}
}
}
}
}
}
}
/* effect-walk! */
BGL_EXPORTED_DEF obj_t BGl_effectzd2walkz12zc0zzeffect_walkz00(obj_t
BgL_globalsz00_1, bool_t BgL_feffectz00_2)
{
AN_OBJECT;
{ /* Effect/walk.scm 33 */
{ /* Effect/walk.scm 34 */
obj_t BgL_list3397z00_789;
{ /* Effect/walk.scm 34 */
obj_t BgL_arg3399z00_791;
{ /* Effect/walk.scm 34 */
obj_t BgL_arg3401z00_793;
BgL_arg3401z00_793 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3399z00_791 =
MAKE_PAIR(BGl_string3566z00zzeffect_walkz00, BgL_arg3401z00_793);
}
BgL_list3397z00_789 =
MAKE_PAIR(BGl_string3567z00zzeffect_walkz00, BgL_arg3399z00_791);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3397z00_789);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3566z00zzeffect_walkz00;
{
obj_t BgL_hooksz00_797;
obj_t BgL_hnamesz00_798;
BgL_hooksz00_797 = BNIL;
BgL_hnamesz00_798 = BNIL;
BgL_zc3anonymousza33402ze3z83_799:
if (NULLP(BgL_hooksz00_797))
{ /* Effect/walk.scm 34 */
CNST_TABLE_REF(((long) 0));
}
else
{ /* Effect/walk.scm 34 */
bool_t BgL_testz00_1471;
{ /* Effect/walk.scm 34 */
obj_t BgL_fun3410z00_807;
BgL_fun3410z00_807 = CAR(BgL_hooksz00_797);
BgL_testz00_1471 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3410z00_807) (BgL_fun3410z00_807,
BEOA));
}
if (BgL_testz00_1471)
{
obj_t BgL_hnamesz00_1478;
obj_t BgL_hooksz00_1476;
BgL_hooksz00_1476 = CDR(BgL_hooksz00_797);
BgL_hnamesz00_1478 = CDR(BgL_hnamesz00_798);
BgL_hnamesz00_798 = BgL_hnamesz00_1478;
BgL_hooksz00_797 = BgL_hooksz00_1476;
goto BgL_zc3anonymousza33402ze3z83_799;
}
else
{ /* Effect/walk.scm 34 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3566z00zzeffect_walkz00,
BGl_string3568z00zzeffect_walkz00, CAR(BgL_hnamesz00_798));
}
}
}
{
obj_t BgL_l3384z00_811;
BgL_l3384z00_811 = BgL_globalsz00_1;
BgL_zc3anonymousza33412ze3z83_812:
if (PAIRP(BgL_l3384z00_811))
{ /* Effect/walk.scm 37 */
{ /* Effect/walk.scm 38 */
obj_t BgL_globalz00_814;
BgL_globalz00_814 = CAR(BgL_l3384z00_811);
BGl_funzd2callzd2graphz12z12zzeffect_cgraphz00(
(BgL_variablez00_bglt) (BgL_globalz00_814));
}
{
obj_t BgL_l3384z00_1487;
BgL_l3384z00_1487 = CDR(BgL_l3384z00_811);
BgL_l3384z00_811 = BgL_l3384z00_1487;
goto BgL_zc3anonymousza33412ze3z83_812;
}
}
else
{ /* Effect/walk.scm 37 */
((bool_t) 1);
}
}
BGl_iteratezd2tozd2fixzd2pointz12zc0zzeffect_walkz00
(BGl_getzd2varzf2sidezd2effectzf2zzeffect_cgraphz00());
{ /* Effect/walk.scm 44 */
obj_t BgL_g3388z00_818;
BgL_g3388z00_818 = BGl_getzd2varzf2allz20zzeffect_cgraphz00();
{
obj_t BgL_l3386z00_820;
BgL_l3386z00_820 = BgL_g3388z00_818;
BgL_zc3anonymousza33416ze3z83_821:
if (PAIRP(BgL_l3386z00_820))
{ /* Effect/walk.scm 48 */
{ /* Effect/walk.scm 45 */
obj_t BgL_varz00_823;
BgL_varz00_823 = CAR(BgL_l3386z00_820);
{ /* Effect/walk.scm 45 */
BgL_valuez00_bglt BgL_funz00_824;
{
BgL_variablez00_bglt BgL_auxz00_1495;
BgL_auxz00_1495 = (BgL_variablez00_bglt) (BgL_varz00_823);
BgL_funz00_824 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1495))->
BgL_valuez00);
}
{ /* Effect/walk.scm 46 */
bool_t BgL_testz00_1498;
{ /* Effect/walk.scm 46 */
obj_t BgL_auxz00_1499;
{
BgL_funz00_bglt BgL_auxz00_1500;
BgL_auxz00_1500 = (BgL_funz00_bglt) (BgL_funz00_824);
BgL_auxz00_1499 =
(((BgL_funz00_bglt) CREF(BgL_auxz00_1500))->
BgL_sidezd2effectzf3z21);
}
BgL_testz00_1498 = (BgL_auxz00_1499 == BUNSPEC);
}
if (BgL_testz00_1498)
{
BgL_funz00_bglt BgL_auxz00_1504;
BgL_auxz00_1504 = (BgL_funz00_bglt) (BgL_funz00_824);
((((BgL_funz00_bglt) CREF(BgL_auxz00_1504))->
BgL_sidezd2effectzf3z21) =
((obj_t) BFALSE), BUNSPEC);
}
else
{ /* Effect/walk.scm 46 */
BFALSE;
}
}
}
}
{
obj_t BgL_l3386z00_1507;
BgL_l3386z00_1507 = CDR(BgL_l3386z00_820);
BgL_l3386z00_820 = BgL_l3386z00_1507;
goto BgL_zc3anonymousza33416ze3z83_821;
}
}
else
{ /* Effect/walk.scm 48 */
((bool_t) 1);
}
}
}
{
obj_t BgL_l3389z00_830;
BgL_l3389z00_830 = BgL_globalsz00_1;
BgL_zc3anonymousza33421ze3z83_831:
if (PAIRP(BgL_l3389z00_830))
{ /* Effect/walk.scm 51 */
{ /* Effect/walk.scm 52 */
obj_t BgL_globalz00_833;
BgL_globalz00_833 = CAR(BgL_l3389z00_830);
{ /* Effect/walk.scm 52 */
obj_t BgL_arg3424z00_834;
{ /* Effect/walk.scm 52 */
BgL_sfunz00_bglt BgL_obj1884z00_1345;
{ /* Effect/walk.scm 52 */
BgL_variablez00_bglt BgL_obj1611z00_1344;
BgL_obj1611z00_1344 =
(BgL_variablez00_bglt) (BgL_globalz00_833);
BgL_obj1884z00_1345 =
(BgL_sfunz00_bglt) (
(((BgL_variablez00_bglt) CREF(BgL_obj1611z00_1344))->
BgL_valuez00));
}
BgL_arg3424z00_834 =
(((BgL_sfunz00_bglt) CREF(BgL_obj1884z00_1345))->
BgL_bodyz00);
}
BGl_spreadzd2sidezd2effectz12z12zzeffect_spreadz00(
(BgL_nodez00_bglt) (BgL_arg3424z00_834));
}
}
{
obj_t BgL_l3389z00_1518;
BgL_l3389z00_1518 = CDR(BgL_l3389z00_830);
BgL_l3389z00_830 = BgL_l3389z00_1518;
goto BgL_zc3anonymousza33421ze3z83_831;
}
}
else
{ /* Effect/walk.scm 51 */
((bool_t) 1);
}
}
if (BgL_feffectz00_2)
{ /* Effect/walk.scm 57 */
BGl_feffectz12z12zzeffect_feffectz00(BgL_globalsz00_1);
}
else
{ /* Effect/walk.scm 57 */
BFALSE;
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Effect/walk.scm 60 */
{ /* Effect/walk.scm 60 */
obj_t BgL_port3391z00_840;
{ /* Effect/walk.scm 60 */
obj_t BgL_res3559z00_1350;
{ /* Effect/walk.scm 60 */
obj_t BgL_auxz00_1525;
BgL_auxz00_1525 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3559z00_1350 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1525);
}
BgL_port3391z00_840 = BgL_res3559z00_1350;
}
bgl_display_obj(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3391z00_840);
bgl_display_string(BGl_string3569z00zzeffect_walkz00,
BgL_port3391z00_840);
{ /* Effect/walk.scm 60 */
obj_t BgL_arg3430z00_841;
{ /* Effect/walk.scm 60 */
bool_t BgL_testz00_1530;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Effect/walk.scm 60 */
BgL_testz00_1530 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Effect/walk.scm 60 */
BgL_testz00_1530 = ((bool_t) 0);
}
if (BgL_testz00_1530)
{ /* Effect/walk.scm 60 */
BgL_arg3430z00_841 = BGl_string3570z00zzeffect_walkz00;
}
else
{ /* Effect/walk.scm 60 */
BgL_arg3430z00_841 = BGl_string3571z00zzeffect_walkz00;
}
}
bgl_display_obj(BgL_arg3430z00_841, BgL_port3391z00_840);
}
bgl_display_string(BGl_string3572z00zzeffect_walkz00,
BgL_port3391z00_840);
bgl_display_char(((unsigned char) '\n'), BgL_port3391z00_840);
}
{ /* Effect/walk.scm 60 */
obj_t BgL_list3433z00_844;
BgL_list3433z00_844 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3433z00_844);
}
}
else
{ /* Effect/walk.scm 60 */
obj_t BgL_g3377z00_845;
obj_t BgL_g3378z00_846;
{ /* Effect/walk.scm 60 */
obj_t BgL_list3442z00_859;
BgL_list3442z00_859 =
MAKE_PAIR
(BGl_resetzd2effectzd2tablesz12zd2envzc0zzeffect_cgraphz00, BNIL);
BgL_g3377z00_845 = BgL_list3442z00_859;
}
BgL_g3378z00_846 = CNST_TABLE_REF(((long) 1));
{
obj_t BgL_hooksz00_848;
obj_t BgL_hnamesz00_849;
BgL_hooksz00_848 = BgL_g3377z00_845;
BgL_hnamesz00_849 = BgL_g3378z00_846;
BgL_zc3anonymousza33434ze3z83_850:
if (NULLP(BgL_hooksz00_848))
{ /* Effect/walk.scm 60 */
return BgL_globalsz00_1;
}
else
{ /* Effect/walk.scm 60 */
bool_t BgL_testz00_1545;
{ /* Effect/walk.scm 60 */
obj_t BgL_fun3441z00_857;
BgL_fun3441z00_857 = CAR(BgL_hooksz00_848);
BgL_testz00_1545 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3441z00_857)
(BgL_fun3441z00_857, BEOA));
}
if (BgL_testz00_1545)
{
obj_t BgL_hnamesz00_1552;
obj_t BgL_hooksz00_1550;
BgL_hooksz00_1550 = CDR(BgL_hooksz00_848);
BgL_hnamesz00_1552 = CDR(BgL_hnamesz00_849);
BgL_hnamesz00_849 = BgL_hnamesz00_1552;
BgL_hooksz00_848 = BgL_hooksz00_1550;
goto BgL_zc3anonymousza33434ze3z83_850;
}
else
{ /* Effect/walk.scm 60 */
obj_t BgL_arg3440z00_856;
BgL_arg3440z00_856 = CAR(BgL_hnamesz00_849);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3573z00zzeffect_walkz00, BgL_arg3440z00_856);
}
}
}
}
}
}
/* cnst-walk! */
BGL_EXPORTED_DEF obj_t BGl_cnstzd2walkz12zc0zzcnst_walkz00(obj_t
BgL_globalsz00_1)
{
AN_OBJECT;
{ /* Cnst/walk.scm 33 */
{ /* Cnst/walk.scm 34 */
obj_t BgL_list3253z00_774;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3255z00_776;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3257z00_778;
BgL_arg3257z00_778 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3255z00_776 =
MAKE_PAIR(BGl_string3350z00zzcnst_walkz00, BgL_arg3257z00_778);
}
BgL_list3253z00_774 =
MAKE_PAIR(BGl_string3351z00zzcnst_walkz00, BgL_arg3255z00_776);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3253z00_774);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3350z00zzcnst_walkz00;
{ /* Cnst/walk.scm 34 */
obj_t BgL_g3246z00_779;
obj_t BgL_g3247z00_780;
{ /* Cnst/walk.scm 34 */
obj_t BgL_list3267z00_794;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3268z00_795;
{ /* Cnst/walk.scm 34 */
obj_t BgL_arg3269z00_796;
BgL_arg3269z00_796 =
MAKE_PAIR(BGl_unsafez12zd2envzc0zzcnst_walkz00, BNIL);
BgL_arg3268z00_795 =
MAKE_PAIR(BGl_startzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
BgL_arg3269z00_796);
}
BgL_list3267z00_794 =
MAKE_PAIR(BGl_startzd2cnstzd2cachez12zd2envzc0zzcnst_cachez00,
BgL_arg3268z00_795);
}
BgL_g3246z00_779 = BgL_list3267z00_794;
}
BgL_g3247z00_780 = CNST_TABLE_REF(((long) 0));
{
obj_t BgL_hooksz00_782;
obj_t BgL_hnamesz00_783;
BgL_hooksz00_782 = BgL_g3246z00_779;
BgL_hnamesz00_783 = BgL_g3247z00_780;
BgL_zc3anonymousza33258ze3z83_784:
if (NULLP(BgL_hooksz00_782))
{ /* Cnst/walk.scm 34 */
CNST_TABLE_REF(((long) 1));
}
else
{ /* Cnst/walk.scm 34 */
bool_t BgL_testz00_1301;
{ /* Cnst/walk.scm 34 */
obj_t BgL_fun3266z00_792;
BgL_fun3266z00_792 = CAR(BgL_hooksz00_782);
BgL_testz00_1301 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3266z00_792) (BgL_fun3266z00_792,
BEOA));
}
if (BgL_testz00_1301)
{
obj_t BgL_hnamesz00_1308;
obj_t BgL_hooksz00_1306;
BgL_hooksz00_1306 = CDR(BgL_hooksz00_782);
BgL_hnamesz00_1308 = CDR(BgL_hnamesz00_783);
BgL_hnamesz00_783 = BgL_hnamesz00_1308;
BgL_hooksz00_782 = BgL_hooksz00_1306;
goto BgL_zc3anonymousza33258ze3z83_784;
}
else
{ /* Cnst/walk.scm 34 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3350z00zzcnst_walkz00,
BGl_string3352z00zzcnst_walkz00, CAR(BgL_hnamesz00_783));
}
}
}
}
{ /* Cnst/walk.scm 35 */
obj_t BgL_list3270z00_797;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3272z00_799;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3273z00_800;
{ /* Cnst/walk.scm 35 */
obj_t BgL_arg3274z00_801;
BgL_arg3274z00_801 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3273z00_800 =
MAKE_PAIR(BCHAR(((unsigned char) ']')), BgL_arg3274z00_801);
}
BgL_arg3272z00_799 =
MAKE_PAIR(BGl_za2initzd2modeza2zd2zzengine_paramz00,
BgL_arg3273z00_800);
}
BgL_list3270z00_797 =
MAKE_PAIR(BGl_string3353z00zzcnst_walkz00, BgL_arg3272z00_799);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 2)), BgL_list3270z00_797);
}
{
obj_t BgL_l3250z00_803;
BgL_l3250z00_803 = BgL_globalsz00_1;
BgL_zc3anonymousza33275ze3z83_804:
if (PAIRP(BgL_l3250z00_803))
{ /* Cnst/walk.scm 36 */
{ /* Cnst/walk.scm 41 */
obj_t BgL_globalz00_806;
BgL_globalz00_806 = CAR(BgL_l3250z00_803);
{ /* Cnst/walk.scm 37 */
obj_t BgL_arg3277z00_807;
{
BgL_variablez00_bglt BgL_auxz00_1323;
BgL_auxz00_1323 = (BgL_variablez00_bglt) (BgL_globalz00_806);
BgL_arg3277z00_807 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1323))->BgL_idz00);
}
BGl_enterzd2functionzd2zztools_errorz00(BgL_arg3277z00_807);
}
{ /* Cnst/walk.scm 38 */
BgL_valuez00_bglt BgL_funz00_808;
{
BgL_variablez00_bglt BgL_auxz00_1327;
BgL_auxz00_1327 = (BgL_variablez00_bglt) (BgL_globalz00_806);
BgL_funz00_808 =
(((BgL_variablez00_bglt) CREF(BgL_auxz00_1327))->
BgL_valuez00);
}
{ /* Cnst/walk.scm 38 */
BgL_nodez00_bglt BgL_newzd2bodyzd2_809;
{ /* Cnst/walk.scm 39 */
obj_t BgL_arg3278z00_810;
{
BgL_sfunz00_bglt BgL_auxz00_1330;
BgL_auxz00_1330 = (BgL_sfunz00_bglt) (BgL_funz00_808);
BgL_arg3278z00_810 =
(((BgL_sfunz00_bglt) CREF(BgL_auxz00_1330))->
BgL_bodyz00);
}
BgL_newzd2bodyzd2_809 =
BGl_cnstz12z12zzcnst_nodez00(
(BgL_nodez00_bglt) (BgL_arg3278z00_810));
}
{ /* Cnst/walk.scm 39 */
{
obj_t BgL_auxz00_1337;
BgL_sfunz00_bglt BgL_auxz00_1335;
BgL_auxz00_1337 = (obj_t) (BgL_newzd2bodyzd2_809);
BgL_auxz00_1335 = (BgL_sfunz00_bglt) (BgL_funz00_808);
((((BgL_sfunz00_bglt) CREF(BgL_auxz00_1335))->
BgL_bodyz00) = ((obj_t) BgL_auxz00_1337), BUNSPEC);
}
}
}
}
BGl_leavezd2functionzd2zztools_errorz00();
}
{
obj_t BgL_l3250z00_1341;
BgL_l3250z00_1341 = CDR(BgL_l3250z00_803);
BgL_l3250z00_803 = BgL_l3250z00_1341;
goto BgL_zc3anonymousza33275ze3z83_804;
}
}
else
{ /* Cnst/walk.scm 36 */
((bool_t) 1);
}
}
{ /* Cnst/walk.scm 43 */
obj_t BgL_valuez00_813;
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3295z00_836;
obj_t BgL_arg3296z00_837;
BgL_arg3295z00_836 = CNST_TABLE_REF(((long) 2));
BgL_arg3296z00_837 =
bgl_append2(BGl_initializa7ezd2astz75zzcnst_initializa7eza7(),
BgL_globalsz00_1);
BgL_valuez00_813 =
BGl_removezd2varzd2zzast_removez00(BgL_arg3295z00_836,
BgL_arg3296z00_837);
}
if (
((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Cnst/walk.scm 43 */
{ /* Cnst/walk.scm 43 */
obj_t BgL_port3252z00_815;
{ /* Cnst/walk.scm 43 */
obj_t BgL_res3348z00_1231;
{ /* Cnst/walk.scm 43 */
obj_t BgL_auxz00_1350;
BgL_auxz00_1350 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3348z00_1231 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1350);
}
BgL_port3252z00_815 = BgL_res3348z00_1231;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3252z00_815);
bgl_display_string(BGl_string3354z00zzcnst_walkz00,
BgL_port3252z00_815);
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3281z00_816;
{ /* Cnst/walk.scm 43 */
bool_t BgL_testz00_1355;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Cnst/walk.scm 43 */
BgL_testz00_1355 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Cnst/walk.scm 43 */
BgL_testz00_1355 = ((bool_t) 0);
}
if (BgL_testz00_1355)
{ /* Cnst/walk.scm 43 */
BgL_arg3281z00_816 = BGl_string3355z00zzcnst_walkz00;
}
else
{ /* Cnst/walk.scm 43 */
BgL_arg3281z00_816 = BGl_string3356z00zzcnst_walkz00;
}
}
bgl_display_obj(BgL_arg3281z00_816, BgL_port3252z00_815);
}
bgl_display_string(BGl_string3357z00zzcnst_walkz00,
BgL_port3252z00_815);
bgl_display_char(((unsigned char) '\n'), BgL_port3252z00_815);
}
{ /* Cnst/walk.scm 43 */
obj_t BgL_list3284z00_819;
BgL_list3284z00_819 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3284z00_819);
}
}
else
{ /* Cnst/walk.scm 43 */
obj_t BgL_g3248z00_820;
obj_t BgL_g3249z00_821;
{ /* Cnst/walk.scm 43 */
obj_t BgL_list3293z00_834;
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3294z00_835;
BgL_arg3294z00_835 =
MAKE_PAIR(BGl_safez12zd2envzc0zzcnst_walkz00, BNIL);
BgL_list3293z00_834 =
MAKE_PAIR(BGl_stopzd2cnstzd2allocz12zd2envzc0zzcnst_allocz00,
BgL_arg3294z00_835);
}
BgL_g3248z00_820 = BgL_list3293z00_834;
}
BgL_g3249z00_821 = CNST_TABLE_REF(((long) 3));
{
obj_t BgL_hooksz00_823;
obj_t BgL_hnamesz00_824;
BgL_hooksz00_823 = BgL_g3248z00_820;
BgL_hnamesz00_824 = BgL_g3249z00_821;
BgL_zc3anonymousza33285ze3z83_825:
if (NULLP(BgL_hooksz00_823))
{ /* Cnst/walk.scm 43 */
return BgL_valuez00_813;
}
else
{ /* Cnst/walk.scm 43 */
bool_t BgL_testz00_1371;
{ /* Cnst/walk.scm 43 */
obj_t BgL_fun3292z00_832;
BgL_fun3292z00_832 = CAR(BgL_hooksz00_823);
BgL_testz00_1371 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3292z00_832)
(BgL_fun3292z00_832, BEOA));
}
if (BgL_testz00_1371)
{
obj_t BgL_hnamesz00_1378;
obj_t BgL_hooksz00_1376;
BgL_hooksz00_1376 = CDR(BgL_hooksz00_823);
BgL_hnamesz00_1378 = CDR(BgL_hnamesz00_824);
BgL_hnamesz00_824 = BgL_hnamesz00_1378;
BgL_hooksz00_823 = BgL_hooksz00_1376;
goto BgL_zc3anonymousza33285ze3z83_825;
}
else
{ /* Cnst/walk.scm 43 */
obj_t BgL_arg3291z00_831;
BgL_arg3291z00_831 = CAR(BgL_hnamesz00_824);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3358z00zzcnst_walkz00, BgL_arg3291z00_831);
}
}
}
}
}
}
}
/* bdb-walk! */
BGL_EXPORTED_DEF obj_t BGl_bdbzd2walkz12zc0zzbdb_walkz00(obj_t
BgL_globalsz00_1)
{
AN_OBJECT;
{ /* Bdb/walk.scm 30 */
{ /* Bdb/walk.scm 31 */
obj_t BgL_list3251z00_774;
{ /* Bdb/walk.scm 31 */
obj_t BgL_arg3253z00_776;
{ /* Bdb/walk.scm 31 */
obj_t BgL_arg3255z00_778;
BgL_arg3255z00_778 = MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_arg3253z00_776 =
MAKE_PAIR(BGl_string3332z00zzbdb_walkz00, BgL_arg3255z00_778);
}
BgL_list3251z00_774 =
MAKE_PAIR(BGl_string3333z00zzbdb_walkz00, BgL_arg3253z00_776);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 1)), BgL_list3251z00_774);
}
BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00 = BINT(((long) 0));
BGl_za2currentzd2passza2zd2zzengine_passz00 =
BGl_string3332z00zzbdb_walkz00;
{
obj_t BgL_hooksz00_782;
obj_t BgL_hnamesz00_783;
BgL_hooksz00_782 = BNIL;
BgL_hnamesz00_783 = BNIL;
BgL_zc3anonymousza33256ze3z83_784:
if (NULLP(BgL_hooksz00_782))
{ /* Bdb/walk.scm 31 */
CNST_TABLE_REF(((long) 0));
}
else
{ /* Bdb/walk.scm 31 */
bool_t BgL_testz00_1262;
{ /* Bdb/walk.scm 31 */
obj_t BgL_fun3264z00_792;
BgL_fun3264z00_792 = CAR(BgL_hooksz00_782);
BgL_testz00_1262 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3264z00_792) (BgL_fun3264z00_792,
BEOA));
}
if (BgL_testz00_1262)
{
obj_t BgL_hnamesz00_1269;
obj_t BgL_hooksz00_1267;
BgL_hooksz00_1267 = CDR(BgL_hooksz00_782);
BgL_hnamesz00_1269 = CDR(BgL_hnamesz00_783);
BgL_hnamesz00_783 = BgL_hnamesz00_1269;
BgL_hooksz00_782 = BgL_hooksz00_1267;
goto BgL_zc3anonymousza33256ze3z83_784;
}
else
{ /* Bdb/walk.scm 31 */
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string3332z00zzbdb_walkz00,
BGl_string3334z00zzbdb_walkz00, CAR(BgL_hnamesz00_783));
}
}
}
{ /* Bdb/walk.scm 32 */
obj_t BgL_valuez00_795;
BgL_valuez00_795 =
bgl_append2(BGl_initializa7ezd2astz75zzbdb_initializa7eza7(),
BgL_globalsz00_1);
if (((long) CINT(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00) >
((long) 0)))
{ /* Bdb/walk.scm 32 */
{ /* Bdb/walk.scm 32 */
obj_t BgL_port3250z00_797;
{ /* Bdb/walk.scm 32 */
obj_t BgL_res3330z00_1202;
{ /* Bdb/walk.scm 32 */
obj_t BgL_auxz00_1278;
BgL_auxz00_1278 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3330z00_1202 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1278);
}
BgL_port3250z00_797 = BgL_res3330z00_1202;
}
bgl_display_obj
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BgL_port3250z00_797);
bgl_display_string(BGl_string3335z00zzbdb_walkz00,
BgL_port3250z00_797);
{ /* Bdb/walk.scm 32 */
obj_t BgL_arg3267z00_798;
{ /* Bdb/walk.scm 32 */
bool_t BgL_testz00_1283;
if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00))
{ /* Bdb/walk.scm 32 */
BgL_testz00_1283 =
BGl_2ze3ze3zz__r4_numbers_6_5z00
(BGl_za2nbzd2errorzd2onzd2passza2zd2zztools_errorz00,
BINT(((long) 1)));
}
else
{ /* Bdb/walk.scm 32 */
BgL_testz00_1283 = ((bool_t) 0);
}
if (BgL_testz00_1283)
{ /* Bdb/walk.scm 32 */
BgL_arg3267z00_798 = BGl_string3336z00zzbdb_walkz00;
}
else
{ /* Bdb/walk.scm 32 */
BgL_arg3267z00_798 = BGl_string3337z00zzbdb_walkz00;
}
}
bgl_display_obj(BgL_arg3267z00_798, BgL_port3250z00_797);
}
bgl_display_string(BGl_string3338z00zzbdb_walkz00,
BgL_port3250z00_797);
bgl_display_char(((unsigned char) '\n'), BgL_port3250z00_797);
}
{ /* Bdb/walk.scm 32 */
obj_t BgL_list3270z00_801;
BgL_list3270z00_801 = MAKE_PAIR(BINT(((long) -1)), BNIL);
return BGl_exitz00zz__errorz00(BgL_list3270z00_801);
}
}
else
{
obj_t BgL_hooksz00_805;
obj_t BgL_hnamesz00_806;
BgL_hooksz00_805 = BNIL;
BgL_hnamesz00_806 = BNIL;
BgL_zc3anonymousza33271ze3z83_807:
if (NULLP(BgL_hooksz00_805))
{ /* Bdb/walk.scm 32 */
return BgL_valuez00_795;
}
else
{ /* Bdb/walk.scm 32 */
bool_t BgL_testz00_1296;
{ /* Bdb/walk.scm 32 */
obj_t BgL_fun3278z00_814;
BgL_fun3278z00_814 = CAR(BgL_hooksz00_805);
BgL_testz00_1296 =
CBOOL(PROCEDURE_ENTRY(BgL_fun3278z00_814)
(BgL_fun3278z00_814, BEOA));
}
if (BgL_testz00_1296)
{
obj_t BgL_hnamesz00_1303;
obj_t BgL_hooksz00_1301;
BgL_hooksz00_1301 = CDR(BgL_hooksz00_805);
BgL_hnamesz00_1303 = CDR(BgL_hnamesz00_806);
BgL_hnamesz00_806 = BgL_hnamesz00_1303;
BgL_hooksz00_805 = BgL_hooksz00_1301;
goto BgL_zc3anonymousza33271ze3z83_807;
}
else
{ /* Bdb/walk.scm 32 */
obj_t BgL_arg3277z00_813;
BgL_arg3277z00_813 = CAR(BgL_hnamesz00_806);
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_za2currentzd2passza2zd2zzengine_passz00,
BGl_string3339z00zzbdb_walkz00, BgL_arg3277z00_813);
}
}
}
}
}
}
/* <anonymous:1896> */
obj_t BGl_zc3anonymousza31896ze3z83zz__lalr_driverz00(obj_t BgL_envz00_1579,
obj_t BgL_rgcz00_1582, obj_t BgL_inputzd2portzd2_1583,
obj_t BgL_iszd2eofzf3z21_1584)
{
AN_OBJECT;
{ /* Lalr/driver.scm 61 */
{ /* Lalr/driver.scm 69 */
obj_t BgL_actionzd2tablezd2_1580;
obj_t BgL_reductionzd2functionzd2_1581;
BgL_actionzd2tablezd2_1580 =
PROCEDURE_REF(BgL_envz00_1579, (int) (((long) 0)));
BgL_reductionzd2functionzd2_1581 =
PROCEDURE_REF(BgL_envz00_1579, (int) (((long) 1)));
{
obj_t BgL_rgcz00_782;
obj_t BgL_inputzd2portzd2_783;
obj_t BgL_iszd2eofzf3z21_784;
BgL_rgcz00_782 = BgL_rgcz00_1582;
BgL_inputzd2portzd2_783 = BgL_inputzd2portzd2_1583;
BgL_iszd2eofzf3z21_784 = BgL_iszd2eofzf3z21_1584;
{ /* Lalr/driver.scm 69 */
obj_t BgL_stackz00_787;
obj_t BgL_statez00_788;
obj_t BgL_inputz00_789;
obj_t BgL_inz00_790;
obj_t BgL_attrz00_791;
obj_t BgL_actsz00_792;
obj_t BgL_actz00_793;
bool_t BgL_eofzf3zf3_794;
bool_t BgL_debugz00_795;
BgL_stackz00_787 =
make_vector(
(int) (BGl_za2maxzd2stackzd2siza7eza2za7zz__lalr_driverz00),
BINT(((long) 0)));
BgL_statez00_788 = BFALSE;
BgL_inputz00_789 = BFALSE;
BgL_inz00_790 = BFALSE;
BgL_attrz00_791 = BFALSE;
BgL_actsz00_792 = BFALSE;
BgL_actz00_793 = BFALSE;
BgL_eofzf3zf3_794 = ((bool_t) 0);
{ /* Lalr/driver.scm 77 */
int BgL_arg1940z00_840;
BgL_arg1940z00_840 = bgl_debug();
BgL_debugz00_795 = ((long) (BgL_arg1940z00_840) >= ((long) 100));
}
{
obj_t BgL_spz00_797;
BgL_spz00_797 = BINT(((long) 0));
BgL_zc3anonymousza31897ze3z83_798:
BgL_statez00_788 =
VECTOR_REF(BgL_stackz00_787, CINT(BgL_spz00_797));
BgL_actsz00_792 =
VECTOR_REF(BgL_actionzd2tablezd2_1580, CINT(BgL_statez00_788));
if (NULLP(CDR(BgL_actsz00_792)))
{ /* Lalr/driver.scm 84 */
obj_t BgL_pairz00_1311;
BgL_pairz00_1311 = BgL_actsz00_792;
BgL_actz00_793 = CDR(CAR(BgL_pairz00_1311));
}
else
{ /* Lalr/driver.scm 83 */
if (CBOOL(BgL_inputz00_789))
{ /* Lalr/driver.scm 86 */
BFALSE;
}
else
{ /* Lalr/driver.scm 86 */
BgL_inputz00_789 =
PROCEDURE_ENTRY(BgL_rgcz00_782) (BgL_rgcz00_782,
BgL_inputzd2portzd2_783, BEOA);
}
if (CBOOL(BgL_inputz00_789))
{ /* Lalr/driver.scm 88 */
((bool_t) 0);
}
else
{ /* Lalr/driver.scm 88 */
bgl_system_failure(BGL_IO_PARSE_ERROR,
BGl_symbol2208z00zz__lalr_driverz00,
BGl_string2210z00zz__lalr_driverz00, BFALSE);
}
if (CBOOL(PROCEDURE_ENTRY(BgL_iszd2eofzf3z21_784)
(BgL_iszd2eofzf3z21_784, BgL_inputz00_789, BEOA)))
{ /* Lalr/driver.scm 94 */
BgL_inz00_790 = BGl_symbol2211z00zz__lalr_driverz00;
BgL_attrz00_791 = BFALSE;
BgL_eofzf3zf3_794 = ((bool_t) 1);
}
else
{ /* Lalr/driver.scm 94 */
if (PAIRP(BgL_inputz00_789))
{ /* Lalr/driver.scm 98 */
BgL_inz00_790 = CAR(BgL_inputz00_789);
BgL_attrz00_791 = CDR(BgL_inputz00_789);
}
else
{ /* Lalr/driver.scm 98 */
BgL_inz00_790 = BgL_inputz00_789;
BgL_attrz00_791 = BFALSE;
}
}
{ /* Lalr/driver.scm 105 */
obj_t BgL_xz00_1318;
obj_t BgL_lz00_1319;
BgL_xz00_1318 = BgL_inz00_790;
BgL_lz00_1319 = BgL_actsz00_792;
{ /* Lalr/driver.scm 105 */
obj_t BgL_yz00_1320;
BgL_yz00_1320 =
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1318,
BgL_lz00_1319);
if (CBOOL(BgL_yz00_1320))
{ /* Lalr/driver.scm 105 */
BgL_actz00_793 = CDR(BgL_yz00_1320);
}
else
{ /* Lalr/driver.scm 105 */
obj_t BgL_pairz00_1322;
BgL_pairz00_1322 = BgL_lz00_1319;
BgL_actz00_793 = CDR(CAR(BgL_pairz00_1322));
}
}
}
}
if (BgL_debugz00_795)
{ /* Lalr/driver.scm 107 */
{ /* Lalr/driver.scm 108 */
obj_t BgL_arg1903z00_804;
{ /* Lalr/driver.scm 108 */
obj_t BgL_res2190z00_1327;
{ /* Lalr/driver.scm 108 */
obj_t BgL_auxz00_1662;
BgL_auxz00_1662 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2190z00_1327 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1662);
}
BgL_arg1903z00_804 = BgL_res2190z00_1327;
}
bgl_display_string(BGl_string2213z00zz__lalr_driverz00,
BgL_arg1903z00_804);
}
{ /* Lalr/driver.scm 109 */
obj_t BgL_arg1904z00_805;
{ /* Lalr/driver.scm 109 */
obj_t BgL_res2191z00_1331;
{ /* Lalr/driver.scm 109 */
obj_t BgL_auxz00_1666;
BgL_auxz00_1666 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2191z00_1331 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1666);
}
BgL_arg1904z00_805 = BgL_res2191z00_1331;
}
{ /* Lalr/driver.scm 109 */
obj_t BgL_list1905z00_806;
BgL_list1905z00_806 = MAKE_PAIR(BgL_arg1904z00_805, BNIL);
BGl_writez00zz__r4_output_6_10_3z00(BgL_inz00_790,
BgL_list1905z00_806);
}
}
{ /* Lalr/driver.scm 110 */
obj_t BgL_arg1907z00_808;
{ /* Lalr/driver.scm 110 */
obj_t BgL_res2192z00_1333;
{ /* Lalr/driver.scm 110 */
obj_t BgL_auxz00_1671;
BgL_auxz00_1671 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2192z00_1333 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1671);
}
BgL_arg1907z00_808 = BgL_res2192z00_1333;
}
bgl_display_string(BGl_string2214z00zz__lalr_driverz00,
BgL_arg1907z00_808);
}
{ /* Lalr/driver.scm 111 */
obj_t BgL_arg1908z00_809;
{ /* Lalr/driver.scm 111 */
obj_t BgL_res2193z00_1337;
{ /* Lalr/driver.scm 111 */
obj_t BgL_auxz00_1675;
BgL_auxz00_1675 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2193z00_1337 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1675);
}
BgL_arg1908z00_809 = BgL_res2193z00_1337;
}
{ /* Lalr/driver.scm 111 */
obj_t BgL_list1909z00_810;
BgL_list1909z00_810 = MAKE_PAIR(BgL_arg1908z00_809, BNIL);
BGl_writez00zz__r4_output_6_10_3z00(BgL_statez00_788,
BgL_list1909z00_810);
}
}
{ /* Lalr/driver.scm 112 */
obj_t BgL_arg1911z00_812;
{ /* Lalr/driver.scm 112 */
obj_t BgL_res2194z00_1339;
{ /* Lalr/driver.scm 112 */
obj_t BgL_auxz00_1680;
BgL_auxz00_1680 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2194z00_1339 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1680);
}
BgL_arg1911z00_812 = BgL_res2194z00_1339;
}
bgl_display_string(BGl_string2215z00zz__lalr_driverz00,
BgL_arg1911z00_812);
}
{ /* Lalr/driver.scm 113 */
obj_t BgL_arg1912z00_813;
{ /* Lalr/driver.scm 113 */
obj_t BgL_res2195z00_1343;
{ /* Lalr/driver.scm 113 */
obj_t BgL_auxz00_1684;
BgL_auxz00_1684 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2195z00_1343 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1684);
}
BgL_arg1912z00_813 = BgL_res2195z00_1343;
}
{ /* Lalr/driver.scm 113 */
obj_t BgL_list1913z00_814;
BgL_list1913z00_814 = MAKE_PAIR(BgL_arg1912z00_813, BNIL);
BGl_writez00zz__r4_output_6_10_3z00(BgL_spz00_797,
BgL_list1913z00_814);
}
}
{ /* Lalr/driver.scm 114 */
obj_t BgL_arg1914z00_815;
{ /* Lalr/driver.scm 114 */
obj_t BgL_res2196z00_1345;
{ /* Lalr/driver.scm 114 */
obj_t BgL_auxz00_1689;
BgL_auxz00_1689 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res2196z00_1345 =
BGL_ENV_CURRENT_ERROR_PORT(BgL_auxz00_1689);
}
BgL_arg1914z00_815 = BgL_res2196z00_1345;
}
bgl_display_char(((unsigned char) '\n'),
BgL_arg1914z00_815);
}}
else
{ /* Lalr/driver.scm 107 */
BFALSE;
}
if ((BgL_actz00_793 == BGl_symbol2216z00zz__lalr_driverz00))
{ /* Lalr/driver.scm 119 */
return VECTOR_REF(BgL_stackz00_787, (int) (((long) 1)));
}
else
{ /* Lalr/driver.scm 123 */
bool_t BgL_testz00_1697;
if ((BgL_actz00_793 == BGl_symbol2218z00zz__lalr_driverz00))
{ /* Lalr/driver.scm 123 */
BgL_testz00_1697 = ((bool_t) 1);
}
else
{ /* Lalr/driver.scm 123 */
BgL_testz00_1697 =
(BgL_actz00_793 == BGl_symbol2220z00zz__lalr_driverz00);
}
if (BgL_testz00_1697)
{ /* Lalr/driver.scm 124 */
obj_t BgL_msgz00_818;
{ /* Lalr/driver.scm 124 */
obj_t BgL_arg1919z00_820;
if (SYMBOLP(BgL_inz00_790))
{ /* Lalr/driver.scm 128 */
obj_t BgL_res2197z00_1352;
{ /* Lalr/driver.scm 128 */
obj_t BgL_symbolz00_1350;
BgL_symbolz00_1350 = BgL_inz00_790;
{ /* Lalr/driver.scm 128 */
obj_t BgL_arg2113z00_1351;
BgL_arg2113z00_1351 =
SYMBOL_TO_STRING(BgL_symbolz00_1350);
BgL_res2197z00_1352 =
BGl_stringzd2copyzd2zz__r4_strings_6_7z00
(BgL_arg2113z00_1351);
}
}
BgL_arg1919z00_820 = BgL_res2197z00_1352;
}
else
{ /* Lalr/driver.scm 127 */
if (CHARP(BgL_inz00_790))
{ /* Lalr/driver.scm 130 */
obj_t BgL_list1923z00_824;
BgL_list1923z00_824 =
MAKE_PAIR(BgL_inz00_790, BNIL);
{ /* Lalr/driver.scm 130 */
obj_t BgL_res2198z00_1360;
{ /* Lalr/driver.scm 130 */
obj_t BgL_arg2107z00_1357;
BgL_arg2107z00_1357 =
CAR(BgL_list1923z00_824);
BgL_res2198z00_1360 =
make_string(((long) 1),
CCHAR(BgL_arg2107z00_1357));
}
BgL_arg1919z00_820 = BgL_res2198z00_1360;
}}
else
{ /* Lalr/driver.scm 132 */
obj_t BgL_portz00_825;
{ /* Lalr/driver.scm 132 */
{ /* Ieee/port.scm 386 */
BgL_portz00_825 =
BGl_openzd2outputzd2stringz00zz__r4_ports_6_10_1z00
(BTRUE);
}
}
{ /* Lalr/driver.scm 133 */
obj_t BgL_list1924z00_826;
BgL_list1924z00_826 =
MAKE_PAIR(BgL_portz00_825, BNIL);
BGl_writez00zz__r4_output_6_10_3z00
(BgL_inz00_790, BgL_list1924z00_826);
}
BgL_arg1919z00_820 =
bgl_close_output_port(BgL_portz00_825);
}
}
BgL_msgz00_818 =
string_append_3(BGl_string2222z00zz__lalr_driverz00,
BgL_arg1919z00_820,
BGl_string2223z00zz__lalr_driverz00);
}
return
bgl_system_failure(BGL_IO_PARSE_ERROR,
BGl_string2209z00zz__lalr_driverz00, BgL_msgz00_818,
BgL_inputz00_789);
}
else
{ /* Lalr/driver.scm 123 */
if (((long) CINT(BgL_actz00_793) >= ((long) 0)))
{ /* Lalr/driver.scm 139 */
{ /* Lalr/driver.scm 140 */
bool_t BgL_testz00_1720;
{ /* Lalr/driver.scm 140 */
long BgL_arg1927z00_830;
{ /* Lalr/driver.scm 140 */
int BgL_arg1929z00_831;
BgL_arg1929z00_831 =
VECTOR_LENGTH(BgL_stackz00_787);
BgL_arg1927z00_830 =
((long) (BgL_arg1929z00_831) - ((long) 4));
}
BgL_testz00_1720 =
(
(long) CINT(BgL_spz00_797) >=
BgL_arg1927z00_830);
}
if (BgL_testz00_1720)
{ /* Lalr/driver.scm 140 */
BgL_stackz00_787 =
BGl_growzd2stackz12zc0zz__lalr_driverz00
(BgL_stackz00_787);
}
else
{ /* Lalr/driver.scm 140 */
BFALSE;
}
}
{ /* Lalr/driver.scm 142 */
long BgL_arg1931z00_833;
BgL_arg1931z00_833 =
((long) CINT(BgL_spz00_797) + ((long) 1));
VECTOR_SET(BgL_stackz00_787,
(int) (BgL_arg1931z00_833), BgL_attrz00_791);
}
{ /* Lalr/driver.scm 143 */
long BgL_arg1932z00_834;
BgL_arg1932z00_834 =
((long) CINT(BgL_spz00_797) + ((long) 2));
VECTOR_SET(BgL_stackz00_787,
(int) (BgL_arg1932z00_834), BgL_actz00_793);
}
if (BgL_eofzf3zf3_794)
{ /* Lalr/driver.scm 144 */
BFALSE;
}
else
{ /* Lalr/driver.scm 144 */
BgL_inputz00_789 = BFALSE;
}
{ /* Lalr/driver.scm 146 */
long BgL_arg1935z00_835;
BgL_arg1935z00_835 =
((long) CINT(BgL_spz00_797) + ((long) 2));
{
obj_t BgL_spz00_1738;
BgL_spz00_1738 = BINT(BgL_arg1935z00_835);
BgL_spz00_797 = BgL_spz00_1738;
goto BgL_zc3anonymousza31897ze3z83_798;
}
}
}
else
{ /* Lalr/driver.scm 150 */
obj_t BgL_arg1937z00_836;
{ /* Lalr/driver.scm 150 */
long BgL_arg1938z00_837;
BgL_arg1938z00_837 =
NEG((long) CINT(BgL_actz00_793));
BgL_arg1937z00_836 =
PROCEDURE_ENTRY(BgL_reductionzd2functionzd2_1581)
(BgL_reductionzd2functionzd2_1581,
BINT(BgL_arg1938z00_837), BgL_stackz00_787,
BgL_spz00_797, BEOA);
}
{
obj_t BgL_spz00_1745;
BgL_spz00_1745 = BgL_arg1937z00_836;
BgL_spz00_797 = BgL_spz00_1745;
goto BgL_zc3anonymousza31897ze3z83_798;
}
}
}
}
}
}
}
}
}
}
/*---------------------------------------------------------------------*/
void *
bgl_debug_trace() {
return BGL_ENV_GET_TOP_OF_FRAME( BGL_CURRENT_DYNAMIC_ENV() );
}
/* system/kill */
obj_t BGl_systemzf2killzf2zzcc_execz00(obj_t BgL_cmdz00_5)
{
AN_OBJECT;
{ /* Cc/exec.scm 63 */
if (bigloo_strcmp(BGl_oszd2classzd2zz__osz00(),
BGl_string1529z00zzcc_execz00))
{ /* Cc/exec.scm 66 */
obj_t BgL_port1512z00_103;
{ /* Cc/exec.scm 66 */
obj_t BgL_res1526z00_116;
{ /* Cc/exec.scm 66 */
obj_t BgL_auxz00_163;
BgL_auxz00_163 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1526z00_116 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_163);
}
BgL_port1512z00_103 = BgL_res1526z00_116;
}
{ /* Cc/exec.scm 66 */
obj_t BgL_arg1521z00_104;
{ /* Cc/exec.scm 66 */
obj_t BgL_list1522z00_105;
BgL_list1522z00_105 = MAKE_PAIR(BgL_cmdz00_5, BNIL);
BgL_arg1521z00_104 = BGl_systemz00zz__osz00(BgL_list1522z00_105);
}
bgl_display_obj(BgL_arg1521z00_104, BgL_port1512z00_103);
}
return bgl_display_char(((unsigned char) '\n'), BgL_port1512z00_103);
}
else
{ /* Cc/exec.scm 64 */
{ /* Cc/exec.scm 74 */
obj_t BgL_port1513z00_106;
{ /* Cc/exec.scm 74 */
obj_t BgL_res1527z00_119;
{ /* Cc/exec.scm 74 */
obj_t BgL_auxz00_170;
BgL_auxz00_170 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1527z00_119 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_170);
}
BgL_port1513z00_106 = BgL_res1527z00_119;
}
{ /* Cc/exec.scm 74 */
int BgL_arg1523z00_107;
{ /* Cc/exec.scm 74 */
char *BgL_auxz00_179;
char *BgL_auxz00_177;
char *BgL_auxz00_175;
char *BgL_auxz00_173;
BgL_auxz00_179 = BSTRING_TO_STRING(BgL_cmdz00_5);
BgL_auxz00_177 =
BSTRING_TO_STRING(BGl_string1530z00zzcc_execz00);
BgL_auxz00_175 =
BSTRING_TO_STRING(BGl_za2shellza2z00zzengine_paramz00);
BgL_auxz00_173 =
BSTRING_TO_STRING(BGl_za2shellza2z00zzengine_paramz00);
BgL_arg1523z00_107 =
execl(BgL_auxz00_173, BgL_auxz00_175, BgL_auxz00_177,
BgL_auxz00_179, ((long) 0));
}
bgl_display_obj(BINT(BgL_arg1523z00_107), BgL_port1513z00_106);
}
bgl_display_char(((unsigned char) '\n'), BgL_port1513z00_106);
}
return
BGl_internalzd2errorzd2zztools_errorz00
(BGl_string1531z00zzcc_execz00, BGl_string1532z00zzcc_execz00,
BgL_cmdz00_5);
}
}
}
/* version */
BGL_EXPORTED_DEF obj_t BGl_versionz00zzwrite_versionz00()
{
AN_OBJECT;
{ /* Write/version.scm 37 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1584z00zzwrite_versionz00, ((long) 79),
((unsigned char) '-'));
{ /* Write/version.scm 39 */
obj_t BgL_arg1515z00_92;
{ /* Write/version.scm 39 */
obj_t BgL_res1575z00_164;
{ /* Write/version.scm 39 */
obj_t BgL_auxz00_265;
BgL_auxz00_265 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1575z00_164 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_265);
}
BgL_arg1515z00_92 = BgL_res1575z00_164;
}
bgl_display_char(((unsigned char) '\n'), BgL_arg1515z00_92);
}
{ /* Write/version.scm 40 */
obj_t BgL_arg1517z00_94;
obj_t BgL_arg1518z00_95;
obj_t BgL_arg1519z00_96;
if (
(STRING_REF(BGl_za2bigloozd2dateza2zd2zzengine_paramz00,
((long) 0)) == ((unsigned char) ' ')))
{ /* Write/version.scm 43 */
long BgL_arg1529z00_105;
BgL_arg1529z00_105 =
STRING_LENGTH(BGl_za2bigloozd2dateza2zd2zzengine_paramz00);
BgL_arg1517z00_94 =
c_substring(BGl_za2bigloozd2dateza2zd2zzengine_paramz00,
((long) 1), BgL_arg1529z00_105);
}
else
{ /* Write/version.scm 42 */
BgL_arg1517z00_94 = BGl_za2bigloozd2dateza2zd2zzengine_paramz00;
}
BgL_arg1518z00_95 =
string_append(BGl_string1585z00zzwrite_versionz00,
BGl_za2bigloozd2emailza2zd2zzengine_paramz00);
BgL_arg1519z00_96 =
string_append(BGl_string1586z00zzwrite_versionz00,
BGl_za2bigloozd2urlza2zd2zzengine_paramz00);
{ /* Write/version.scm 40 */
obj_t BgL_list1520z00_97;
{ /* Write/version.scm 40 */
obj_t BgL_arg1521z00_98;
{ /* Write/version.scm 40 */
obj_t BgL_arg1522z00_99;
{ /* Write/version.scm 40 */
obj_t BgL_arg1523z00_100;
{ /* Write/version.scm 40 */
obj_t BgL_arg1524z00_101;
{ /* Write/version.scm 40 */
obj_t BgL_arg1525z00_102;
BgL_arg1525z00_102 = MAKE_PAIR(BgL_arg1519z00_96, BNIL);
BgL_arg1524z00_101 =
MAKE_PAIR(BgL_arg1518z00_95, BgL_arg1525z00_102);
}
BgL_arg1523z00_100 =
MAKE_PAIR(BGl_za2bigloozd2authorza2zd2zzengine_paramz00,
BgL_arg1524z00_101);
}
BgL_arg1522z00_99 =
MAKE_PAIR(BgL_arg1517z00_94, BgL_arg1523z00_100);
}
BgL_arg1521z00_98 =
MAKE_PAIR(BGl_string1587z00zzwrite_versionz00,
BgL_arg1522z00_99);
}
BgL_list1520z00_97 =
MAKE_PAIR(BGl_za2bigloozd2nameza2zd2zzengine_paramz00,
BgL_arg1521z00_98);
}
BGl_horsez00zzwrite_versionz00(BgL_list1520z00_97);
}
}
if (((long) CINT(BGl_za2verboseza2z00zzengine_paramz00) >= ((long) 3)))
{ /* Write/version.scm 48 */
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1588z00zzwrite_versionz00, ((long) 78),
((unsigned char) '-'));
{ /* Write/version.scm 50 */
obj_t BgL_arg1532z00_108;
{ /* Write/version.scm 50 */
obj_t BgL_res1576z00_177;
{ /* Write/version.scm 50 */
obj_t BgL_auxz00_287;
BgL_auxz00_287 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1576z00_177 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_287);
}
BgL_arg1532z00_108 = BgL_res1576z00_177;
}
bgl_display_char(((unsigned char) '\n'), BgL_arg1532z00_108);
}
{ /* Write/version.scm 51 */
obj_t BgL_list1533z00_109;
{ /* Write/version.scm 51 */
obj_t BgL_arg1535z00_111;
BgL_arg1535z00_111 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1533z00_109 =
MAKE_PAIR(BGl_string1589z00zzwrite_versionz00,
BgL_arg1535z00_111);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1533z00_109);
}
{ /* Write/version.scm 52 */
obj_t BgL_list1536z00_112;
{ /* Write/version.scm 52 */
obj_t BgL_arg1538z00_114;
BgL_arg1538z00_114 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1536z00_112 =
MAKE_PAIR(BGl_string1590z00zzwrite_versionz00,
BgL_arg1538z00_114);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1536z00_112);
}
{ /* Write/version.scm 53 */
obj_t BgL_list1539z00_115;
{ /* Write/version.scm 53 */
obj_t BgL_arg1541z00_117;
BgL_arg1541z00_117 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1539z00_115 =
MAKE_PAIR(BGl_string1591z00zzwrite_versionz00,
BgL_arg1541z00_117);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1539z00_115);
}
{ /* Write/version.scm 54 */
obj_t BgL_list1542z00_118;
{ /* Write/version.scm 54 */
obj_t BgL_arg1544z00_120;
BgL_arg1544z00_120 =
MAKE_PAIR(BCHAR(((unsigned char) '\n')), BNIL);
BgL_list1542z00_118 =
MAKE_PAIR(BGl_string1592z00zzwrite_versionz00,
BgL_arg1544z00_120);
}
BGl_verbosez00zztools_speekz00(BINT(((long) 3)),
BgL_list1542z00_118);
}}
else
{ /* Write/version.scm 48 */
BFALSE;
}
BGl_displayzd2tozd2columnz00zzwrite_versionz00
(BGl_string1584z00zzwrite_versionz00, ((long) 79),
((unsigned char) '-'));
{ /* Write/version.scm 56 */
obj_t BgL_arg1545z00_121;
{ /* Write/version.scm 56 */
obj_t BgL_res1577z00_180;
{ /* Write/version.scm 56 */
obj_t BgL_auxz00_312;
BgL_auxz00_312 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1577z00_180 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_312);
}
BgL_arg1545z00_121 = BgL_res1577z00_180;
}
bgl_display_char(((unsigned char) '\n'), BgL_arg1545z00_121);
}
{ /* Write/version.scm 57 */
obj_t BgL_arg1546z00_122;
{ /* Write/version.scm 57 */
obj_t BgL_res1578z00_183;
{ /* Write/version.scm 57 */
obj_t BgL_auxz00_316;
BgL_auxz00_316 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res1578z00_183 = BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_316);
}
BgL_arg1546z00_122 = BgL_res1578z00_183;
}
return bgl_display_char(((unsigned char) '\n'), BgL_arg1546z00_122);
}}
}
/* <exit:3459> */
obj_t BGl_zc3exitza33459ze3z83zzeffect_walkz00(obj_t BgL_globalsz00_1422)
{
AN_OBJECT;
{ /* Effect/walk.scm 110 */
{
obj_t BgL_gz00_909;
jmp_buf_t jmpbuf;
void *BgL_an_exit3382z00_886;
if (SET_EXIT(BgL_an_exit3382z00_886))
{
return BGL_EXIT_VALUE();
}
else
{
BgL_an_exit3382z00_886 = (void *) jmpbuf;
{ /* Effect/walk.scm 110 */
PUSH_EXIT(BgL_an_exit3382z00_886, ((long) 0));
{ /* Effect/walk.scm 108 */
obj_t BgL_val3383z00_887;
{ /* Effect/walk.scm 107 */
obj_t BgL_arg3461z00_889;
{ /* Effect/walk.scm 107 */
obj_t BgL_res3562z00_1385;
{ /* Effect/walk.scm 107 */
obj_t BgL_auxz00_1634;
BgL_auxz00_1634 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3562z00_1385 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_1634);
}
BgL_arg3461z00_889 = BgL_res3562z00_1385;
}
bgl_display_string(BGl_string3583z00zzeffect_walkz00,
BgL_arg3461z00_889);
}
{
obj_t BgL_l3395z00_891;
BgL_l3395z00_891 = BgL_globalsz00_1422;
BgL_zc3anonymousza33462ze3z83_892:
if (PAIRP(BgL_l3395z00_891))
{ /* Effect/walk.scm 108 */
BgL_gz00_909 = CAR(BgL_l3395z00_891);
{ /* Effect/walk.scm 86 */
obj_t BgL_fez00_911;
{ /* Effect/walk.scm 86 */
BgL_funz00_bglt BgL_obj1829z00_1401;
{ /* Effect/walk.scm 86 */
BgL_variablez00_bglt BgL_obj1611z00_1400;
BgL_obj1611z00_1400 =
(BgL_variablez00_bglt) (BgL_gz00_909);
BgL_obj1829z00_1401 =
(BgL_funz00_bglt) (
(((BgL_variablez00_bglt)
CREF(BgL_obj1611z00_1400))->BgL_valuez00));
}
BgL_fez00_911 =
(((BgL_funz00_bglt) CREF(BgL_obj1829z00_1401))->
BgL_effectz00);
}
if (BGl_iszd2azf3z21zz__objectz00(BgL_fez00_911,
BGl_feffectz00zzast_varz00))
{ /* Effect/walk.scm 88 */
BgL_feffectz00_bglt BgL_instance3379z00_913;
BgL_instance3379z00_913 =
(BgL_feffectz00_bglt) (BgL_fez00_911);
{ /* Effect/walk.scm 89 */
bool_t BgL_testz00_1647;
if (
((((BgL_feffectz00_bglt)
CREF(BgL_instance3379z00_913))->
BgL_readz00) == CNST_TABLE_REF(((long) 3))))
{ /* Effect/walk.scm 89 */
BgL_testz00_1647 =
(
(((BgL_feffectz00_bglt)
CREF(BgL_instance3379z00_913))->
BgL_writez00) ==
CNST_TABLE_REF(((long) 3)));
}
else
{ /* Effect/walk.scm 89 */
BgL_testz00_1647 = ((bool_t) 0);
}
if (BgL_testz00_1647)
{ /* Effect/walk.scm 89 */
BFALSE;
}
else
{ /* Effect/walk.scm 89 */
{ /* Effect/walk.scm 91 */
obj_t BgL_arg3480z00_916;
BgL_arg3480z00_916 =
BGl_shapez00zztools_shapez00
(BgL_gz00_909);
{ /* Effect/walk.scm 91 */
obj_t BgL_list3483z00_918;
{ /* Effect/walk.scm 91 */
obj_t BgL_arg3484z00_919;
{ /* Effect/walk.scm 91 */
obj_t BgL_arg3485z00_920;
BgL_arg3485z00_920 =
MAKE_PAIR
(BGl_string3577z00zzeffect_walkz00,
BNIL);
BgL_arg3484z00_919 =
MAKE_PAIR(BgL_arg3480z00_916,
BgL_arg3485z00_920);
}
BgL_list3483z00_918 =
MAKE_PAIR
(BGl_string3578z00zzeffect_walkz00,
BgL_arg3484z00_919);
}
BGl_displayza2za2zz__r4_output_6_10_3z00
(BgL_list3483z00_918);
}
}
if (NULLP(
(((BgL_feffectz00_bglt)
CREF(BgL_instance3379z00_913))->
BgL_readz00)))
{ /* Effect/walk.scm 92 */
BFALSE;
}
else
{ /* Effect/walk.scm 92 */
obj_t BgL_arg3488z00_923;
BgL_arg3488z00_923 =
(((BgL_feffectz00_bglt)
CREF(BgL_instance3379z00_913))->
BgL_readz00);
{ /* Effect/walk.scm 92 */
obj_t BgL_list3490z00_925;
{ /* Effect/walk.scm 92 */
obj_t BgL_arg3491z00_926;
{ /* Effect/walk.scm 92 */
obj_t BgL_arg3492z00_927;
BgL_arg3492z00_927 =
MAKE_PAIR
(BGl_string3579z00zzeffect_walkz00,
BNIL);
BgL_arg3491z00_926 =
MAKE_PAIR(BgL_arg3488z00_923,
BgL_arg3492z00_927);
}
BgL_list3490z00_925 =
MAKE_PAIR
(BGl_string3580z00zzeffect_walkz00,
BgL_arg3491z00_926);
}
BGl_displayza2za2zz__r4_output_6_10_3z00
(BgL_list3490z00_925);
}
}
if (NULLP(
(((BgL_feffectz00_bglt)
CREF(BgL_instance3379z00_913))->
BgL_writez00)))
{ /* Effect/walk.scm 93 */
BFALSE;
}
else
{ /* Effect/walk.scm 93 */
obj_t BgL_arg3496z00_931;
BgL_arg3496z00_931 =
(((BgL_feffectz00_bglt)
CREF(BgL_instance3379z00_913))->
BgL_writez00);
{ /* Effect/walk.scm 93 */
obj_t BgL_list3498z00_933;
{ /* Effect/walk.scm 93 */
obj_t BgL_arg3499z00_934;
{ /* Effect/walk.scm 93 */
obj_t BgL_arg3500z00_935;
BgL_arg3500z00_935 =
MAKE_PAIR
(BGl_string3579z00zzeffect_walkz00,
BNIL);
BgL_arg3499z00_934 =
MAKE_PAIR(BgL_arg3496z00_931,
BgL_arg3500z00_935);
}
BgL_list3498z00_933 =
MAKE_PAIR
(BGl_string3581z00zzeffect_walkz00,
BgL_arg3499z00_934);
}
BGl_displayza2za2zz__r4_output_6_10_3z00
(BgL_list3498z00_933);
}
}
{ /* Effect/walk.scm 94 */
obj_t BgL_port3394z00_937;
{ /* Effect/walk.scm 94 */
obj_t BgL_res3565z00_1412;
{ /* Effect/walk.scm 94 */
obj_t BgL_auxz00_1676;
BgL_auxz00_1676 =
BGL_CURRENT_DYNAMIC_ENV();
BgL_res3565z00_1412 =
BGL_ENV_CURRENT_OUTPUT_PORT
(BgL_auxz00_1676);
}
BgL_port3394z00_937 = BgL_res3565z00_1412;
}
bgl_display_string
(BGl_string3582z00zzeffect_walkz00,
BgL_port3394z00_937);
bgl_display_char(((unsigned char) '\n'),
BgL_port3394z00_937);
}}}}
else
{ /* Effect/walk.scm 87 */
BFALSE;
}
}
{
obj_t BgL_l3395z00_1682;
BgL_l3395z00_1682 = CDR(BgL_l3395z00_891);
BgL_l3395z00_891 = BgL_l3395z00_1682;
goto BgL_zc3anonymousza33462ze3z83_892;
}
}
else
{ /* Effect/walk.scm 108 */
((bool_t) 1);
}
}
{ /* Effect/walk.scm 109 */
obj_t BgL_arg3467z00_898;
{ /* Effect/walk.scm 109 */
obj_t BgL_res3563z00_1392;
{ /* Effect/walk.scm 109 */
obj_t BgL_auxz00_1684;
BgL_auxz00_1684 = BGL_CURRENT_DYNAMIC_ENV();
BgL_res3563z00_1392 =
BGL_ENV_CURRENT_OUTPUT_PORT(BgL_auxz00_1684);
}
BgL_arg3467z00_898 = BgL_res3563z00_1392;
}
BgL_val3383z00_887 =
bgl_display_string(BGl_string3584z00zzeffect_walkz00,
BgL_arg3467z00_898);
}
POP_EXIT();
return BgL_val3383z00_887;
}
}
}
}
}
}
