This is scrt2.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t3346, "Argument is not a RADIX: ~s", 27 );
DEFSTATICTSCP2( c2934, t3346 );
DEFSTRING( t3347, "STRING->NUMBER", 14 );
DEFSTATICTSCP( c2933 );
DEFSTATICTSCP( c2901 );
DEFSTRING( t3348, "-", 1 );
DEFSTATICTSCP2( c2885, t3348 );
DEFSTRING( t3349, "0123456789abcdef", 16 );
DEFSTATICTSCP2( c2860, t3349 );
DEFSTRING( t3350, "Argument is not a STRING: ~s", 28 );
DEFSTATICTSCP2( c2859, t3350 );
DEFSTRING( t3351, "STRING-LENGTH", 13 );
DEFSTATICTSCP( c2858 );
DEFSTRING( t3352, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c2837, t3352 );
DEFSTRING( t3353, "STRING-REF", 10 );
DEFSTATICTSCP( c2836 );
DEFSTRING( t3354, "%.0f", 4 );
DEFSTATICTSCP2( c2784, t3354 );
DEFSTRING( t3355, "%.~sf", 5 );
DEFSTATICTSCP2( c2764, t3355 );
DEFSTRING( t3356, "%.~se", 5 );
DEFSTATICTSCP2( c2737, t3356 );
DEFSTRING( t3357, "#b", 2 );
DEFSTATICTSCP2( c2733, t3357 );
DEFSTRING( t3358, "#o", 2 );
DEFSTATICTSCP2( c2732, t3358 );
DEFSTRING( t3359, "~s", 2 );
DEFSTATICTSCP2( c2731, t3359 );
DEFSTRING( t3360, "#x", 2 );
DEFSTATICTSCP2( c2730, t3360 );
DEFSTRING( t3361,
"Argument is not a RADIX or FORMAT DESCRIPTOR: ~s", 48 );
DEFSTATICTSCP2( c2728, t3361 );
DEFSTRING( t3362, "SCI", 3 );
DEFSTATICTSCP( c2656 );
DEFSTRING( t3363, "FIX", 3 );
DEFSTATICTSCP( c2593 );
DEFSTATICTSCP( c2562 );
DEFSTRING( t3365, "INT", 3 );
DEFSTATICTSCP( t3364 );
DEFSTRING( t3366, "NUMBER->STRING", 14 );
DEFSTATICTSCP( c2556 );
DEFSTRING( t3367, "INEXACT->EXACT", 14 );
DEFSTATICTSCP( c2534 );
DEFSTRING( t3368, "EXACT->INEXACT", 14 );
DEFSTATICTSCP( c2523 );
DEFFLOAT( t3369, 1. );
DEFSTATICTSCP2( c2511, t3369 );
DEFFLOAT( t3370, 0. );
DEFSTATICTSCP2( c2459, t3370 );
DEFSTRING( t3371,
"Argument must be a non-negative NUMBER: ~s", 42 );
DEFSTATICTSCP2( c2416, t3371 );
DEFSTRING( t3372, "SQRT", 4 );
DEFSTATICTSCP( c2415 );
DEFFLOAT( t3373, .5 );
DEFSTATICTSCP2( c2357, t3373 );
DEFSTRING( t3374, "/", 1 );
DEFSTATICTSCP( c1866 );
DEFSTRING( t3375, "-", 1 );
DEFSTATICTSCP( c1802 );
DEFSTRING( t3376, "*", 1 );
DEFSTATICTSCP( c1758 );
DEFSTRING( t3377, "+", 1 );
DEFSTATICTSCP( c1715 );
DEFSTRING( t3378, ">=", 2 );
DEFSTATICTSCP( c1581 );
DEFSTRING( t3379, "<=", 2 );
DEFSTATICTSCP( c1517 );
DEFSTRING( t3380, ">", 1 );
DEFSTATICTSCP( c1453 );
DEFSTRING( t3381, "<", 1 );
DEFSTATICTSCP( c1389 );
DEFSTRING( t3382, "Argument not a NUMBER: ~s", 25 );
DEFSTATICTSCP2( c1321, t3382 );
DEFSTRING( t3383, "Argument(s) not a NUMBER: ~s ~s", 31 );
DEFSTATICTSCP2( c1318, t3383 );
DEFSTRING( t3384, "=", 1 );
DEFSTATICTSCP( c1317 );
DEFSTRING( t3385, "INEXACT?", 8 );
DEFSTATICTSCP( c1299 );
DEFSTRING( t3386, "Argument is not a NUMBER: ~s", 28 );
DEFSTATICTSCP2( c1282, t3386 );
DEFSTRING( t3387, "EXACT?", 6 );
DEFSTATICTSCP( c1281 );
DEFSTRING( t3388, "EVEN?", 5 );
DEFSTATICTSCP( c1266 );
DEFSTRING( t3389, "Argument not an INTEGER: ~s", 27 );
DEFSTATICTSCP2( c1259, t3389 );
DEFSTRING( t3390, "ODD?", 4 );
DEFSTATICTSCP( c1258 );
DEFSTRING( t3391, "Argument is not an FIXED: ~s", 28 );
DEFSTATICTSCP2( c1186, t3391 );
DEFSTRING( t3392, "FIXED->FLOAT", 12 );
DEFSTATICTSCP( c1185 );
DEFSTRING( t3393, "Argument is out of range: ~s", 28 );
DEFSTATICTSCP2( c1178, t3393 );
DEFSTRING( t3394, "Argument is not a FLOAT: ~s", 27 );
DEFSTATICTSCP2( c1173, t3394 );
DEFSTRING( t3395, "FLOAT->FIXED", 12 );
DEFSTATICTSCP( c1172 );
DEFSTRING( t3396, "SET-CDR!", 8 );
DEFSTATICTSCP( c1133 );
DEFSTRING( t3397, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1113, t3397 );
DEFSTRING( t3398, "SET-CAR!", 8 );
DEFSTATICTSCP( c1112 );
DEFSTRING( t3399, "PUTPROP", 7 );
DEFSTATICTSCP( c1072 );
DEFSTRING( t3400, "GETPROP", 7 );
DEFSTATICTSCP( c1028 );
DEFSTRING( t3401, "SET-TOP-LEVEL-VALUE!", 20 );
DEFSTATICTSCP( c1022 );
DEFSTRING( t3402, "TOP-LEVEL-VALUE", 15 );
DEFSTATICTSCP( c1016 );
DEFSTRING( t3403, "Argument is not a SYMBOL: ~s", 28 );
DEFSTATICTSCP2( c1011, t3403 );
DEFSTRING( t3404, "SYMBOL->STRING", 14 );
DEFSTATICTSCP( c1010 );
static void init_constants()
{
c2933 = STRINGTOSYMBOL( U_TX( ADR( t3347 ) ) );
CONSTANTEXP( ADR( c2933 ) );
c2901 = EMPTYLIST;
c2901 = CONS( _TSCP( 11026 ), c2901 );
c2901 = CONS( _TSCP( 11538 ), c2901 );
CONSTANTEXP( ADR( c2901 ) );
c2858 = STRINGTOSYMBOL( U_TX( ADR( t3351 ) ) );
CONSTANTEXP( ADR( c2858 ) );
c2836 = STRINGTOSYMBOL( U_TX( ADR( t3353 ) ) );
CONSTANTEXP( ADR( c2836 ) );
c2656 = STRINGTOSYMBOL( U_TX( ADR( t3362 ) ) );
CONSTANTEXP( ADR( c2656 ) );
c2593 = STRINGTOSYMBOL( U_TX( ADR( t3363 ) ) );
CONSTANTEXP( ADR( c2593 ) );
c2562 = EMPTYLIST;
t3364 = STRINGTOSYMBOL( U_TX( ADR( t3365 ) ) );
c2562 = CONS( t3364, c2562 );
CONSTANTEXP( ADR( c2562 ) );
c2556 = STRINGTOSYMBOL( U_TX( ADR( t3366 ) ) );
CONSTANTEXP( ADR( c2556 ) );
c2534 = STRINGTOSYMBOL( U_TX( ADR( t3367 ) ) );
CONSTANTEXP( ADR( c2534 ) );
c2523 = STRINGTOSYMBOL( U_TX( ADR( t3368 ) ) );
CONSTANTEXP( ADR( c2523 ) );
c2415 = STRINGTOSYMBOL( U_TX( ADR( t3372 ) ) );
CONSTANTEXP( ADR( c2415 ) );
c1866 = STRINGTOSYMBOL( U_TX( ADR( t3374 ) ) );
CONSTANTEXP( ADR( c1866 ) );
c1802 = STRINGTOSYMBOL( U_TX( ADR( t3375 ) ) );
CONSTANTEXP( ADR( c1802 ) );
c1758 = STRINGTOSYMBOL( U_TX( ADR( t3376 ) ) );
CONSTANTEXP( ADR( c1758 ) );
c1715 = STRINGTOSYMBOL( U_TX( ADR( t3377 ) ) );
CONSTANTEXP( ADR( c1715 ) );
c1581 = STRINGTOSYMBOL( U_TX( ADR( t3378 ) ) );
CONSTANTEXP( ADR( c1581 ) );
c1517 = STRINGTOSYMBOL( U_TX( ADR( t3379 ) ) );
CONSTANTEXP( ADR( c1517 ) );
c1453 = STRINGTOSYMBOL( U_TX( ADR( t3380 ) ) );
CONSTANTEXP( ADR( c1453 ) );
c1389 = STRINGTOSYMBOL( U_TX( ADR( t3381 ) ) );
CONSTANTEXP( ADR( c1389 ) );
c1317 = STRINGTOSYMBOL( U_TX( ADR( t3384 ) ) );
CONSTANTEXP( ADR( c1317 ) );
c1299 = STRINGTOSYMBOL( U_TX( ADR( t3385 ) ) );
CONSTANTEXP( ADR( c1299 ) );
c1281 = STRINGTOSYMBOL( U_TX( ADR( t3387 ) ) );
CONSTANTEXP( ADR( c1281 ) );
c1266 = STRINGTOSYMBOL( U_TX( ADR( t3388 ) ) );
CONSTANTEXP( ADR( c1266 ) );
c1258 = STRINGTOSYMBOL( U_TX( ADR( t3390 ) ) );
CONSTANTEXP( ADR( c1258 ) );
c1185 = STRINGTOSYMBOL( U_TX( ADR( t3392 ) ) );
CONSTANTEXP( ADR( c1185 ) );
c1172 = STRINGTOSYMBOL( U_TX( ADR( t3395 ) ) );
CONSTANTEXP( ADR( c1172 ) );
c1133 = STRINGTOSYMBOL( U_TX( ADR( t3396 ) ) );
CONSTANTEXP( ADR( c1133 ) );
c1112 = STRINGTOSYMBOL( U_TX( ADR( t3398 ) ) );
CONSTANTEXP( ADR( c1112 ) );
c1072 = STRINGTOSYMBOL( U_TX( ADR( t3399 ) ) );
CONSTANTEXP( ADR( c1072 ) );
c1028 = STRINGTOSYMBOL( U_TX( ADR( t3400 ) ) );
CONSTANTEXP( ADR( c1028 ) );
c1022 = STRINGTOSYMBOL( U_TX( ADR( t3401 ) ) );
CONSTANTEXP( ADR( c1022 ) );
c1016 = STRINGTOSYMBOL( U_TX( ADR( t3402 ) ) );
CONSTANTEXP( ADR( c1016 ) );
c1010 = STRINGTOSYMBOL( U_TX( ADR( t3404 ) ) );
CONSTANTEXP( ADR( c1010 ) );
}
DEFTSCP( scrt2_symbol_3f_v );
DEFSTRING( t3405, "SYMBOL?", 7 );
TSCP scrt2_symbol_3f( x1001 )
TSCP x1001;
{
PUSHSTACKTRACE( U_TX( ADR( t3405 ) ) );
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1001 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1001 ),
SYMBOLTAG ) ) ) );
}
DEFTSCP( scrt2_symbol_2d_3estring_v );
DEFSTRING( t3407, "SYMBOL->STRING", 14 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP scrt2_symbol_2d_3estring( x1005 )
TSCP x1005;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3407 ) ) );
if ( AND( EQ( TSCPTAG( x1005 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1005 ), SYMBOLTAG ) )
) goto L3410;
scrt6_error( c1010,
c1011, CONS( x1005, EMPTYLIST ) );
L3410:
POPSTACKTRACE( SYMBOL_NAME( x1005 ) );
}
DEFTSCP( scrt2_top_2dlevel_2dvalue_v );
DEFSTRING( t3412, "TOP-LEVEL-VALUE", 15 );
TSCP scrt2_top_2dlevel_2dvalue( s1013 )
TSCP s1013;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3412 ) ) );
if ( AND( EQ( TSCPTAG( s1013 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1013 ), SYMBOLTAG ) )
) goto L3414;
scrt6_error( c1016,
c1011, CONS( s1013, EMPTYLIST ) );
L3414:
POPSTACKTRACE( SYMBOL_VALUE( s1013 ) );
}
DEFTSCP( scrt2_2dvalue_21_c9d2a496_v );
DEFSTRING( t3416, "SET-TOP-LEVEL-VALUE!", 20 );
TSCP scrt2_2dvalue_21_c9d2a496( s1018, v1019 )
TSCP s1018, v1019;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3416 ) ) );
if ( AND( EQ( TSCPTAG( s1018 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1018 ), SYMBOLTAG ) )
) goto L3418;
scrt6_error( c1022,
c1011, CONS( s1018, EMPTYLIST ) );
L3418:
POPSTACKTRACE( SETGENTL( SYMBOL_VALUE( s1018 ), v1019 ) );
}
DEFTSCP( scrt2_getprop_v );
DEFSTRING( t3420, "GETPROP", 7 );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
TSCP scrt2_getprop( s1024, k1025 )
TSCP s1024, k1025;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3420 ) ) );
if ( AND( EQ( TSCPTAG( s1024 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1024 ), SYMBOLTAG ) )
) goto L3422;
scrt6_error( c1028,
c1011, CONS( s1024, EMPTYLIST ) );
L3422:
X1 = SYMBOL_PROPERTYLIST( s1024 );
L3425:
if ( EQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3426;
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3431;
scrt1__24__car_2derror( X1 );
L3431:
X2 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( k1025 ) ) ) goto L3428;
X2 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3435;
scrt1__24__car_2derror( X2 );
L3435:
POPSTACKTRACE( PAIR_CAR( X2 ) );
L3428:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3438;
scrt1__24__cdr_2derror( X1 );
L3438:
X2 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3441;
scrt1__24__cdr_2derror( X2 );
L3441:
X1 = PAIR_CDR( X2 );
goto L3425;
L3426:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt2_putprop_v );
DEFSTRING( t3443, "PUTPROP", 7 );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP scrt2_putprop( s1067, k1068, v1069 )
TSCP s1067, k1068, v1069;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3443 ) ) );
if ( AND( EQ( TSCPTAG( s1067 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( s1067 ), SYMBOLTAG ) )
) goto L3445;
scrt6_error( c1072,
c1011, CONS( s1067, EMPTYLIST ) );
L3445:
X1 = SYMBOL_PROPERTYLIST( s1067 );
X2 = EMPTYLIST;
L3448:
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( EMPTYLIST ) ) ) goto L3449;
if ( EQ( UNSIGNED( v1069 ),
UNSIGNED( FALSEVALUE ) ) ) goto L3461;
if ( FALSE( X2 ) ) goto L3453;
X5 = sc_cons( v1069, EMPTYLIST );
X4 = sc_cons( k1068, X5 );
X3 = X4;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3457;
scrt6_error( c1133, c1113, CONS( X2, EMPTYLIST ) );
L3457:
SETGEN( PAIR_CDR( X2 ), X3 );
goto L3461;
L3453:
X5 = sc_cons( v1069, EMPTYLIST );
X4 = sc_cons( k1068, X5 );
X3 = X4;
SETGEN( SYMBOL_PROPERTYLIST( s1067 ), X3 );
goto L3461;
L3449:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3463;
scrt1__24__car_2derror( X1 );
L3463:
X3 = PAIR_CAR( X1 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( k1068 ) ) ) goto L3460;
if ( NEQ( UNSIGNED( v1069 ),
UNSIGNED( FALSEVALUE ) ) ) goto L3465;
if ( FALSE( X2 ) ) goto L3467;
X4 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3471;
scrt1__24__cdr_2derror( X4 );
L3471:
X3 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3474;
scrt6_error( c1133, c1113, CONS( X2, EMPTYLIST ) );
L3474:
SETGEN( PAIR_CDR( X2 ), X3 );
goto L3461;
L3467:
X4 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3478;
scrt1__24__cdr_2derror( X4 );
L3478:
X3 = PAIR_CDR( X4 );
SETGEN( SYMBOL_PROPERTYLIST( s1067 ), X3 );
goto L3461;
L3465:
X3 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3482;
scrt6_error( c1112, c1113, CONS( X3, EMPTYLIST ) );
L3482:
SETGEN( PAIR_CAR( X3 ), v1069 );
goto L3461;
L3460:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L3485;
scrt1__24__cdr_2derror( X1 );
L3485:
X4 = PAIR_CDR( X1 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L3488;
scrt1__24__cdr_2derror( X4 );
L3488:
X3 = PAIR_CDR( X4 );
X2 = PAIR_CDR( X1 );
X1 = X3;
goto L3448;
L3461:
POPSTACKTRACE( v1069 );
}
EXTERNTSCPP( sc_mathtraps );
DEFTSCP( scrt2_fixed_3f_v );
DEFSTRING( t3491, "FIXED?", 6 );
TSCP scrt2_fixed_3f( x1159 )
TSCP x1159;
{
PUSHSTACKTRACE( U_TX( ADR( t3491 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( TSCPTAG( x1159 ), FIXNUMTAG ) ) );
}
DEFTSCP( scrt2_float_3f_v );
DEFSTRING( t3493, "FLOAT?", 6 );
TSCP scrt2_float_3f( x1163 )
TSCP x1163;
{
PUSHSTACKTRACE( U_TX( ADR( t3493 ) ) );
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1163 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1163 ),
FLOATTAG ) ) ) );
}
DEFTSCP( scrt2_float_2d_3efixed_v );
DEFSTRING( t3495, "FLOAT->FIXED", 12 );
TSCP scrt2_float_2d_3efixed( x1167 )
TSCP x1167;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3495 ) ) );
if ( AND( EQ( TSCPTAG( x1167 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1167 ), FLOATTAG ) )
) goto L3498;
scrt6_error( c1172,
c1173, CONS( x1167, EMPTYLIST ) );
L3498:
X1 = BOOLEAN( LT( FLOAT_VALUE( x1167 ), -536870912.1 ) );
if ( TRUE( X1 ) ) goto L3504;
if ( LTE( FLOAT_VALUE( x1167 ), 536870911.1 ) ) goto L3507;
L3504:
scrt6_error( c1172,
c1178, CONS( x1167, EMPTYLIST ) );
L3507:
POPSTACKTRACE( FLT_FIX( x1167 ) );
}
DEFTSCP( scrt2_fixed_2d_3efloat_v );
DEFSTRING( t3508, "FIXED->FLOAT", 12 );
TSCP scrt2_fixed_2d_3efloat( x1180 )
TSCP x1180;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3508 ) ) );
if ( EQ( TSCPTAG( x1180 ), FIXNUMTAG ) ) goto L3511;
scrt6_error( c1185,
c1186, CONS( x1180, EMPTYLIST ) );
L3511:
POPSTACKTRACE( FIX_FLT( x1180 ) );
}
DEFTSCP( scrt2_number_3f_v );
DEFSTRING( t3513, "NUMBER?", 7 );
TSCP scrt2_number_3f( x1188 )
TSCP x1188;
{
PUSHSTACKTRACE( U_TX( ADR( t3513 ) ) );
if ( EQ( TSCPTAG( x1188 ), FIXNUMTAG ) ) goto L3515;
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1188 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1188 ),
FLOATTAG ) ) ) );
L3515:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( scrt2_complex_3f_v );
DEFSTRING( t3517, "COMPLEX?", 8 );
TSCP scrt2_complex_3f( x1198 )
TSCP x1198;
{
PUSHSTACKTRACE( U_TX( ADR( t3517 ) ) );
if ( EQ( TSCPTAG( x1198 ), FIXNUMTAG ) ) goto L3519;
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1198 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1198 ),
FLOATTAG ) ) ) );
L3519:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( scrt2_real_3f_v );
DEFSTRING( t3521, "REAL?", 5 );
TSCP scrt2_real_3f( x1208 )
TSCP x1208;
{
PUSHSTACKTRACE( U_TX( ADR( t3521 ) ) );
if ( EQ( TSCPTAG( x1208 ), FIXNUMTAG ) ) goto L3523;
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1208 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1208 ),
FLOATTAG ) ) ) );
L3523:
POPSTACKTRACE( TRUEVALUE );
}
DEFTSCP( scrt2_rational_3f_v );
DEFSTRING( t3525, "RATIONAL?", 9 );
TSCP scrt2_rational_3f( x1218 )
TSCP x1218;
{
PUSHSTACKTRACE( U_TX( ADR( t3525 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( TSCPTAG( x1218 ), FIXNUMTAG ) ) );
}
DEFTSCP( scrt2_integer_3f_v );
DEFSTRING( t3527, "INTEGER?", 8 );
TSCP scrt2_integer_3f( x1222 )
TSCP x1222;
{
PUSHSTACKTRACE( U_TX( ADR( t3527 ) ) );
POPSTACKTRACE( BOOLEAN( EQ( TSCPTAG( x1222 ), FIXNUMTAG ) ) );
}
DEFTSCP( scrt2_zero_3f_v );
DEFSTRING( t3529, "ZERO?", 5 );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
TSCP scrt2_zero_3f( x1226 )
TSCP x1226;
{
PUSHSTACKTRACE( U_TX( ADR( t3529 ) ) );
if ( BITAND( BITOR( INT( x1226 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3531;
POPSTACKTRACE( BOOLEAN( EQ( UNSIGNED( x1226 ),
UNSIGNED( _TSCP( 0 ) ) ) ) );
L3531:
POPSTACKTRACE( scrt2__3d_2dtwo( x1226, _TSCP( 0 ) ) );
}
DEFTSCP( scrt2_positive_3f_v );
DEFSTRING( t3533, "POSITIVE?", 9 );
EXTERNTSCPP( scrt2__3e_2dtwo );
EXTERNTSCP( scrt2__3e_2dtwo_v );
TSCP scrt2_positive_3f( x1237 )
TSCP x1237;
{
PUSHSTACKTRACE( U_TX( ADR( t3533 ) ) );
if ( BITAND( BITOR( INT( x1237 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3535;
POPSTACKTRACE( BOOLEAN( GT( INT( x1237 ),
INT( _TSCP( 0 ) ) ) ) );
L3535:
POPSTACKTRACE( scrt2__3e_2dtwo( x1237, _TSCP( 0 ) ) );
}
DEFTSCP( scrt2_negative_3f_v );
DEFSTRING( t3537, "NEGATIVE?", 9 );
EXTERNTSCPP( scrt2__3c_2dtwo );
EXTERNTSCP( scrt2__3c_2dtwo_v );
TSCP scrt2_negative_3f( x1245 )
TSCP x1245;
{
PUSHSTACKTRACE( U_TX( ADR( t3537 ) ) );
if ( BITAND( BITOR( INT( x1245 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L3539;
POPSTACKTRACE( BOOLEAN( LT( INT( x1245 ),
INT( _TSCP( 0 ) ) ) ) );
L3539:
POPSTACKTRACE( scrt2__3c_2dtwo( x1245, _TSCP( 0 ) ) );
}
DEFTSCP( scrt2_odd_3f_v );
DEFSTRING( t3541, "ODD?", 4 );
TSCP scrt2_odd_3f( x1253 )
TSCP x1253;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3541 ) ) );
if ( EQ( TSCPTAG( x1253 ), FIXNUMTAG ) ) goto L3544;
scrt6_error( c1258,
c1259, CONS( x1253, EMPTYLIST ) );
L3544:
POPSTACKTRACE( BOOLEAN( BITAND( INT( x1253 ), 4 ) ) );
}
DEFTSCP( scrt2_even_3f_v );
DEFSTRING( t3546, "EVEN?", 5 );
TSCP scrt2_even_3f( x1261 )
TSCP x1261;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3546 ) ) );
if ( EQ( TSCPTAG( x1261 ), FIXNUMTAG ) ) goto L3549;
scrt6_error( c1266,
c1259, CONS( x1261, EMPTYLIST ) );
L3549:
POPSTACKTRACE( BOOLEAN( NOT( BITAND( INT( x1261 ), 4 ) ) ) );
}
DEFTSCP( scrt2_exact_3f_v );
DEFSTRING( t3551, "EXACT?", 6 );
TSCP scrt2_exact_3f( x1268 )
TSCP x1268;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3551 ) ) );
if ( EQ( TSCPTAG( x1268 ), FIXNUMTAG ) ) goto L3556;
if ( AND( EQ( TSCPTAG( x1268 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1268 ), FLOATTAG ) )
) goto L3556;
scrt6_error( c1281,
c1282, CONS( x1268, EMPTYLIST ) );
L3556:
POPSTACKTRACE( BOOLEAN( EQ( TSCPTAG( x1268 ), FIXNUMTAG ) ) );
}
DEFTSCP( scrt2_inexact_3f_v );
DEFSTRING( t3558, "INEXACT?", 8 );
TSCP scrt2_inexact_3f( x1286 )
TSCP x1286;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3558 ) ) );
if ( EQ( TSCPTAG( x1286 ), FIXNUMTAG ) ) goto L3563;
if ( AND( EQ( TSCPTAG( x1286 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1286 ), FLOATTAG ) )
) goto L3563;
scrt6_error( c1299,
c1282, CONS( x1286, EMPTYLIST ) );
L3563:
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1286 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1286 ),
FLOATTAG ) ) ) );
}
DEFTSCP( scrt2__3d_2dtwo_v );
DEFSTRING( t3565, "SCRT2_=-TWO", 11 );
TSCP scrt2__3d_2dtwo( x1303, y1304 )
TSCP x1303, y1304;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3565 ) ) );
if ( NEQ( TSCPTAG( x1303 ), FIXNUMTAG ) ) goto L3567;
if ( NEQ( TSCPTAG( y1304 ), FIXNUMTAG ) ) goto L3569;
POPSTACKTRACE( BOOLEAN( EQ( INT( x1303 ),
INT( y1304 ) ) ) );
L3569:
if ( NOT( AND( EQ( TSCPTAG( y1304 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1304 ), FLOATTAG ) ) )
) goto L3571;
POPSTACKTRACE( BOOLEAN( EQ( FIX_FLTV( x1303 ),
FLOAT_VALUE( y1304 ) ) ) );
L3571:
POPSTACKTRACE( scrt6_error( c1317,
c1321,
CONS( y1304, EMPTYLIST ) ) );
L3567:
if ( NEQ( TSCPTAG( y1304 ), FIXNUMTAG ) ) goto L3573;
if ( NOT( AND( EQ( TSCPTAG( x1303 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1303 ), FLOATTAG ) ) )
) goto L3575;
POPSTACKTRACE( BOOLEAN( EQ( FLOAT_VALUE( x1303 ),
FIX_FLTV( y1304 ) ) ) );
L3575:
POPSTACKTRACE( scrt6_error( c1317,
c1321,
CONS( x1303, EMPTYLIST ) ) );
L3573:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1303 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1303 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3583;
if ( NOT( AND( EQ( TSCPTAG( y1304 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1304 ), FLOATTAG ) ) )
) goto L3583;
POPSTACKTRACE( BOOLEAN( EQ( FLOAT_VALUE( x1303 ),
FLOAT_VALUE( y1304 ) ) ) );
L3583:
X1 = CONS( y1304, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1317,
c1318, CONS( x1303, X1 ) ) );
}
DEFTSCP( scrt2__3d_v );
DEFSTRING( t3584, "=", 1 );
TSCP scrt2__3d( x1327, y1328, z1329 )
TSCP x1327, y1328, z1329;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3584 ) ) );
if ( BITAND( BITOR( INT( x1327 ), INT( y1328 ) ),
3 ) ) goto L3587;
X1 = BOOLEAN( EQ( UNSIGNED( x1327 ),
UNSIGNED( y1328 ) ) );
goto L3588;
L3587:
X1 = scrt2__3d_2dtwo( x1327, y1328 );
L3588:
if ( FALSE( X1 ) ) goto L3590;
X2 = y1328;
X3 = z1329;
L3592:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3593;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3596;
scrt1__24__car_2derror( X3 );
L3596:
X4 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L3600;
if ( EQ( UNSIGNED( X2 ), UNSIGNED( X4 ) ) ) goto L3604;
POPSTACKTRACE( FALSEVALUE );
L3600:
if ( TRUE( scrt2__3d_2dtwo( X2, X4 ) ) ) goto L3604;
POPSTACKTRACE( FALSEVALUE );
L3593:
POPSTACKTRACE( TRUEVALUE );
L3604:
X4 = PAIR_CAR( X3 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L3592;
L3590:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__3c_2dtwo_v );
DEFSTRING( t3609, "SCRT2_<-TWO", 11 );
TSCP scrt2__3c_2dtwo( x1375, y1376 )
TSCP x1375, y1376;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3609 ) ) );
if ( NEQ( TSCPTAG( x1375 ), FIXNUMTAG ) ) goto L3611;
if ( NEQ( TSCPTAG( y1376 ), FIXNUMTAG ) ) goto L3613;
POPSTACKTRACE( BOOLEAN( LT( INT( x1375 ),
INT( y1376 ) ) ) );
L3613:
if ( NOT( AND( EQ( TSCPTAG( y1376 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1376 ), FLOATTAG ) ) )
) goto L3615;
POPSTACKTRACE( BOOLEAN( LT( FIX_FLTV( x1375 ),
FLOAT_VALUE( y1376 ) ) ) );
L3615:
POPSTACKTRACE( scrt6_error( c1389,
c1321,
CONS( y1376, EMPTYLIST ) ) );
L3611:
if ( NEQ( TSCPTAG( y1376 ), FIXNUMTAG ) ) goto L3617;
if ( NOT( AND( EQ( TSCPTAG( x1375 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1375 ), FLOATTAG ) ) )
) goto L3619;
POPSTACKTRACE( BOOLEAN( LT( FLOAT_VALUE( x1375 ),
FIX_FLTV( y1376 ) ) ) );
L3619:
POPSTACKTRACE( scrt6_error( c1389,
c1321,
CONS( x1375, EMPTYLIST ) ) );
L3617:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1375 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1375 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3627;
if ( NOT( AND( EQ( TSCPTAG( y1376 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1376 ), FLOATTAG ) ) )
) goto L3627;
POPSTACKTRACE( BOOLEAN( LT( FLOAT_VALUE( x1375 ),
FLOAT_VALUE( y1376 ) ) ) );
L3627:
X1 = CONS( y1376, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1389,
c1318, CONS( x1375, X1 ) ) );
}
DEFTSCP( scrt2__3c_v );
DEFSTRING( t3628, "<", 1 );
TSCP scrt2__3c( x1397, y1398, z1399 )
TSCP x1397, y1398, z1399;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3628 ) ) );
if ( BITAND( BITOR( INT( x1397 ), INT( y1398 ) ),
3 ) ) goto L3631;
X1 = BOOLEAN( LT( INT( x1397 ), INT( y1398 ) ) );
goto L3632;
L3631:
X1 = scrt2__3c_2dtwo( x1397, y1398 );
L3632:
if ( FALSE( X1 ) ) goto L3634;
X2 = y1398;
X3 = z1399;
L3636:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3637;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3640;
scrt1__24__car_2derror( X3 );
L3640:
X4 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L3644;
if ( LT( INT( X2 ), INT( X4 ) ) ) goto L3648;
POPSTACKTRACE( FALSEVALUE );
L3644:
if ( TRUE( scrt2__3c_2dtwo( X2, X4 ) ) ) goto L3648;
POPSTACKTRACE( FALSEVALUE );
L3637:
POPSTACKTRACE( TRUEVALUE );
L3648:
X4 = PAIR_CAR( X3 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L3636;
L3634:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__3e_2dtwo_v );
DEFSTRING( t3653, "SCRT2_>-TWO", 11 );
TSCP scrt2__3e_2dtwo( x1439, y1440 )
TSCP x1439, y1440;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3653 ) ) );
if ( NEQ( TSCPTAG( x1439 ), FIXNUMTAG ) ) goto L3655;
if ( NEQ( TSCPTAG( y1440 ), FIXNUMTAG ) ) goto L3657;
POPSTACKTRACE( BOOLEAN( GT( INT( x1439 ),
INT( y1440 ) ) ) );
L3657:
if ( NOT( AND( EQ( TSCPTAG( y1440 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1440 ), FLOATTAG ) ) )
) goto L3659;
POPSTACKTRACE( BOOLEAN( GT( FIX_FLTV( x1439 ),
FLOAT_VALUE( y1440 ) ) ) );
L3659:
POPSTACKTRACE( scrt6_error( c1453,
c1321,
CONS( y1440, EMPTYLIST ) ) );
L3655:
if ( NEQ( TSCPTAG( y1440 ), FIXNUMTAG ) ) goto L3661;
if ( NOT( AND( EQ( TSCPTAG( x1439 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1439 ), FLOATTAG ) ) )
) goto L3663;
POPSTACKTRACE( BOOLEAN( GT( FLOAT_VALUE( x1439 ),
FIX_FLTV( y1440 ) ) ) );
L3663:
POPSTACKTRACE( scrt6_error( c1453,
c1321,
CONS( x1439, EMPTYLIST ) ) );
L3661:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1439 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1439 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3671;
if ( NOT( AND( EQ( TSCPTAG( y1440 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1440 ), FLOATTAG ) ) )
) goto L3671;
POPSTACKTRACE( BOOLEAN( GT( FLOAT_VALUE( x1439 ),
FLOAT_VALUE( y1440 ) ) ) );
L3671:
X1 = CONS( y1440, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1453,
c1318, CONS( x1439, X1 ) ) );
}
DEFTSCP( scrt2__3e_v );
DEFSTRING( t3672, ">", 1 );
TSCP scrt2__3e( x1461, y1462, z1463 )
TSCP x1461, y1462, z1463;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3672 ) ) );
if ( BITAND( BITOR( INT( x1461 ), INT( y1462 ) ),
3 ) ) goto L3675;
X1 = BOOLEAN( GT( INT( x1461 ), INT( y1462 ) ) );
goto L3676;
L3675:
X1 = scrt2__3e_2dtwo( x1461, y1462 );
L3676:
if ( FALSE( X1 ) ) goto L3678;
X2 = y1462;
X3 = z1463;
L3680:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3681;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3684;
scrt1__24__car_2derror( X3 );
L3684:
X4 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L3688;
if ( GT( INT( X2 ), INT( X4 ) ) ) goto L3692;
POPSTACKTRACE( FALSEVALUE );
L3688:
if ( TRUE( scrt2__3e_2dtwo( X2, X4 ) ) ) goto L3692;
POPSTACKTRACE( FALSEVALUE );
L3681:
POPSTACKTRACE( TRUEVALUE );
L3692:
X4 = PAIR_CAR( X3 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L3680;
L3678:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__3c_3d_2dtwo_v );
DEFSTRING( t3697, "SCRT2_<=-TWO", 12 );
TSCP scrt2__3c_3d_2dtwo( x1503, y1504 )
TSCP x1503, y1504;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3697 ) ) );
if ( NEQ( TSCPTAG( x1503 ), FIXNUMTAG ) ) goto L3699;
if ( NEQ( TSCPTAG( y1504 ), FIXNUMTAG ) ) goto L3701;
POPSTACKTRACE( BOOLEAN( LTE( INT( x1503 ),
INT( y1504 ) ) ) );
L3701:
if ( NOT( AND( EQ( TSCPTAG( y1504 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1504 ), FLOATTAG ) ) )
) goto L3703;
POPSTACKTRACE( BOOLEAN( LTE( FIX_FLTV( x1503 ),
FLOAT_VALUE( y1504 ) ) ) );
L3703:
POPSTACKTRACE( scrt6_error( c1517,
c1321,
CONS( y1504, EMPTYLIST ) ) );
L3699:
if ( NEQ( TSCPTAG( y1504 ), FIXNUMTAG ) ) goto L3705;
if ( NOT( AND( EQ( TSCPTAG( x1503 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1503 ), FLOATTAG ) ) )
) goto L3707;
POPSTACKTRACE( BOOLEAN( LTE( FLOAT_VALUE( x1503 ),
FIX_FLTV( y1504 ) ) ) );
L3707:
POPSTACKTRACE( scrt6_error( c1517,
c1321,
CONS( x1503, EMPTYLIST ) ) );
L3705:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1503 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1503 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3715;
if ( NOT( AND( EQ( TSCPTAG( y1504 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1504 ), FLOATTAG ) ) )
) goto L3715;
POPSTACKTRACE( BOOLEAN( LTE( FLOAT_VALUE( x1503 ),
FLOAT_VALUE( y1504 ) ) ) );
L3715:
X1 = CONS( y1504, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1517,
c1318, CONS( x1503, X1 ) ) );
}
DEFTSCP( scrt2__3c_3d_v );
DEFSTRING( t3716, "<=", 2 );
TSCP scrt2__3c_3d( x1525, y1526, z1527 )
TSCP x1525, y1526, z1527;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3716 ) ) );
if ( BITAND( BITOR( INT( x1525 ), INT( y1526 ) ),
3 ) ) goto L3719;
X1 = BOOLEAN( LTE( INT( x1525 ), INT( y1526 ) ) );
goto L3720;
L3719:
X1 = scrt2__3c_3d_2dtwo( x1525, y1526 );
L3720:
if ( FALSE( X1 ) ) goto L3722;
X2 = y1526;
X3 = z1527;
L3724:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3725;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3728;
scrt1__24__car_2derror( X3 );
L3728:
X4 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L3732;
if ( LTE( INT( X2 ), INT( X4 ) ) ) goto L3736;
POPSTACKTRACE( FALSEVALUE );
L3732:
if ( TRUE( scrt2__3c_3d_2dtwo( X2, X4 ) ) ) goto L3736;
POPSTACKTRACE( FALSEVALUE );
L3725:
POPSTACKTRACE( TRUEVALUE );
L3736:
X4 = PAIR_CAR( X3 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L3724;
L3722:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__3e_3d_2dtwo_v );
DEFSTRING( t3741, "SCRT2_>=-TWO", 12 );
TSCP scrt2__3e_3d_2dtwo( x1567, y1568 )
TSCP x1567, y1568;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3741 ) ) );
if ( NEQ( TSCPTAG( x1567 ), FIXNUMTAG ) ) goto L3743;
if ( NEQ( TSCPTAG( y1568 ), FIXNUMTAG ) ) goto L3745;
POPSTACKTRACE( BOOLEAN( GTE( INT( x1567 ),
INT( y1568 ) ) ) );
L3745:
if ( NOT( AND( EQ( TSCPTAG( y1568 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1568 ), FLOATTAG ) ) )
) goto L3747;
POPSTACKTRACE( BOOLEAN( GTE( FIX_FLTV( x1567 ),
FLOAT_VALUE( y1568 ) ) ) );
L3747:
POPSTACKTRACE( scrt6_error( c1581,
c1321,
CONS( y1568, EMPTYLIST ) ) );
L3743:
if ( NEQ( TSCPTAG( y1568 ), FIXNUMTAG ) ) goto L3749;
if ( NOT( AND( EQ( TSCPTAG( x1567 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1567 ), FLOATTAG ) ) )
) goto L3751;
POPSTACKTRACE( BOOLEAN( GTE( FLOAT_VALUE( x1567 ),
FIX_FLTV( y1568 ) ) ) );
L3751:
POPSTACKTRACE( scrt6_error( c1581,
c1321,
CONS( x1567, EMPTYLIST ) ) );
L3749:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1567 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1567 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3759;
if ( NOT( AND( EQ( TSCPTAG( y1568 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1568 ), FLOATTAG ) ) )
) goto L3759;
POPSTACKTRACE( BOOLEAN( GTE( FLOAT_VALUE( x1567 ),
FLOAT_VALUE( y1568 ) ) ) );
L3759:
X1 = CONS( y1568, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1581,
c1318, CONS( x1567, X1 ) ) );
}
DEFTSCP( scrt2__3e_3d_v );
DEFSTRING( t3760, ">=", 2 );
TSCP scrt2__3e_3d( x1589, y1590, z1591 )
TSCP x1589, y1590, z1591;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3760 ) ) );
if ( BITAND( BITOR( INT( x1589 ), INT( y1590 ) ),
3 ) ) goto L3763;
X1 = BOOLEAN( GTE( INT( x1589 ), INT( y1590 ) ) );
goto L3764;
L3763:
X1 = scrt2__3e_3d_2dtwo( x1589, y1590 );
L3764:
if ( FALSE( X1 ) ) goto L3766;
X2 = y1590;
X3 = z1591;
L3768:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L3769;
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L3772;
scrt1__24__car_2derror( X3 );
L3772:
X4 = PAIR_CAR( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L3776;
if ( GTE( INT( X2 ), INT( X4 ) ) ) goto L3780;
POPSTACKTRACE( FALSEVALUE );
L3776:
if ( TRUE( scrt2__3e_3d_2dtwo( X2, X4 ) ) ) goto L3780;
POPSTACKTRACE( FALSEVALUE );
L3769:
POPSTACKTRACE( TRUEVALUE );
L3780:
X4 = PAIR_CAR( X3 );
X3 = PAIR_CDR( X3 );
X2 = X4;
goto L3768;
L3766:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2_max_2dtwo_v );
DEFSTRING( t3785, "SCRT2_MAX-TWO", 13 );
TSCP scrt2_max_2dtwo( x1631, y1632 )
TSCP x1631, y1632;
{
PUSHSTACKTRACE( U_TX( ADR( t3785 ) ) );
if ( BITAND( BITOR( INT( x1631 ), INT( y1632 ) ),
3 ) ) goto L3787;
if ( GT( INT( x1631 ), INT( y1632 ) ) ) goto L3789;
POPSTACKTRACE( y1632 );
L3789:
POPSTACKTRACE( x1631 );
L3787:
if ( TRUE( scrt2__3e_2dtwo( x1631, y1632 ) ) ) goto L3791;
POPSTACKTRACE( y1632 );
L3791:
POPSTACKTRACE( x1631 );
}
DEFTSCP( scrt2_max_v );
DEFSTRING( t3793, "MAX", 3 );
TSCP scrt2_max( x1640, y1641 )
TSCP x1640, y1641;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3793 ) ) );
X1 = x1640;
X2 = y1641;
L3796:
if ( FALSE( X2 ) ) goto L3797;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3800;
scrt1__24__car_2derror( X2 );
L3800:
X4 = PAIR_CAR( X2 );
if ( BITAND( BITOR( INT( X1 ), INT( X4 ) ),
3 ) ) goto L3804;
if ( LTE( INT( X1 ), INT( X4 ) ) ) goto L3808;
X3 = X1;
goto L3811;
L3804:
if ( FALSE( scrt2__3e_2dtwo( X1, X4 ) ) ) goto L3808;
X3 = X1;
goto L3811;
L3808:
X3 = PAIR_CAR( X2 );
L3811:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L3796;
L3797:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2_min_2dtwo_v );
DEFSTRING( t3814, "SCRT2_MIN-TWO", 13 );
TSCP scrt2_min_2dtwo( x1666, y1667 )
TSCP x1666, y1667;
{
PUSHSTACKTRACE( U_TX( ADR( t3814 ) ) );
if ( BITAND( BITOR( INT( x1666 ), INT( y1667 ) ),
3 ) ) goto L3816;
if ( LT( INT( x1666 ), INT( y1667 ) ) ) goto L3818;
POPSTACKTRACE( y1667 );
L3818:
POPSTACKTRACE( x1666 );
L3816:
if ( TRUE( scrt2__3c_2dtwo( x1666, y1667 ) ) ) goto L3820;
POPSTACKTRACE( y1667 );
L3820:
POPSTACKTRACE( x1666 );
}
DEFTSCP( scrt2_min_v );
DEFSTRING( t3822, "MIN", 3 );
TSCP scrt2_min( x1675, y1676 )
TSCP x1675, y1676;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3822 ) ) );
X1 = x1675;
X2 = y1676;
L3825:
if ( FALSE( X2 ) ) goto L3826;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3829;
scrt1__24__car_2derror( X2 );
L3829:
X4 = PAIR_CAR( X2 );
if ( BITAND( BITOR( INT( X1 ), INT( X4 ) ),
3 ) ) goto L3833;
if ( GTE( INT( X1 ), INT( X4 ) ) ) goto L3837;
X3 = X1;
goto L3840;
L3833:
if ( FALSE( scrt2__3c_2dtwo( X1, X4 ) ) ) goto L3837;
X3 = X1;
goto L3840;
L3837:
X3 = PAIR_CAR( X2 );
L3840:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L3825;
L3826:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__2b_2dtwo_v );
DEFSTRING( t3843, "SCRT2_+-TWO", 11 );
TSCP scrt2__2b_2dtwo( x1701, y1702 )
TSCP x1701, y1702;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3843 ) ) );
if ( NEQ( TSCPTAG( x1701 ), FIXNUMTAG ) ) goto L3845;
if ( NEQ( TSCPTAG( y1702 ), FIXNUMTAG ) ) goto L3847;
POPSTACKTRACE( _TSCP( IPLUS( INT( x1701 ),
INT( y1702 ) ) ) );
L3847:
if ( NOT( AND( EQ( TSCPTAG( y1702 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1702 ), FLOATTAG ) ) )
) goto L3849;
POPSTACKTRACE( FLTV_FLT( PLUS( FIX_FLTV( x1701 ),
FLOAT_VALUE( y1702 ) ) ) );
L3849:
POPSTACKTRACE( scrt6_error( c1715,
c1321,
CONS( y1702, EMPTYLIST ) ) );
L3845:
if ( NEQ( TSCPTAG( y1702 ), FIXNUMTAG ) ) goto L3851;
if ( NOT( AND( EQ( TSCPTAG( x1701 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1701 ), FLOATTAG ) ) )
) goto L3853;
POPSTACKTRACE( FLTV_FLT( PLUS( FLOAT_VALUE( x1701 ),
FIX_FLTV( y1702 ) ) ) );
L3853:
POPSTACKTRACE( scrt6_error( c1715,
c1321,
CONS( x1701, EMPTYLIST ) ) );
L3851:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1701 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1701 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3861;
if ( NOT( AND( EQ( TSCPTAG( y1702 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1702 ), FLOATTAG ) ) )
) goto L3861;
POPSTACKTRACE( FLTV_FLT( PLUS( FLOAT_VALUE( x1701 ),
FLOAT_VALUE( y1702 ) ) ) );
L3861:
X1 = CONS( y1702, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1715,
c1318, CONS( x1701, X1 ) ) );
}
DEFTSCP( scrt2__2b_v );
DEFSTRING( t3862, "+", 1 );
TSCP scrt2__2b( x1723 )
TSCP x1723;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3862 ) ) );
X1 = _TSCP( 0 );
X2 = x1723;
L3865:
if ( FALSE( X2 ) ) goto L3866;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3869;
scrt1__24__car_2derror( X2 );
L3869:
X4 = PAIR_CAR( X2 );
if ( BITAND( BITOR( INT( X1 ), INT( X4 ) ),
3 ) ) goto L3872;
X3 = _TSCP( IPLUS( INT( X1 ), INT( X4 ) ) );
goto L3873;
L3872:
X3 = scrt2__2b_2dtwo( X1, X4 );
L3873:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L3865;
L3866:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__2a_2dtwo_v );
DEFSTRING( t3875, "SCRT2_*-TWO", 11 );
TSCP scrt2__2a_2dtwo( x1744, y1745 )
TSCP x1744, y1745;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3875 ) ) );
if ( NEQ( TSCPTAG( x1744 ), FIXNUMTAG ) ) goto L3877;
if ( NEQ( TSCPTAG( y1745 ), FIXNUMTAG ) ) goto L3879;
POPSTACKTRACE( _TSCP( ITIMES( FIXED_C( x1744 ),
INT( y1745 ) ) ) );
L3879:
if ( NOT( AND( EQ( TSCPTAG( y1745 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1745 ), FLOATTAG ) ) )
) goto L3881;
POPSTACKTRACE( FLTV_FLT( TIMES( FIX_FLTV( x1744 ),
FLOAT_VALUE( y1745 ) ) ) );
L3881:
POPSTACKTRACE( scrt6_error( c1758,
c1321,
CONS( y1745, EMPTYLIST ) ) );
L3877:
if ( NEQ( TSCPTAG( y1745 ), FIXNUMTAG ) ) goto L3883;
if ( NOT( AND( EQ( TSCPTAG( x1744 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1744 ), FLOATTAG ) ) )
) goto L3885;
POPSTACKTRACE( FLTV_FLT( TIMES( FLOAT_VALUE( x1744 ),
FIX_FLTV( y1745 ) ) ) );
L3885:
POPSTACKTRACE( scrt6_error( c1758,
c1321,
CONS( x1744, EMPTYLIST ) ) );
L3883:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1744 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1744 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3893;
if ( NOT( AND( EQ( TSCPTAG( y1745 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1745 ), FLOATTAG ) ) )
) goto L3893;
POPSTACKTRACE( FLTV_FLT( TIMES( FLOAT_VALUE( x1744 ),
FLOAT_VALUE( y1745 ) ) ) );
L3893:
X1 = CONS( y1745, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1758,
c1318, CONS( x1744, X1 ) ) );
}
DEFTSCP( scrt2__2a_v );
DEFSTRING( t3894, "*", 1 );
TSCP scrt2__2a( x1766 )
TSCP x1766;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3894 ) ) );
X1 = _TSCP( 4 );
X2 = x1766;
L3897:
if ( FALSE( X2 ) ) goto L3898;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3901;
scrt1__24__car_2derror( X2 );
L3901:
X4 = PAIR_CAR( X2 );
if ( BITAND( BITOR( INT( X1 ), INT( X4 ) ),
3 ) ) goto L3904;
X3 = _TSCP( ITIMES( FIXED_C( X1 ), INT( X4 ) ) );
goto L3905;
L3904:
X3 = scrt2__2a_2dtwo( X1, X4 );
L3905:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L3897;
L3898:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2__2d_2dtwo_v );
DEFSTRING( t3907, "SCRT2_--TWO", 11 );
TSCP scrt2__2d_2dtwo( x1788, y1789 )
TSCP x1788, y1789;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3907 ) ) );
if ( NEQ( TSCPTAG( x1788 ), FIXNUMTAG ) ) goto L3909;
if ( NEQ( TSCPTAG( y1789 ), FIXNUMTAG ) ) goto L3911;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( x1788 ),
INT( y1789 ) ) ) );
L3911:
if ( NOT( AND( EQ( TSCPTAG( y1789 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1789 ), FLOATTAG ) ) )
) goto L3913;
POPSTACKTRACE( FLTV_FLT( DIFFERENCE( FIX_FLTV( x1788 ),
FLOAT_VALUE( y1789 ) ) ) );
L3913:
POPSTACKTRACE( scrt6_error( c1802,
c1321,
CONS( y1789, EMPTYLIST ) ) );
L3909:
if ( NEQ( TSCPTAG( y1789 ), FIXNUMTAG ) ) goto L3915;
if ( NOT( AND( EQ( TSCPTAG( x1788 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1788 ), FLOATTAG ) ) )
) goto L3917;
POPSTACKTRACE( FLTV_FLT( DIFFERENCE( FLOAT_VALUE( x1788 ),
FIX_FLTV( y1789 ) ) ) );
L3917:
POPSTACKTRACE( scrt6_error( c1802,
c1321,
CONS( x1788, EMPTYLIST ) ) );
L3915:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1788 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1788 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3925;
if ( NOT( AND( EQ( TSCPTAG( y1789 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1789 ), FLOATTAG ) ) )
) goto L3925;
POPSTACKTRACE( FLTV_FLT( DIFFERENCE( FLOAT_VALUE( x1788 ),
FLOAT_VALUE( y1789 ) ) ) );
L3925:
X1 = CONS( y1789, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1802,
c1318, CONS( x1788, X1 ) ) );
}
DEFTSCP( scrt2__2d_v );
DEFSTRING( t3926, "-", 1 );
TSCP scrt2__2d( x1810, y1811 )
TSCP x1810, y1811;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3926 ) ) );
if ( FALSE( y1811 ) ) goto L3928;
if ( EQ( TSCPTAG( y1811 ), PAIRTAG ) ) goto L3932;
scrt1__24__car_2derror( y1811 );
L3932:
X2 = PAIR_CAR( y1811 );
if ( BITAND( BITOR( INT( x1810 ), INT( X2 ) ),
3 ) ) goto L3935;
X1 = _TSCP( IDIFFERENCE( INT( x1810 ), INT( X2 ) ) );
goto L3936;
L3935:
X1 = scrt2__2d_2dtwo( x1810, X2 );
L3936:
X2 = PAIR_CDR( y1811 );
L3938:
if ( FALSE( X2 ) ) goto L3939;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3942;
scrt1__24__car_2derror( X2 );
L3942:
X4 = PAIR_CAR( X2 );
if ( BITAND( BITOR( INT( X1 ), INT( X4 ) ),
3 ) ) goto L3945;
X3 = _TSCP( IDIFFERENCE( INT( X1 ), INT( X4 ) ) );
goto L3946;
L3945:
X3 = scrt2__2d_2dtwo( X1, X4 );
L3946:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L3938;
L3939:
POPSTACKTRACE( X1 );
L3928:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( x1810 ) ),
3 ) ) goto L3948;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( _TSCP( 0 ) ),
INT( x1810 ) ) ) );
L3948:
POPSTACKTRACE( scrt2__2d_2dtwo( _TSCP( 0 ), x1810 ) );
}
DEFTSCP( scrt2__2f_2dtwo_v );
DEFSTRING( t3950, "SCRT2_/-TWO", 11 );
TSCP scrt2__2f_2dtwo( x1852, y1853 )
TSCP x1852, y1853;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t3950 ) ) );
if ( NEQ( TSCPTAG( x1852 ), FIXNUMTAG ) ) goto L3952;
if ( NEQ( TSCPTAG( y1853 ), FIXNUMTAG ) ) goto L3954;
X1 = _TSCP( REMAINDER( INT( x1852 ), INT( y1853 ) ) );
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3956;
POPSTACKTRACE( C_FIXED( QUOTIENT( INT( x1852 ),
INT( y1853 ) ) ) );
L3956:
POPSTACKTRACE( FLTV_FLT( QUOTIENT( FIX_FLTV( x1852 ),
FIX_FLTV( y1853 ) ) ) );
L3954:
if ( NOT( AND( EQ( TSCPTAG( y1853 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1853 ), FLOATTAG ) ) )
) goto L3958;
POPSTACKTRACE( FLTV_FLT( QUOTIENT( FIX_FLTV( x1852 ),
FLOAT_VALUE( y1853 ) ) ) );
L3958:
POPSTACKTRACE( scrt6_error( c1866,
c1321,
CONS( y1853, EMPTYLIST ) ) );
L3952:
if ( NEQ( TSCPTAG( y1853 ), FIXNUMTAG ) ) goto L3960;
if ( NOT( AND( EQ( TSCPTAG( x1852 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1852 ), FLOATTAG ) ) )
) goto L3962;
POPSTACKTRACE( FLTV_FLT( QUOTIENT( FLOAT_VALUE( x1852 ),
FIX_FLTV( y1853 ) ) ) );
L3962:
POPSTACKTRACE( scrt6_error( c1866,
c1321,
CONS( x1852, EMPTYLIST ) ) );
L3960:
X1 = BOOLEAN( AND( EQ( TSCPTAG( x1852 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1852 ),
FLOATTAG ) ) );
if ( FALSE( X1 ) ) goto L3970;
if ( NOT( AND( EQ( TSCPTAG( y1853 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( y1853 ), FLOATTAG ) ) )
) goto L3970;
POPSTACKTRACE( FLTV_FLT( QUOTIENT( FLOAT_VALUE( x1852 ),
FLOAT_VALUE( y1853 ) ) ) );
L3970:
X1 = CONS( y1853, EMPTYLIST );
POPSTACKTRACE( scrt6_error( c1866,
c1318, CONS( x1852, X1 ) ) );
}
DEFTSCP( scrt2__2f_v );
DEFSTRING( t3971, "/", 1 );
TSCP scrt2__2f( x1877, y1878 )
TSCP x1877, y1878;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t3971 ) ) );
if ( FALSE( y1878 ) ) goto L3973;
if ( EQ( TSCPTAG( y1878 ), PAIRTAG ) ) goto L3977;
scrt1__24__car_2derror( y1878 );
L3977:
X2 = PAIR_CAR( y1878 );
X3 = BOOLEAN( NOT( BITAND( BITOR( INT( x1877 ),
INT( X2 ) ),
3 ) ) );
if ( FALSE( X3 ) ) goto L3986;
X4 = _TSCP( REMAINDER( INT( x1877 ), INT( X2 ) ) );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L3986;
X1 = C_FIXED( QUOTIENT( INT( x1877 ), INT( X2 ) ) );
goto L3987;
L3986:
X1 = scrt2__2f_2dtwo( x1877, X2 );
L3987:
X2 = PAIR_CDR( y1878 );
L3989:
if ( FALSE( X2 ) ) goto L3990;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L3993;
scrt1__24__car_2derror( X2 );
L3993:
X4 = PAIR_CAR( X2 );
X5 = BOOLEAN( NOT( BITAND( BITOR( INT( X1 ),
INT( X4 ) ),
3 ) ) );
if ( FALSE( X5 ) ) goto L4002;
X6 = _TSCP( REMAINDER( INT( X1 ), INT( X4 ) ) );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4002;
X3 = C_FIXED( QUOTIENT( INT( X1 ), INT( X4 ) ) );
goto L4003;
L4002:
X3 = scrt2__2f_2dtwo( X1, X4 );
L4003:
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L3989;
L3990:
POPSTACKTRACE( X1 );
L3973:
X1 = BOOLEAN( NOT( BITAND( BITOR( INT( _TSCP( 4 ) ),
INT( x1877 ) ),
3 ) ) );
if ( FALSE( X1 ) ) goto L4011;
X2 = _TSCP( REMAINDER( INT( _TSCP( 4 ) ),
INT( x1877 ) ) );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4011;
POPSTACKTRACE( C_FIXED( QUOTIENT( INT( _TSCP( 4 ) ),
INT( x1877 ) ) ) );
L4011:
POPSTACKTRACE( scrt2__2f_2dtwo( _TSCP( 4 ), x1877 ) );
}
DEFTSCP( scrt2_abs_v );
DEFSTRING( t4012, "ABS", 3 );
TSCP scrt2_abs( x1940 )
TSCP x1940;
{
PUSHSTACKTRACE( U_TX( ADR( t4012 ) ) );
if ( NEQ( TSCPTAG( x1940 ), FIXNUMTAG ) ) goto L4015;
if ( LT( INT( x1940 ), 0 ) ) goto L4019;
POPSTACKTRACE( x1940 );
L4015:
if ( TRUE( scrt2_negative_3f( x1940 ) ) ) goto L4019;
POPSTACKTRACE( x1940 );
L4019:
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( x1940 ) ),
3 ) ) goto L4022;
POPSTACKTRACE( _TSCP( IDIFFERENCE( INT( _TSCP( 0 ) ),
INT( x1940 ) ) ) );
L4022:
POPSTACKTRACE( scrt2__2d_2dtwo( _TSCP( 0 ), x1940 ) );
}
DEFTSCP( scrt2_quotient_v );
DEFSTRING( t4024, "QUOTIENT", 8 );
EXTERNTSCPP( scrt2_truncate );
EXTERNTSCP( scrt2_truncate_v );
TSCP scrt2_quotient( x1954, y1955 )
TSCP x1954, y1955;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4024 ) ) );
if ( BITAND( BITOR( INT( x1954 ), INT( y1955 ) ),
3 ) ) goto L4026;
POPSTACKTRACE( C_FIXED( QUOTIENT( INT( x1954 ),
INT( y1955 ) ) ) );
L4026:
X2 = BOOLEAN( NOT( BITAND( BITOR( INT( x1954 ),
INT( y1955 ) ),
3 ) ) );
if ( FALSE( X2 ) ) goto L4034;
X3 = _TSCP( REMAINDER( INT( x1954 ), INT( y1955 ) ) );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4034;
X1 = C_FIXED( QUOTIENT( INT( x1954 ), INT( y1955 ) ) );
goto L4035;
L4034:
X1 = scrt2__2f_2dtwo( x1954, y1955 );
L4035:
POPSTACKTRACE( scrt2_truncate( X1 ) );
}
DEFTSCP( scrt2_remainder_v );
DEFSTRING( t4036, "REMAINDER", 9 );
EXTERNTSCPP( scrt2_round );
EXTERNTSCP( scrt2_round_v );
TSCP scrt2_remainder( x1973, y1974 )
TSCP x1973, y1974;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4036 ) ) );
if ( BITAND( BITOR( INT( x1973 ), INT( y1974 ) ),
3 ) ) goto L4038;
POPSTACKTRACE( _TSCP( REMAINDER( INT( x1973 ),
INT( y1974 ) ) ) );
L4038:
X3 = scrt2_quotient( x1973, y1974 );
if ( BITAND( BITOR( INT( y1974 ), INT( X3 ) ),
3 ) ) goto L4041;
X2 = _TSCP( ITIMES( FIXED_C( y1974 ), INT( X3 ) ) );
goto L4042;
L4041:
X2 = scrt2__2a_2dtwo( y1974, X3 );
L4042:
if ( BITAND( BITOR( INT( x1973 ), INT( X2 ) ),
3 ) ) goto L4044;
X1 = _TSCP( IDIFFERENCE( INT( x1973 ), INT( X2 ) ) );
goto L4045;
L4044:
X1 = scrt2__2d_2dtwo( x1973, X2 );
L4045:
POPSTACKTRACE( scrt2_round( X1 ) );
}
DEFTSCP( scrt2_modulo_v );
DEFSTRING( t4046, "MODULO", 6 );
TSCP scrt2_modulo( x1997, y1998 )
TSCP x1997, y1998;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t4046 ) ) );
if ( BITAND( BITOR( INT( x1997 ), INT( y1998 ) ),
3 ) ) goto L4048;
X1 = _TSCP( REMAINDER( INT( x1997 ), INT( y1998 ) ) );
goto L4049;
L4048:
X1 = scrt2_remainder( x1997, y1998 );
L4049:
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L4052;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4056;
POPSTACKTRACE( X1 );
L4052:
if ( FALSE( scrt2_zero_3f( X1 ) ) ) goto L4056;
POPSTACKTRACE( X1 );
L4056:
if ( NEQ( TSCPTAG( y1998 ), FIXNUMTAG ) ) goto L4060;
if ( GT( INT( y1998 ), 0 ) ) goto L4064;
goto L4065;
L4060:
if ( FALSE( scrt2_positive_3f( y1998 ) ) ) goto L4065;
L4064:
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L4069;
if ( LTE( INT( X1 ), 0 ) ) goto L4073;
POPSTACKTRACE( X1 );
L4069:
if ( FALSE( scrt2_positive_3f( X1 ) ) ) goto L4073;
POPSTACKTRACE( X1 );
L4073:
if ( BITAND( BITOR( INT( y1998 ), INT( X1 ) ),
3 ) ) goto L4076;
POPSTACKTRACE( _TSCP( IPLUS( INT( y1998 ),
INT( X1 ) ) ) );
L4076:
POPSTACKTRACE( scrt2__2b_2dtwo( y1998, X1 ) );
L4065:
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L4079;
if ( GTE( INT( X1 ), 0 ) ) goto L4083;
POPSTACKTRACE( X1 );
L4079:
if ( FALSE( scrt2_negative_3f( X1 ) ) ) goto L4083;
POPSTACKTRACE( X1 );
L4083:
if ( BITAND( BITOR( INT( y1998 ), INT( X1 ) ),
3 ) ) goto L4086;
POPSTACKTRACE( _TSCP( IPLUS( INT( y1998 ),
INT( X1 ) ) ) );
L4086:
POPSTACKTRACE( scrt2__2b_2dtwo( y1998, X1 ) );
}
DEFTSCP( scrt2_gcd_v );
DEFSTRING( t4088, "GCD", 3 );
DEFSTRING( t4091, "GCD2 [inside GCD]", 17 );
TSCP scrt2_g2050( m2052, n2053 )
TSCP m2052, n2053;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4091 ) ) );
L4092:
if ( BITAND( BITOR( INT( m2052 ), INT( n2053 ) ),
3 ) ) goto L4093;
X1 = _TSCP( REMAINDER( INT( m2052 ), INT( n2053 ) ) );
goto L4094;
L4093:
X1 = scrt2_remainder( m2052, n2053 );
L4094:
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L4097;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4101;
POPSTACKTRACE( n2053 );
L4097:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( 0 ) ) ) ) goto L4101;
POPSTACKTRACE( n2053 );
L4101:
X2 = n2053;
n2053 = X1;
m2052 = X2;
goto L4092;
}
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt2_g2050 );
TSCP scrt2_gcd( x2048 )
TSCP x2048;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4088 ) ) );
X2 = scrt1_length( x2048 );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4105;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L4107;
if ( EQ( TSCPTAG( x2048 ), PAIRTAG ) ) goto L4110;
scrt1__24__car_2derror( x2048 );
L4110:
X1 = PAIR_CAR( x2048 );
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L4113;
if ( LT( INT( X1 ), 0 ) ) goto L4118;
POPSTACKTRACE( X1 );
L4113:
POPSTACKTRACE( scrt2_abs( X1 ) );
L4107:
if ( EQ( TSCPTAG( x2048 ), PAIRTAG ) ) goto L4121;
scrt1__24__car_2derror( x2048 );
L4121:
X5 = PAIR_CAR( x2048 );
if ( NEQ( TSCPTAG( X5 ), FIXNUMTAG ) ) goto L4124;
if ( LT( INT( X5 ), 0 ) ) goto L4129;
X4 = X5;
goto L4130;
L4124:
X4 = scrt2_abs( X5 );
goto L4130;
L4129:
X4 = _TSCP( INEGATE( INT( X5 ) ) );
L4130:
X7 = PAIR_CDR( x2048 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L4133;
scrt1__24__car_2derror( X7 );
L4133:
X6 = PAIR_CAR( X7 );
if ( NEQ( TSCPTAG( X6 ), FIXNUMTAG ) ) goto L4136;
if ( LT( INT( X6 ), 0 ) ) goto L4141;
X5 = X6;
goto L4142;
L4136:
X5 = scrt2_abs( X6 );
goto L4142;
L4141:
X5 = _TSCP( INEGATE( INT( X6 ) ) );
L4142:
X3 = scrt2_g2050( X4, X5 );
X5 = PAIR_CDR( x2048 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4145;
scrt1__24__cdr_2derror( X5 );
L4145:
X4 = PAIR_CDR( X5 );
L4147:
if ( FALSE( X4 ) ) goto L4148;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4151;
scrt1__24__car_2derror( X4 );
L4151:
X7 = PAIR_CAR( X4 );
if ( NEQ( TSCPTAG( X7 ), FIXNUMTAG ) ) goto L4154;
if ( LT( INT( X7 ), 0 ) ) goto L4159;
X6 = X7;
goto L4160;
L4154:
X6 = scrt2_abs( X7 );
goto L4160;
L4159:
X6 = _TSCP( INEGATE( INT( X7 ) ) );
L4160:
X5 = scrt2_g2050( X3, X6 );
X4 = PAIR_CDR( X4 );
X3 = X5;
goto L4147;
L4148:
POPSTACKTRACE( X3 );
L4105:
POPSTACKTRACE( _TSCP( 0 ) );
L4118:
POPSTACKTRACE( _TSCP( INEGATE( INT( X1 ) ) ) );
}
DEFTSCP( scrt2_lcm_v );
DEFSTRING( t4162, "LCM", 3 );
DEFSTRING( t4165, "LCM2 [inside LCM]", 17 );
TSCP scrt2_l2172( m2174, n2175 )
TSCP m2174, n2175;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4165 ) ) );
if ( NEQ( TSCPTAG( n2175 ), FIXNUMTAG ) ) goto L4167;
if ( LT( INT( n2175 ), 0 ) ) goto L4172;
X1 = n2175;
goto L4168;
L4172:
X1 = _TSCP( INEGATE( INT( n2175 ) ) );
goto L4168;
L4167:
X1 = scrt2_abs( n2175 );
L4168:
if ( NEQ( TSCPTAG( m2174 ), FIXNUMTAG ) ) goto L4174;
if ( LT( INT( m2174 ), 0 ) ) goto L4179;
X2 = m2174;
goto L4175;
L4179:
X2 = _TSCP( INEGATE( INT( m2174 ) ) );
goto L4175;
L4174:
X2 = scrt2_abs( m2174 );
L4175:
if ( BITAND( BITOR( INT( X2 ), INT( X1 ) ),
3 ) ) goto L4183;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( X1 ) ) ) goto L4187;
POPSTACKTRACE( X2 );
L4183:
if ( FALSE( scrt2__3d_2dtwo( X2, X1 ) ) ) goto L4187;
POPSTACKTRACE( X2 );
L4187:
if ( BITAND( BITOR( INT( X2 ), INT( X1 ) ),
3 ) ) goto L4190;
X3 = _TSCP( REMAINDER( INT( X2 ), INT( X1 ) ) );
goto L4191;
L4190:
X3 = scrt2_remainder( X2, X1 );
L4191:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L4194;
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4198;
POPSTACKTRACE( X2 );
L4194:
if ( FALSE( scrt2__3d_2dtwo( X3, _TSCP( 0 ) ) ) ) goto L4198;
POPSTACKTRACE( X2 );
L4198:
if ( BITAND( BITOR( INT( X1 ), INT( X2 ) ),
3 ) ) goto L4201;
X3 = _TSCP( REMAINDER( INT( X1 ), INT( X2 ) ) );
goto L4202;
L4201:
X3 = scrt2_remainder( X1, X2 );
L4202:
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L4205;
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4209;
POPSTACKTRACE( X1 );
L4205:
if ( FALSE( scrt2__3d_2dtwo( X3, _TSCP( 0 ) ) ) ) goto L4209;
POPSTACKTRACE( X1 );
L4209:
X5 = CONS( X1, EMPTYLIST );
X4 = scrt2_gcd( CONS( X2, X5 ) );
X5 = BOOLEAN( NOT( BITAND( BITOR( INT( X2 ),
INT( X4 ) ),
3 ) ) );
if ( FALSE( X5 ) ) goto L4219;
X6 = _TSCP( REMAINDER( INT( X2 ), INT( X4 ) ) );
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4219;
X3 = C_FIXED( QUOTIENT( INT( X2 ), INT( X4 ) ) );
goto L4220;
L4219:
X3 = scrt2__2f_2dtwo( X2, X4 );
L4220:
if ( BITAND( BITOR( INT( X3 ), INT( X1 ) ),
3 ) ) goto L4222;
POPSTACKTRACE( _TSCP( ITIMES( FIXED_C( X3 ),
INT( X1 ) ) ) );
L4222:
POPSTACKTRACE( scrt2__2a_2dtwo( X3, X1 ) );
}
EXTERNTSCPP( scrt2_l2172 );
TSCP scrt2_lcm( x2170 )
TSCP x2170;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4162 ) ) );
X2 = scrt1_length( x2170 );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 0 ) ) ) ) goto L4225;
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( _TSCP( 4 ) ) ) ) goto L4227;
if ( EQ( TSCPTAG( x2170 ), PAIRTAG ) ) goto L4230;
scrt1__24__car_2derror( x2170 );
L4230:
X1 = PAIR_CAR( x2170 );
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L4233;
if ( LT( INT( X1 ), 0 ) ) goto L4238;
POPSTACKTRACE( X1 );
L4233:
POPSTACKTRACE( scrt2_abs( X1 ) );
L4227:
if ( EQ( TSCPTAG( x2170 ), PAIRTAG ) ) goto L4241;
scrt1__24__car_2derror( x2170 );
L4241:
X4 = PAIR_CAR( x2170 );
X6 = PAIR_CDR( x2170 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4245;
scrt1__24__car_2derror( X6 );
L4245:
X5 = PAIR_CAR( X6 );
X3 = scrt2_l2172( X4, X5 );
X5 = PAIR_CDR( x2170 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4249;
scrt1__24__cdr_2derror( X5 );
L4249:
X4 = PAIR_CDR( X5 );
L4251:
if ( FALSE( X4 ) ) goto L4252;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4255;
scrt1__24__car_2derror( X4 );
L4255:
X6 = PAIR_CAR( X4 );
X5 = scrt2_l2172( X3, X6 );
X4 = PAIR_CDR( X4 );
X3 = X5;
goto L4251;
L4252:
POPSTACKTRACE( X3 );
L4225:
POPSTACKTRACE( _TSCP( 4 ) );
L4238:
POPSTACKTRACE( _TSCP( INEGATE( INT( X1 ) ) ) );
}
DEFTSCP( scrt2_floor_v );
DEFSTRING( t4258, "FLOOR", 5 );
EXTERNDOUBLEP( floor );
TSCP scrt2_floor( x2326 )
TSCP x2326;
{
PUSHSTACKTRACE( U_TX( ADR( t4258 ) ) );
if ( EQ( TSCPTAG( x2326 ), FIXNUMTAG ) ) goto L4260;
POPSTACKTRACE( DOUBLE_TSCP( floor( TSCP_DOUBLE( x2326 ) ) ) );
L4260:
POPSTACKTRACE( x2326 );
}
DEFTSCP( scrt2_ceiling_v );
DEFSTRING( t4262, "CEILING", 7 );
EXTERNDOUBLEP( ceil );
TSCP scrt2_ceiling( x2333 )
TSCP x2333;
{
PUSHSTACKTRACE( U_TX( ADR( t4262 ) ) );
if ( EQ( TSCPTAG( x2333 ), FIXNUMTAG ) ) goto L4264;
POPSTACKTRACE( DOUBLE_TSCP( ceil( TSCP_DOUBLE( x2333 ) ) ) );
L4264:
POPSTACKTRACE( x2333 );
}
DEFTSCP( scrt2_truncate_v );
DEFSTRING( t4266, "TRUNCATE", 8 );
TSCP scrt2_truncate( x2340 )
TSCP x2340;
{
PUSHSTACKTRACE( U_TX( ADR( t4266 ) ) );
if ( BITAND( BITOR( INT( x2340 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L4269;
if ( LT( INT( x2340 ), INT( _TSCP( 0 ) ) ) ) goto L4273;
goto L4274;
L4269:
if ( FALSE( scrt2__3c_2dtwo( x2340, _TSCP( 0 ) ) ) ) goto L4274;
L4273:
POPSTACKTRACE( scrt2_ceiling( x2340 ) );
L4274:
POPSTACKTRACE( scrt2_floor( x2340 ) );
}
DEFTSCP( scrt2_round_v );
DEFSTRING( t4277, "ROUND", 5 );
TSCP scrt2_round( x2348 )
TSCP x2348;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t4277 ) ) );
if ( EQ( TSCPTAG( x2348 ), FIXNUMTAG ) ) goto L4279;
if ( BITAND( BITOR( INT( x2348 ), INT( c2357 ) ),
3 ) ) goto L4281;
X1 = _TSCP( IPLUS( INT( x2348 ), INT( c2357 ) ) );
goto L4282;
L4281:
X1 = scrt2__2b_2dtwo( x2348, c2357 );
L4282:
POPSTACKTRACE( scrt2_floor( X1 ) );
L4279:
POPSTACKTRACE( x2348 );
}
DEFTSCP( scrt2_exp_v );
DEFSTRING( t4283, "EXP", 3 );
EXTERNDOUBLEP( exp );
TSCP scrt2_exp( x2359 )
TSCP x2359;
{
PUSHSTACKTRACE( U_TX( ADR( t4283 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( exp( TSCP_DOUBLE( x2359 ) ) ) );
}
DEFTSCP( scrt2_log_v );
DEFSTRING( t4285, "LOG", 3 );
EXTERNDOUBLEP( log );
TSCP scrt2_log( x2364 )
TSCP x2364;
{
PUSHSTACKTRACE( U_TX( ADR( t4285 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( log( TSCP_DOUBLE( x2364 ) ) ) );
}
DEFTSCP( scrt2_sin_v );
DEFSTRING( t4287, "SIN", 3 );
EXTERNDOUBLEP( sin );
TSCP scrt2_sin( x2369 )
TSCP x2369;
{
PUSHSTACKTRACE( U_TX( ADR( t4287 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( sin( TSCP_DOUBLE( x2369 ) ) ) );
}
DEFTSCP( scrt2_cos_v );
DEFSTRING( t4289, "COS", 3 );
EXTERNDOUBLEP( cos );
TSCP scrt2_cos( x2374 )
TSCP x2374;
{
PUSHSTACKTRACE( U_TX( ADR( t4289 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( cos( TSCP_DOUBLE( x2374 ) ) ) );
}
DEFTSCP( scrt2_tan_v );
DEFSTRING( t4291, "TAN", 3 );
EXTERNDOUBLEP( tan );
TSCP scrt2_tan( x2379 )
TSCP x2379;
{
PUSHSTACKTRACE( U_TX( ADR( t4291 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( tan( TSCP_DOUBLE( x2379 ) ) ) );
}
DEFTSCP( scrt2_asin_v );
DEFSTRING( t4293, "ASIN", 4 );
EXTERNDOUBLEP( asin );
TSCP scrt2_asin( x2384 )
TSCP x2384;
{
PUSHSTACKTRACE( U_TX( ADR( t4293 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( asin( TSCP_DOUBLE( x2384 ) ) ) );
}
DEFTSCP( scrt2_acos_v );
DEFSTRING( t4295, "ACOS", 4 );
EXTERNDOUBLEP( acos );
TSCP scrt2_acos( x2389 )
TSCP x2389;
{
PUSHSTACKTRACE( U_TX( ADR( t4295 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( acos( TSCP_DOUBLE( x2389 ) ) ) );
}
DEFTSCP( scrt2_atan_v );
DEFSTRING( t4297, "ATAN", 4 );
EXTERNDOUBLEP( atan2 );
EXTERNDOUBLEP( atan );
TSCP scrt2_atan( x2398, y2399 )
TSCP x2398, y2399;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t4297 ) ) );
if ( FALSE( y2399 ) ) goto L4299;
if ( EQ( TSCPTAG( y2399 ), PAIRTAG ) ) goto L4302;
scrt1__24__car_2derror( y2399 );
L4302:
X1 = PAIR_CAR( y2399 );
POPSTACKTRACE( DOUBLE_TSCP( atan2( TSCP_DOUBLE( x2398 ),
TSCP_DOUBLE( X1 ) ) ) );
L4299:
POPSTACKTRACE( DOUBLE_TSCP( atan( TSCP_DOUBLE( x2398 ) ) ) );
}
DEFTSCP( scrt2_sqrt_v );
DEFSTRING( t4304, "SQRT", 4 );
EXTERNDOUBLEP( sqrt );
TSCP scrt2_sqrt( x2408 )
TSCP x2408;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4304 ) ) );
if ( NEQ( TSCPTAG( x2408 ), FIXNUMTAG ) ) goto L4307;
if ( LT( INT( x2408 ), 0 ) ) goto L4311;
goto L4314;
L4307:
if ( FALSE( scrt2_negative_3f( x2408 ) ) ) goto L4314;
L4311:
scrt6_error( c2415,
c2416, CONS( x2408, EMPTYLIST ) );
L4314:
X1 = DOUBLE_TSCP( sqrt( TSCP_DOUBLE( x2408 ) ) );
if ( NEQ( TSCPTAG( x2408 ), FIXNUMTAG ) ) goto L4316;
X3 = scrt2_round( X1 );
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), FLOATTAG ) ) ) goto L4319;
scrt6_error( c1172, c1173, CONS( X3, EMPTYLIST ) );
L4319:
X4 = BOOLEAN( LT( FLOAT_VALUE( X3 ), -536870912.1 ) );
if ( TRUE( X4 ) ) goto L4325;
if ( LTE( FLOAT_VALUE( X3 ), 536870911.1 ) ) goto L4328;
L4325:
scrt6_error( c1172, c1178, CONS( X3, EMPTYLIST ) );
L4328:
X2 = FLT_FIX( X3 );
if ( BITAND( BITOR( INT( X2 ), INT( X2 ) ),
3 ) ) goto L4332;
X3 = _TSCP( ITIMES( FIXED_C( X2 ), INT( X2 ) ) );
goto L4333;
L4332:
X3 = scrt2__2a_2dtwo( X2, X2 );
L4333:
if ( EQ( UNSIGNED( X3 ), UNSIGNED( x2408 ) ) ) goto L4330;
POPSTACKTRACE( X1 );
L4330:
POPSTACKTRACE( X2 );
L4316:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt2_expt_v );
DEFSTRING( t4334, "EXPT", 4 );
EXTERNDOUBLEP( pow );
TSCP scrt2_expt( x2445, y2446 )
TSCP x2445, y2446;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4334 ) ) );
if ( BITAND( BITOR( INT( x2445 ), INT( c2459 ) ),
3 ) ) goto L4336;
X2 = BOOLEAN( EQ( UNSIGNED( x2445 ),
UNSIGNED( c2459 ) ) );
goto L4337;
L4336:
X2 = scrt2__3d_2dtwo( x2445, c2459 );
L4337:
if ( FALSE( X2 ) ) goto L4350;
if ( BITAND( BITOR( INT( y2446 ), INT( c2459 ) ),
3 ) ) goto L4343;
if ( NEQ( UNSIGNED( y2446 ), UNSIGNED( c2459 ) ) ) goto L4350;
POPSTACKTRACE( c2511 );
L4343:
if ( FALSE( scrt2__3d_2dtwo( y2446, c2459 ) ) ) goto L4350;
POPSTACKTRACE( c2511 );
L4350:
X1 = DOUBLE_TSCP( pow( TSCP_DOUBLE( x2445 ),
TSCP_DOUBLE( y2446 ) ) );
if ( NEQ( TSCPTAG( x2445 ), FIXNUMTAG ) ) goto L4352;
if ( NEQ( TSCPTAG( y2446 ), FIXNUMTAG ) ) goto L4354;
if ( NEQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L4356;
if ( LT( INT( X1 ), 0 ) ) goto L4361;
X2 = X1;
goto L4357;
L4361:
X2 = _TSCP( INEGATE( INT( X1 ) ) );
goto L4357;
L4356:
X2 = scrt2_abs( X1 );
L4357:
if ( BITAND( BITOR( INT( X2 ),
INT( _TSCP( 2147483644 ) ) ),
3 ) ) goto L4365;
if ( LTE( INT( X2 ), INT( _TSCP( 2147483644 ) ) ) ) goto L4369;
POPSTACKTRACE( X1 );
L4365:
if ( TRUE( scrt2__3c_3d_2dtwo( X2, _TSCP( 2147483644 ) ) )
) goto L4369;
POPSTACKTRACE( X1 );
L4354:
POPSTACKTRACE( X1 );
L4352:
POPSTACKTRACE( X1 );
L4369:
X2 = scrt2_round( X1 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), FLOATTAG ) ) ) goto L4373;
scrt6_error( c1172, c1173, CONS( X2, EMPTYLIST ) );
L4373:
X3 = BOOLEAN( LT( FLOAT_VALUE( X2 ), -536870912.1 ) );
if ( TRUE( X3 ) ) goto L4379;
if ( LTE( FLOAT_VALUE( X2 ), 536870911.1 ) ) goto L4382;
L4379:
scrt6_error( c1172, c1178, CONS( X2, EMPTYLIST ) );
L4382:
POPSTACKTRACE( FLT_FIX( X2 ) );
}
DEFTSCP( scrt2_exact_2d_3einexact_v );
DEFSTRING( t4383, "EXACT->INEXACT", 14 );
TSCP scrt2_exact_2d_3einexact( x2518 )
TSCP x2518;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t4383 ) ) );
if ( NEQ( TSCPTAG( x2518 ), FIXNUMTAG ) ) goto L4385;
POPSTACKTRACE( FIX_FLT( x2518 ) );
L4385:
if ( AND( EQ( TSCPTAG( x2518 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2518 ), FLOATTAG ) )
) goto L4388;
POPSTACKTRACE( scrt6_error( c2523,
c1282,
CONS( x2518, EMPTYLIST ) ) );
L4388:
POPSTACKTRACE( x2518 );
}
DEFTSCP( scrt2_inexact_2d_3eexact_v );
DEFSTRING( t4390, "INEXACT->EXACT", 14 );
TSCP scrt2_inexact_2d_3eexact( x2529 )
TSCP x2529;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4390 ) ) );
if ( EQ( TSCPTAG( x2529 ), FIXNUMTAG ) ) goto L4392;
if ( NOT( AND( EQ( TSCPTAG( x2529 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x2529 ), FLOATTAG ) ) )
) goto L4394;
X1 = BOOLEAN( LT( FLOAT_VALUE( x2529 ), -536870912.1 ) );
if ( TRUE( X1 ) ) goto L4401;
if ( LTE( FLOAT_VALUE( x2529 ), 536870911.1 ) ) goto L4404;
L4401:
scrt6_error( c1172,
c1178, CONS( x2529, EMPTYLIST ) );
L4404:
POPSTACKTRACE( FLT_FIX( x2529 ) );
L4394:
POPSTACKTRACE( scrt6_error( c2534,
c1282,
CONS( x2529, EMPTYLIST ) ) );
L4392:
POPSTACKTRACE( x2529 );
}
DEFTSCP( scrt2_number_2d_3estring_v );
DEFSTRING( t4405, "NUMBER->STRING", 14 );
EXTERNTSCPP( scrt1_equal_3f );
EXTERNTSCP( scrt1_equal_3f_v );
EXTERNTSCPP( sc_make_2dstring );
EXTERNTSCP( sc_make_2dstring_v );
EXTERNPOINTERP( sprintf );
EXTERNTSCPP( scrt4_c_2dstring_2d_3estring );
EXTERNTSCP( scrt4_c_2dstring_2d_3estring_v );
EXTERNTSCPP( scrt6_format );
EXTERNTSCP( scrt6_format_v );
EXTERNTSCPP( scrt2_integer_2d_3estring );
EXTERNTSCP( scrt2_integer_2d_3estring_v );
TSCP scrt2_number_2d_3estring( n2544, f2545 )
TSCP n2544, f2545;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4405 ) ) );
f2545 = CONS( f2545, EMPTYLIST );
if ( EQ( TSCPTAG( n2544 ), FIXNUMTAG ) ) goto L4409;
if ( AND( EQ( TSCPTAG( n2544 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2544 ), FLOATTAG ) )
) goto L4409;
scrt6_error( c2556,
c1282, CONS( n2544, EMPTYLIST ) );
L4409:
if ( FALSE( PAIR_CAR( f2545 ) ) ) goto L4411;
X2 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L4414;
scrt1__24__car_2derror( X2 );
L4414:
X1 = PAIR_CAR( X2 );
goto L4412;
L4411:
X1 = _TSCP( 40 );
L4412:
SETGEN( PAIR_CAR( f2545 ), X1 );
if ( FALSE( scrt1_equal_3f( PAIR_CAR( f2545 ), c2562 ) )
) goto L4416;
X1 = sc_make_2dstring( _TSCP( 400 ), EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( n2544 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2544 ), FLOATTAG ) ) )
) goto L4419;
X2 = n2544;
goto L4420;
L4419:
if ( EQ( TSCPTAG( n2544 ), FIXNUMTAG ) ) goto L4422;
scrt6_error( c1185,
c1186, CONS( n2544, EMPTYLIST ) );
L4422:
X2 = FIX_FLT( n2544 );
L4420:
sprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( c2784 ), TSCP_DOUBLE( X2 ) );
POPSTACKTRACE( scrt4_c_2dstring_2d_3estring( X1 ) );
L4416:
X1 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( f2545 ) ),
PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4471;
X3 = scrt1_length( PAIR_CAR( f2545 ) );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L4429;
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 8 ) ) ) );
goto L4430;
L4429:
X2 = scrt2__3d_2dtwo( X3, _TSCP( 8 ) );
L4430:
if ( FALSE( X2 ) ) goto L4471;
X4 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4439;
scrt1__24__car_2derror( X4 );
L4439:
X3 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c2593 ) ) ) goto L4471;
X4 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4446;
scrt1__24__cdr_2derror( X4 );
L4446:
X5 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4449;
scrt1__24__car_2derror( X5 );
L4449:
X3 = PAIR_CAR( X5 );
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L4471;
X4 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4453;
scrt1__24__cdr_2derror( X4 );
L4453:
X5 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4456;
scrt1__24__car_2derror( X5 );
L4456:
X3 = PAIR_CAR( X5 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L4460;
if ( GTE( INT( X3 ), INT( _TSCP( 0 ) ) ) ) goto L4464;
goto L4471;
L4460:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, _TSCP( 0 ) ) ) ) goto L4471;
L4464:
X1 = sc_make_2dstring( _TSCP( 400 ), EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( n2544 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2544 ), FLOATTAG ) ) )
) goto L4472;
X2 = n2544;
goto L4473;
L4472:
if ( EQ( TSCPTAG( n2544 ), FIXNUMTAG ) ) goto L4475;
scrt6_error( c1185,
c1186, CONS( n2544, EMPTYLIST ) );
L4475:
X2 = FIX_FLT( n2544 );
L4473:
X5 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4480;
scrt1__24__cdr_2derror( X5 );
L4480:
X6 = PAIR_CDR( X5 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4483;
scrt1__24__car_2derror( X6 );
L4483:
X3 = scrt6_format( c2764,
CONS( PAIR_CAR( X6 ), EMPTYLIST ) );
sprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( X3 ), TSCP_DOUBLE( X2 ) );
POPSTACKTRACE( scrt4_c_2dstring_2d_3estring( X1 ) );
L4471:
X1 = BOOLEAN( EQ( TSCPTAG( PAIR_CAR( f2545 ) ),
PAIRTAG ) );
if ( FALSE( X1 ) ) goto L4532;
X3 = scrt1_length( PAIR_CAR( f2545 ) );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L4490;
X2 = BOOLEAN( EQ( UNSIGNED( X3 ),
UNSIGNED( _TSCP( 8 ) ) ) );
goto L4491;
L4490:
X2 = scrt2__3d_2dtwo( X3, _TSCP( 8 ) );
L4491:
if ( FALSE( X2 ) ) goto L4532;
X4 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4500;
scrt1__24__car_2derror( X4 );
L4500:
X3 = PAIR_CAR( X4 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( c2656 ) ) ) goto L4532;
X4 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4507;
scrt1__24__cdr_2derror( X4 );
L4507:
X5 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4510;
scrt1__24__car_2derror( X5 );
L4510:
X3 = PAIR_CAR( X5 );
if ( NEQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L4532;
X4 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4514;
scrt1__24__cdr_2derror( X4 );
L4514:
X5 = PAIR_CDR( X4 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L4517;
scrt1__24__car_2derror( X5 );
L4517:
X3 = PAIR_CAR( X5 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 0 ) ) ),
3 ) ) goto L4521;
if ( GTE( INT( X3 ), INT( _TSCP( 0 ) ) ) ) goto L4525;
goto L4532;
L4521:
if ( FALSE( scrt2__3e_3d_2dtwo( X3, _TSCP( 0 ) ) ) ) goto L4532;
L4525:
X1 = sc_make_2dstring( _TSCP( 400 ), EMPTYLIST );
if ( NOT( AND( EQ( TSCPTAG( n2544 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( n2544 ), FLOATTAG ) ) )
) goto L4533;
X2 = n2544;
goto L4534;
L4533:
if ( EQ( TSCPTAG( n2544 ), FIXNUMTAG ) ) goto L4536;
scrt6_error( c1185,
c1186, CONS( n2544, EMPTYLIST ) );
L4536:
X2 = FIX_FLT( n2544 );
L4534:
X6 = PAIR_CAR( f2545 );
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L4541;
scrt1__24__cdr_2derror( X6 );
L4541:
X7 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L4544;
scrt1__24__car_2derror( X7 );
L4544:
X5 = PAIR_CAR( X7 );
if ( BITAND( BITOR( INT( X5 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L4547;
X6 = _TSCP( IDIFFERENCE( INT( X5 ),
INT( _TSCP( 4 ) ) ) );
goto L4548;
L4547:
X6 = scrt2__2d_2dtwo( X5, _TSCP( 4 ) );
L4548:
X3 = scrt6_format( c2737, CONS( X6, EMPTYLIST ) );
sprintf( TSCP_POINTER( X1 ),
TSCP_POINTER( X3 ), TSCP_DOUBLE( X2 ) );
POPSTACKTRACE( scrt4_c_2dstring_2d_3estring( X1 ) );
L4532:
X1 = PAIR_CAR( f2545 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 8 ) ) ),
3 ) ) goto L4551;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 8 ) ) ) ) goto L4555;
goto L4556;
L4551:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( 8 ) ) ) ) goto L4556;
L4555:
POPSTACKTRACE( scrt2_integer_2d_3estring( n2544,
_TSCP( 8 ), c2733 ) );
L4556:
X1 = PAIR_CAR( f2545 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 32 ) ) ),
3 ) ) goto L4561;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 32 ) ) ) ) goto L4565;
goto L4566;
L4561:
if ( TRUE( scrt2__3d_2dtwo( X1, _TSCP( 32 ) ) ) ) goto L4565;
L4566:
X1 = PAIR_CAR( f2545 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 40 ) ) ),
3 ) ) goto L4571;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 40 ) ) ) ) goto L4575;
goto L4576;
L4571:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( 40 ) ) ) ) goto L4576;
L4575:
POPSTACKTRACE( scrt6_format( c2731,
CONS( n2544, EMPTYLIST ) ) );
L4576:
X1 = PAIR_CAR( f2545 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 64 ) ) ),
3 ) ) goto L4581;
if ( EQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( 64 ) ) ) ) goto L4585;
goto L4586;
L4581:
if ( TRUE( scrt2__3d_2dtwo( X1, _TSCP( 64 ) ) ) ) goto L4585;
L4586:
POPSTACKTRACE( scrt6_error( c2556,
c2728,
CONS( PAIR_CAR( f2545 ),
EMPTYLIST ) ) );
L4585:
POPSTACKTRACE( scrt2_integer_2d_3estring( n2544,
_TSCP( 64 ), c2730 ) );
L4565:
POPSTACKTRACE( scrt2_integer_2d_3estring( n2544,
_TSCP( 32 ), c2732 ) );
}
DEFTSCP( scrt2_integer_2d_3estring_v );
DEFSTRING( t4589, "SCRT2_INTEGER->STRING", 21 );
EXTERNTSCPP( scrt3_string_2dappend );
EXTERNTSCP( scrt3_string_2dappend_v );
EXTERNTSCPP( scrt3_list_2d_3estring );
EXTERNTSCP( scrt3_list_2d_3estring_v );
EXTERNTSCPP( scrt1_reverse );
EXTERNTSCP( scrt1_reverse_v );
DEFSTRING( t4608, "LOOP [inside INTEGER->STRING]", 29 );
EXTERNTSCPP( scrt2_l2802 );
TSCP scrt2_l2802( q2804, r2805 )
TSCP q2804, r2805;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4608 ) ) );
X2 = scrt2_inexact_2d_3eexact( r2805 );
if ( EQ( TSCPTAG( X2 ), FIXNUMTAG ) ) goto L4611;
scrt6_error( c2836, c2837, CONS( X2, EMPTYLIST ) );
L4611:
X3 = BOOLEAN( LT( INT( X2 ), 0 ) );
if ( TRUE( X3 ) ) goto L4617;
if ( AND( EQ( TSCPTAG( c2860 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( c2860 ), STRINGTAG ) )
) goto L4619;
scrt6_error( c2858,
c2859, CONS( c2860, EMPTYLIST ) );
L4619:
X4 = C_FIXED( STRING_LENGTH( c2860 ) );
if ( BITAND( BITOR( INT( X2 ), INT( X4 ) ),
3 ) ) goto L4623;
if ( GTE( INT( X2 ), INT( X4 ) ) ) goto L4617;
goto L4630;
L4623:
if ( FALSE( scrt2__3e_3d_2dtwo( X2, X4 ) ) ) goto L4630;
L4617:
scrt6_error( c2836, c1178, CONS( X2, EMPTYLIST ) );
L4630:
X1 = C_CHAR( STRING_CHAR( c2860, X2 ) );
if ( BITAND( BITOR( INT( _TSCP( 0 ) ),
INT( q2804 ) ),
3 ) ) goto L4633;
if ( EQ( UNSIGNED( _TSCP( 0 ) ),
UNSIGNED( q2804 ) ) ) goto L4637;
goto L4638;
L4633:
if ( TRUE( scrt2__3d_2dtwo( _TSCP( 0 ), q2804 ) ) ) goto L4637;
L4638:
if ( BITAND( BITOR( INT( q2804 ),
INT( DISPLAY( 0 ) ) ),
3 ) ) goto L4641;
X3 = C_FIXED( QUOTIENT( INT( q2804 ),
INT( DISPLAY( 0 ) ) ) );
goto L4642;
L4641:
X3 = scrt2_quotient( q2804, DISPLAY( 0 ) );
L4642:
if ( BITAND( BITOR( INT( q2804 ),
INT( DISPLAY( 0 ) ) ),
3 ) ) goto L4643;
X4 = _TSCP( REMAINDER( INT( q2804 ),
INT( DISPLAY( 0 ) ) ) );
goto L4644;
L4643:
X4 = scrt2_remainder( q2804, DISPLAY( 0 ) );
L4644:
X2 = scrt2_l2802( X3, X4 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L4637:
X2 = sc_cons( X1, EMPTYLIST );
POPSTACKTRACE( X2 );
}
TSCP scrt2_integer_2d_3estring( n2792, b2793, p2794 )
TSCP n2792, b2793, p2794;
{
TSCP X5, X4, X3, X2, X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t4589 ) ) );
DISPLAY( 0 ) = b2793;
L4590:
if ( BITAND( BITOR( INT( n2792 ),
INT( _TSCP( 0 ) ) ),
3 ) ) goto L4592;
if ( LT( INT( n2792 ), INT( _TSCP( 0 ) ) ) ) goto L4596;
goto L4597;
L4592:
if ( FALSE( scrt2__3c_2dtwo( n2792, _TSCP( 0 ) ) ) ) goto L4597;
L4596:
if ( NEQ( TSCPTAG( n2792 ), FIXNUMTAG ) ) goto L4600;
if ( LT( INT( n2792 ), 0 ) ) goto L4605;
X1 = n2792;
goto L4601;
L4605:
X1 = _TSCP( INEGATE( INT( n2792 ) ) );
goto L4601;
L4600:
X1 = scrt2_abs( n2792 );
L4601:
X2 = CONS( p2794, EMPTYLIST );
p2794 = scrt3_string_2dappend( CONS( c2885, X2 ) );
n2792 = X1;
goto L4590;
L4597:
if ( BITAND( BITOR( INT( n2792 ),
INT( DISPLAY( 0 ) ) ),
3 ) ) goto L4646;
X4 = C_FIXED( QUOTIENT( INT( n2792 ),
INT( DISPLAY( 0 ) ) ) );
goto L4647;
L4646:
X4 = scrt2_quotient( n2792, DISPLAY( 0 ) );
L4647:
if ( BITAND( BITOR( INT( n2792 ),
INT( DISPLAY( 0 ) ) ),
3 ) ) goto L4648;
X5 = _TSCP( REMAINDER( INT( n2792 ),
INT( DISPLAY( 0 ) ) ) );
goto L4649;
L4648:
X5 = scrt2_remainder( n2792, DISPLAY( 0 ) );
L4649:
X3 = scrt2_l2802( X4, X5 );
X2 = scrt1_reverse( X3 );
X1 = CONS( scrt3_list_2d_3estring( X2 ), EMPTYLIST );
SDVAL = scrt3_string_2dappend( CONS( p2794, X1 ) );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scrt2_string_2d_3enumber_v );
DEFSTRING( t4650, "STRING->NUMBER", 14 );
EXTERNTSCPP( scrt3_string_2d_3elist );
EXTERNTSCP( scrt3_string_2d_3elist_v );
EXTERNTSCP( sc_emptystring );
EXTERNTSCPP( scrt1_memv );
EXTERNTSCP( scrt1_memv_v );
EXTERNTSCPP( scrt2_try_2dto_2dread );
EXTERNTSCP( scrt2_try_2dto_2dread_v );
TSCP scrt2_string_2d_3enumber( s2889, r2890 )
TSCP s2889, r2890;
{
TSCP X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4650 ) ) );
X1 = scrt3_string_2d_3elist( s2889 );
if ( FALSE( r2890 ) ) goto L4652;
if ( EQ( TSCPTAG( r2890 ), PAIRTAG ) ) goto L4655;
scrt1__24__car_2derror( r2890 );
L4655:
X3 = PAIR_CAR( r2890 );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 8 ) ) ) ) goto L4658;
X2 = c2733;
goto L4653;
L4658:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 32 ) ) ) ) goto L4660;
X2 = c2732;
goto L4653;
L4660:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 40 ) ) ) ) goto L4662;
X2 = sc_emptystring;
goto L4653;
L4662:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( _TSCP( 64 ) ) ) ) goto L4664;
X2 = c2730;
goto L4653;
L4664:
X2 = scrt6_error( c2933,
c2934,
CONS( PAIR_CAR( r2890 ), EMPTYLIST ) );
goto L4653;
L4652:
X2 = sc_emptystring;
L4653:
X3 = sc_emptystring;
X4 = X1;
L4669:
if ( FALSE( X4 ) ) goto L4670;
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L4673;
scrt1__24__car_2derror( X4 );
L4673:
X5 = PAIR_CAR( X4 );
if ( FALSE( scrt1_memv( X5, c2901 ) ) ) goto L4676;
X6 = sc_make_2dstring( _TSCP( 4 ),
CONS( PAIR_CAR( X4 ), EMPTYLIST ) );
X4 = PAIR_CDR( X4 );
X3 = X6;
goto L4669;
L4676:
if ( NEQ( UNSIGNED( X5 ),
UNSIGNED( _TSCP( 8978 ) ) ) ) goto L4680;
POPSTACKTRACE( scrt2_try_2dto_2dread( s2889 ) );
L4680:
X7 = CONS( scrt3_list_2d_3estring( X4 ), EMPTYLIST );
X7 = CONS( X2, X7 );
X6 = scrt3_string_2dappend( CONS( X3, X7 ) );
POPSTACKTRACE( scrt2_try_2dto_2dread( X6 ) );
L4670:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt2_try_2dto_2dread_v );
DEFSTRING( t4682, "SCRT2_TRY-TO-READ", 17 );
EXTERNTSCPP( sc_ntinuation_1af38b9f );
EXTERNTSCP( sc_ntinuation_1af38b9f_v );
DEFSTRING( t4685, "scrt2_l2945 [inside TRY-TO-READ]", 32 );
EXTERNTSCP( scrt6__2aerror_2dhandler_2a_v );
DEFSTRING( t4689, "scrt2_l2949 [inside TRY-TO-READ]", 32 );
TSCP scrt2_l2949( x2950, c4688 )
TSCP x2950, c4688;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t4689 ) ) );
X1 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c4688, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c4688, 1 );
scrt6__2aerror_2dhandler_2a_v = DISPLAY( 2 );
X4 = DISPLAY( 1 );
X4 = UNKNOWNCALL( X4, 1 );
X3 = VIA( PROCEDURE_CODE( X4 ) )( FALSEVALUE,
PROCEDURE_CLOSURE( X4 ) );
DISPLAY( 2 ) = X1;
DISPLAY( 1 ) = X2;
POPSTACKTRACE( X3 );
}
EXTERNTSCPP( scrt5_open_2dinput_2dstring );
EXTERNTSCP( scrt5_open_2dinput_2dstring_v );
EXTERNTSCPP( scrt6_read );
EXTERNTSCP( scrt6_read_v );
EXTERNTSCPP( scrt6_eof_2dobject_3f );
EXTERNTSCP( scrt6_eof_2dobject_3f_v );
TSCP scrt2_l2945( r2946, c4684 )
TSCP r2946, c4684;
{
TSCP X6, X5, X4, X3, X2, X1;
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t4685 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c4684, 0 );
DISPLAY( 1 ) = r2946;
DISPLAY( 2 ) = scrt6__2aerror_2dhandler_2a_v;
scrt6__2aerror_2dhandler_2a_v = MAKEPROCEDURE( 0,
1,
scrt2_l2949,
MAKECLOSURE( EMPTYLIST,
2,
DISPLAY( 2 ),
DISPLAY( 1 ) ) );
X5 = scrt5_open_2dinput_2dstring( DISPLAY( 0 ) );
X3 = scrt6_read( CONS( X5, EMPTYLIST ) );
X4 = scrt6_read( CONS( X5, EMPTYLIST ) );
scrt6__2aerror_2dhandler_2a_v = DISPLAY( 2 );
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L4697;
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), FLOATTAG ) ) ) goto L4697;
X2 = FALSEVALUE;
goto L4702;
L4697:
if ( FALSE( scrt6_eof_2dobject_3f( X4 ) ) ) goto L4701;
X2 = X3;
goto L4702;
L4701:
X2 = FALSEVALUE;
L4702:
DISPLAY( 0 ) = X1;
SDVAL = X2;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
TSCP scrt2_try_2dto_2dread( s2944 )
TSCP s2944;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t4682 ) ) );
DISPLAY( 0 ) = s2944;
X1 = MAKEPROCEDURE( 1,
0,
scrt2_l2945,
MAKECLOSURE( EMPTYLIST,
1, DISPLAY( 0 ) ) );
SDVAL = sc_ntinuation_1af38b9f( X1 );
DISPLAY( 0 ) = SD0;
POPSTACKTRACE( SDVAL );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt5__init();
scrt3__init();
scrt4__init();
scrt1__init();
scrt6__init();
MAXDISPLAY( 3 );
}
void scrt2__init()
{
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scrt2 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t3405 ) ),
ADR( scrt2_symbol_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_symbol_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3407 ) ),
ADR( scrt2_symbol_2d_3estring_v ),
MAKEPROCEDURE( 1,
0,
scrt2_symbol_2d_3estring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3412 ) ),
ADR( scrt2_top_2dlevel_2dvalue_v ),
MAKEPROCEDURE( 1,
0,
scrt2_top_2dlevel_2dvalue,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3416 ) ),
ADR( scrt2_2dvalue_21_c9d2a496_v ),
MAKEPROCEDURE( 2,
0,
scrt2_2dvalue_21_c9d2a496,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3420 ) ),
ADR( scrt2_getprop_v ),
MAKEPROCEDURE( 2,
0, scrt2_getprop, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3443 ) ),
ADR( scrt2_putprop_v ),
MAKEPROCEDURE( 3,
0, scrt2_putprop, EMPTYLIST ) );
sc_mathtraps( );
INITIALIZEVAR( U_TX( ADR( t3491 ) ),
ADR( scrt2_fixed_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_fixed_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3493 ) ),
ADR( scrt2_float_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_float_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3495 ) ),
ADR( scrt2_float_2d_3efixed_v ),
MAKEPROCEDURE( 1,
0,
scrt2_float_2d_3efixed,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3508 ) ),
ADR( scrt2_fixed_2d_3efloat_v ),
MAKEPROCEDURE( 1,
0,
scrt2_fixed_2d_3efloat,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3513 ) ),
ADR( scrt2_number_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_number_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3517 ) ),
ADR( scrt2_complex_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_complex_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3521 ) ),
ADR( scrt2_real_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_real_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3525 ) ),
ADR( scrt2_rational_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_rational_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3527 ) ),
ADR( scrt2_integer_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_integer_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3529 ) ),
ADR( scrt2_zero_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_zero_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3533 ) ),
ADR( scrt2_positive_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_positive_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3537 ) ),
ADR( scrt2_negative_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_negative_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3541 ) ),
ADR( scrt2_odd_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_odd_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3546 ) ),
ADR( scrt2_even_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_even_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3551 ) ),
ADR( scrt2_exact_3f_v ),
MAKEPROCEDURE( 1,
0, scrt2_exact_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3558 ) ),
ADR( scrt2_inexact_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt2_inexact_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3565 ) ),
ADR( scrt2__3d_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__3d_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3584 ) ),
ADR( scrt2__3d_v ),
MAKEPROCEDURE( 2,
1, scrt2__3d, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3609 ) ),
ADR( scrt2__3c_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__3c_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3628 ) ),
ADR( scrt2__3c_v ),
MAKEPROCEDURE( 2,
1, scrt2__3c, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3653 ) ),
ADR( scrt2__3e_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__3e_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3672 ) ),
ADR( scrt2__3e_v ),
MAKEPROCEDURE( 2,
1, scrt2__3e, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3697 ) ),
ADR( scrt2__3c_3d_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__3c_3d_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3716 ) ),
ADR( scrt2__3c_3d_v ),
MAKEPROCEDURE( 2,
1, scrt2__3c_3d, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3741 ) ),
ADR( scrt2__3e_3d_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__3e_3d_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3760 ) ),
ADR( scrt2__3e_3d_v ),
MAKEPROCEDURE( 2,
1, scrt2__3e_3d, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3785 ) ),
ADR( scrt2_max_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2_max_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3793 ) ),
ADR( scrt2_max_v ),
MAKEPROCEDURE( 1,
1, scrt2_max, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3814 ) ),
ADR( scrt2_min_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2_min_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3822 ) ),
ADR( scrt2_min_v ),
MAKEPROCEDURE( 1,
1, scrt2_min, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3843 ) ),
ADR( scrt2__2b_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__2b_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3862 ) ),
ADR( scrt2__2b_v ),
MAKEPROCEDURE( 0,
1, scrt2__2b, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3875 ) ),
ADR( scrt2__2a_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__2a_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3894 ) ),
ADR( scrt2__2a_v ),
MAKEPROCEDURE( 0,
1, scrt2__2a, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3907 ) ),
ADR( scrt2__2d_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__2d_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3926 ) ),
ADR( scrt2__2d_v ),
MAKEPROCEDURE( 1,
1, scrt2__2d, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3950 ) ),
ADR( scrt2__2f_2dtwo_v ),
MAKEPROCEDURE( 2,
0,
scrt2__2f_2dtwo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t3971 ) ),
ADR( scrt2__2f_v ),
MAKEPROCEDURE( 1,
1, scrt2__2f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4012 ) ),
ADR( scrt2_abs_v ),
MAKEPROCEDURE( 1,
0, scrt2_abs, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4024 ) ),
ADR( scrt2_quotient_v ),
MAKEPROCEDURE( 2,
0, scrt2_quotient, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4036 ) ),
ADR( scrt2_remainder_v ),
MAKEPROCEDURE( 2,
0,
scrt2_remainder, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4046 ) ),
ADR( scrt2_modulo_v ),
MAKEPROCEDURE( 2,
0, scrt2_modulo, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4088 ) ),
ADR( scrt2_gcd_v ),
MAKEPROCEDURE( 0,
1, scrt2_gcd, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4162 ) ),
ADR( scrt2_lcm_v ),
MAKEPROCEDURE( 0,
1, scrt2_lcm, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4258 ) ),
ADR( scrt2_floor_v ),
MAKEPROCEDURE( 1,
0, scrt2_floor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4262 ) ),
ADR( scrt2_ceiling_v ),
MAKEPROCEDURE( 1,
0, scrt2_ceiling, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4266 ) ),
ADR( scrt2_truncate_v ),
MAKEPROCEDURE( 1,
0, scrt2_truncate, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4277 ) ),
ADR( scrt2_round_v ),
MAKEPROCEDURE( 1,
0, scrt2_round, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4283 ) ),
ADR( scrt2_exp_v ),
MAKEPROCEDURE( 1,
0, scrt2_exp, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4285 ) ),
ADR( scrt2_log_v ),
MAKEPROCEDURE( 1,
0, scrt2_log, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4287 ) ),
ADR( scrt2_sin_v ),
MAKEPROCEDURE( 1,
0, scrt2_sin, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4289 ) ),
ADR( scrt2_cos_v ),
MAKEPROCEDURE( 1,
0, scrt2_cos, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4291 ) ),
ADR( scrt2_tan_v ),
MAKEPROCEDURE( 1,
0, scrt2_tan, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4293 ) ),
ADR( scrt2_asin_v ),
MAKEPROCEDURE( 1,
0, scrt2_asin, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4295 ) ),
ADR( scrt2_acos_v ),
MAKEPROCEDURE( 1,
0, scrt2_acos, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4297 ) ),
ADR( scrt2_atan_v ),
MAKEPROCEDURE( 1,
1, scrt2_atan, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4304 ) ),
ADR( scrt2_sqrt_v ),
MAKEPROCEDURE( 1,
0, scrt2_sqrt, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4334 ) ),
ADR( scrt2_expt_v ),
MAKEPROCEDURE( 2,
0, scrt2_expt, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4383 ) ),
ADR( scrt2_exact_2d_3einexact_v ),
MAKEPROCEDURE( 1,
0,
scrt2_exact_2d_3einexact,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4390 ) ),
ADR( scrt2_inexact_2d_3eexact_v ),
MAKEPROCEDURE( 1,
0,
scrt2_inexact_2d_3eexact,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4405 ) ),
ADR( scrt2_number_2d_3estring_v ),
MAKEPROCEDURE( 1,
1,
scrt2_number_2d_3estring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4589 ) ),
ADR( scrt2_integer_2d_3estring_v ),
MAKEPROCEDURE( 3,
0,
scrt2_integer_2d_3estring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4650 ) ),
ADR( scrt2_string_2d_3enumber_v ),
MAKEPROCEDURE( 1,
1,
scrt2_string_2d_3enumber,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t4682 ) ),
ADR( scrt2_try_2dto_2dread_v ),
MAKEPROCEDURE( 1,
0,
scrt2_try_2dto_2dread, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.