This is scrt4.c in view mode; [Download] [Up]
/* SCHEME->C */
#include <objects.h>
DEFSTRING( t1823,
"Argument is not a valid SIGNAL HANDLER: ~s", 42 );
DEFSTATICTSCP2( c1737, t1823 );
DEFSTRING( t1824, "Argument is not a valid SIGNAL: ~s", 34 );
DEFSTATICTSCP2( c1720, t1824 );
DEFSTRING( t1825, "SIGNAL", 6 );
DEFSTATICTSCP( c1719 );
DEFSTRING( t1826, "Argument is not a PROCEDURE: ~s", 31 );
DEFSTATICTSCP2( c1638, t1826 );
DEFSTRING( t1827, "WHEN-FREED", 10 );
DEFSTATICTSCP( c1637 );
DEFSTRING( t1828, "SCHEME-TSCP-SET!", 16 );
DEFSTATICTSCP( c1553 );
DEFSTRING( t1829, "SCHEME-INT-SET!", 15 );
DEFSTATICTSCP( c1546 );
DEFSTRING( t1830, "SCHEME-BYTE-SET!", 16 );
DEFSTATICTSCP( c1539 );
DEFSTRING( t1831, "SCHEME-TSCP-REF", 15 );
DEFSTATICTSCP( c1532 );
DEFSTRING( t1832, "SCHEME-INT-REF", 14 );
DEFSTATICTSCP( c1526 );
DEFSTRING( t1833, "Structure is not a SCHEME pointer: ~s", 37 );
DEFSTATICTSCP2( c1520, t1833 );
DEFSTRING( t1834, "SCHEME-BYTE-REF", 15 );
DEFSTATICTSCP( c1519 );
DEFSTRING( t1835, "Argument not a PAIR: ~s", 23 );
DEFSTATICTSCP2( c1260, t1835 );
DEFSTRING( t1836, "SET-CDR!", 8 );
DEFSTATICTSCP( c1259 );
DEFSTRING( t1837, "VECTOR-SET!", 11 );
DEFSTATICTSCP( c1040 );
DEFSTRING( t1838, "Index is not in bounds: ~s", 26 );
DEFSTATICTSCP2( c1029, t1838 );
DEFSTRING( t1839, "Argument is not an INTEGER: ~s", 30 );
DEFSTATICTSCP2( c1025, t1839 );
DEFSTRING( t1840, "VECTOR-REF", 10 );
DEFSTATICTSCP( c1022 );
DEFSTRING( t1841, "Argument is not a VECTOR: ~s", 28 );
DEFSTATICTSCP2( c1013, t1841 );
DEFSTRING( t1842, "VECTOR-LENGTH", 13 );
DEFSTATICTSCP( c1012 );
static void init_constants()
{
c1719 = STRINGTOSYMBOL( U_TX( ADR( t1825 ) ) );
CONSTANTEXP( ADR( c1719 ) );
c1637 = STRINGTOSYMBOL( U_TX( ADR( t1827 ) ) );
CONSTANTEXP( ADR( c1637 ) );
c1553 = STRINGTOSYMBOL( U_TX( ADR( t1828 ) ) );
CONSTANTEXP( ADR( c1553 ) );
c1546 = STRINGTOSYMBOL( U_TX( ADR( t1829 ) ) );
CONSTANTEXP( ADR( c1546 ) );
c1539 = STRINGTOSYMBOL( U_TX( ADR( t1830 ) ) );
CONSTANTEXP( ADR( c1539 ) );
c1532 = STRINGTOSYMBOL( U_TX( ADR( t1831 ) ) );
CONSTANTEXP( ADR( c1532 ) );
c1526 = STRINGTOSYMBOL( U_TX( ADR( t1832 ) ) );
CONSTANTEXP( ADR( c1526 ) );
c1519 = STRINGTOSYMBOL( U_TX( ADR( t1834 ) ) );
CONSTANTEXP( ADR( c1519 ) );
c1259 = STRINGTOSYMBOL( U_TX( ADR( t1836 ) ) );
CONSTANTEXP( ADR( c1259 ) );
c1040 = STRINGTOSYMBOL( U_TX( ADR( t1837 ) ) );
CONSTANTEXP( ADR( c1040 ) );
c1022 = STRINGTOSYMBOL( U_TX( ADR( t1840 ) ) );
CONSTANTEXP( ADR( c1022 ) );
c1012 = STRINGTOSYMBOL( U_TX( ADR( t1842 ) ) );
CONSTANTEXP( ADR( c1012 ) );
}
DEFTSCP( scrt4_vector_3f_v );
DEFSTRING( t1843, "VECTOR?", 7 );
TSCP scrt4_vector_3f( x1001 )
TSCP x1001;
{
PUSHSTACKTRACE( U_TX( ADR( t1843 ) ) );
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1001 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1001 ),
VECTORTAG ) ) ) );
}
DEFTSCP( scrt4_vector_v );
DEFSTRING( t1845, "VECTOR", 6 );
EXTERNTSCPP( scrt4_list_2d_3evector );
EXTERNTSCP( scrt4_list_2d_3evector_v );
TSCP scrt4_vector( x1005 )
TSCP x1005;
{
PUSHSTACKTRACE( U_TX( ADR( t1845 ) ) );
POPSTACKTRACE( scrt4_list_2d_3evector( x1005 ) );
}
DEFTSCP( scrt4_vector_2dlength_v );
DEFSTRING( t1847, "VECTOR-LENGTH", 13 );
EXTERNTSCPP( scrt6_error );
EXTERNTSCP( scrt6_error_v );
TSCP scrt4_vector_2dlength( x1007 )
TSCP x1007;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1847 ) ) );
if ( AND( EQ( TSCPTAG( x1007 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1007 ), VECTORTAG ) )
) goto L1850;
scrt6_error( c1012,
c1013, CONS( x1007, EMPTYLIST ) );
L1850:
POPSTACKTRACE( C_FIXED( VECTOR_LENGTH( x1007 ) ) );
}
DEFTSCP( scrt4_vector_2dref_v );
DEFSTRING( t1852, "VECTOR-REF", 10 );
TSCP scrt4_vector_2dref( x1015, y1016 )
TSCP x1015, y1016;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1852 ) ) );
if ( AND( EQ( TSCPTAG( x1015 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1015 ), VECTORTAG ) )
) goto L1855;
scrt6_error( c1022,
c1013, CONS( x1015, EMPTYLIST ) );
L1855:
if ( EQ( TSCPTAG( y1016 ), FIXNUMTAG ) ) goto L1857;
scrt6_error( c1022,
c1025, CONS( y1016, EMPTYLIST ) );
L1857:
if ( LT( UNSIGNED( FIXED_C( y1016 ) ),
UNSIGNED( VECTOR_LENGTH( x1015 ) ) ) ) goto L1859;
scrt6_error( c1022,
c1029, CONS( y1016, EMPTYLIST ) );
L1859:
POPSTACKTRACE( VECTOR_ELEMENT( x1015, y1016 ) );
}
DEFTSCP( scrt4_vector_2dset_21_v );
DEFSTRING( t1861, "VECTOR-SET!", 11 );
TSCP scrt4_vector_2dset_21( x1031, y1032, z1033 )
TSCP x1031, y1032, z1033;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t1861 ) ) );
if ( AND( EQ( TSCPTAG( x1031 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1031 ), VECTORTAG ) )
) goto L1864;
scrt6_error( c1040,
c1013, CONS( x1031, EMPTYLIST ) );
L1864:
if ( EQ( TSCPTAG( y1032 ), FIXNUMTAG ) ) goto L1866;
scrt6_error( c1040,
c1025, CONS( y1032, EMPTYLIST ) );
L1866:
if ( LT( UNSIGNED( FIXED_C( y1032 ) ),
UNSIGNED( VECTOR_LENGTH( x1031 ) ) ) ) goto L1868;
scrt6_error( c1040,
c1029, CONS( y1032, EMPTYLIST ) );
L1868:
POPSTACKTRACE( SETGEN( VECTOR_ELEMENT( x1031, y1032 ),
z1033 ) );
}
DEFTSCP( scrt4_vector_2d_3elist_v );
DEFSTRING( t1870, "VECTOR->LIST", 12 );
EXTERNTSCPP( scrt2__2d_2dtwo );
EXTERNTSCP( scrt2__2d_2dtwo_v );
EXTERNTSCPP( scrt2__3d_2dtwo );
EXTERNTSCP( scrt2__3d_2dtwo_v );
EXTERNTSCPP( sc_cons );
EXTERNTSCP( sc_cons_v );
TSCP scrt4_vector_2d_3elist( x1047 )
TSCP x1047;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1870 ) ) );
if ( AND( EQ( TSCPTAG( x1047 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1047 ), VECTORTAG ) )
) goto L1874;
scrt6_error( c1012,
c1013, CONS( x1047, EMPTYLIST ) );
L1874:
X2 = C_FIXED( VECTOR_LENGTH( x1047 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1877;
X1 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L1878;
L1877:
X1 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L1878:
X2 = EMPTYLIST;
L1879:
X2 = CONS( X2, EMPTYLIST );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( -4 ) ) ),
3 ) ) goto L1881;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L1885;
POPSTACKTRACE( PAIR_CAR( X2 ) );
L1881:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( -4 ) ) ) ) goto L1885;
POPSTACKTRACE( PAIR_CAR( X2 ) );
L1885:
if ( EQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L1890;
scrt6_error( c1022, c1025, CONS( X1, EMPTYLIST ) );
L1890:
if ( LT( UNSIGNED( FIXED_C( X1 ) ),
UNSIGNED( VECTOR_LENGTH( x1047 ) ) ) ) goto L1892;
scrt6_error( c1022, c1029, CONS( X1, EMPTYLIST ) );
L1892:
X4 = VECTOR_ELEMENT( x1047, X1 );
X3 = sc_cons( X4, PAIR_CAR( X2 ) );
SETGEN( PAIR_CAR( X2 ), X3 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1894;
X3 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L1895;
L1894:
X3 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
L1895:
X2 = PAIR_CAR( X2 );
X1 = X3;
goto L1879;
}
DEFTSCP( scrt4_list_2d_3evector_v );
DEFSTRING( t1896, "LIST->VECTOR", 12 );
EXTERNTSCPP( sc_make_2dvector );
EXTERNTSCP( sc_make_2dvector_v );
EXTERNTSCPP( scrt1_length );
EXTERNTSCP( scrt1_length_v );
EXTERNTSCPP( scrt1__24__car_2derror );
EXTERNTSCP( scrt1__24__car_2derror_v );
EXTERNTSCPP( scrt2__2b_2dtwo );
EXTERNTSCP( scrt2__2b_2dtwo_v );
TSCP scrt4_list_2d_3evector( x1093 )
TSCP x1093;
{
TSCP X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1896 ) ) );
X2 = scrt1_length( x1093 );
X1 = sc_make_2dvector( X2, EMPTYLIST );
X2 = x1093;
X3 = _TSCP( 0 );
L1899:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L1900;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L1904;
scrt1__24__car_2derror( X2 );
L1904:
X4 = PAIR_CAR( X2 );
if ( AND( EQ( TSCPTAG( X1 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X1 ), VECTORTAG ) ) ) goto L1907;
scrt6_error( c1040, c1013, CONS( X1, EMPTYLIST ) );
L1907:
if ( EQ( TSCPTAG( X3 ), FIXNUMTAG ) ) goto L1909;
scrt6_error( c1040, c1025, CONS( X3, EMPTYLIST ) );
L1909:
if ( LT( UNSIGNED( FIXED_C( X3 ) ),
UNSIGNED( VECTOR_LENGTH( X1 ) ) ) ) goto L1911;
scrt6_error( c1040, c1029, CONS( X3, EMPTYLIST ) );
L1911:
SETGEN( VECTOR_ELEMENT( X1, X3 ), X4 );
X4 = PAIR_CDR( X2 );
if ( BITAND( BITOR( INT( X3 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1914;
X3 = _TSCP( IPLUS( INT( X3 ), INT( _TSCP( 4 ) ) ) );
goto L1915;
L1914:
X3 = scrt2__2b_2dtwo( X3, _TSCP( 4 ) );
L1915:
X2 = X4;
goto L1899;
L1900:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt4_vector_2dfill_21_v );
DEFSTRING( t1916, "VECTOR-FILL!", 12 );
TSCP scrt4_vector_2dfill_21( v1132, x1133 )
TSCP v1132, x1133;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1916 ) ) );
if ( AND( EQ( TSCPTAG( v1132 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( v1132 ), VECTORTAG ) )
) goto L1920;
scrt6_error( c1012,
c1013, CONS( v1132, EMPTYLIST ) );
L1920:
X2 = C_FIXED( VECTOR_LENGTH( v1132 ) );
if ( BITAND( BITOR( INT( X2 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1923;
X1 = _TSCP( IDIFFERENCE( INT( X2 ),
INT( _TSCP( 4 ) ) ) );
goto L1924;
L1923:
X1 = scrt2__2d_2dtwo( X2, _TSCP( 4 ) );
L1924:
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( -4 ) ) ),
3 ) ) goto L1927;
if ( NEQ( UNSIGNED( X1 ), UNSIGNED( _TSCP( -4 ) ) ) ) goto L1931;
POPSTACKTRACE( v1132 );
L1927:
if ( FALSE( scrt2__3d_2dtwo( X1, _TSCP( -4 ) ) ) ) goto L1931;
POPSTACKTRACE( v1132 );
L1931:
if ( EQ( TSCPTAG( X1 ), FIXNUMTAG ) ) goto L1936;
scrt6_error( c1040, c1025, CONS( X1, EMPTYLIST ) );
L1936:
if ( LT( UNSIGNED( FIXED_C( X1 ) ),
UNSIGNED( VECTOR_LENGTH( v1132 ) ) ) ) goto L1938;
scrt6_error( c1040, c1029, CONS( X1, EMPTYLIST ) );
L1938:
SETGEN( VECTOR_ELEMENT( v1132, X1 ), x1133 );
if ( BITAND( BITOR( INT( X1 ), INT( _TSCP( 4 ) ) ),
3 ) ) goto L1940;
X1 = _TSCP( IDIFFERENCE( INT( X1 ),
INT( _TSCP( 4 ) ) ) );
goto L1924;
L1940:
X1 = scrt2__2d_2dtwo( X1, _TSCP( 4 ) );
goto L1924;
}
DEFTSCP( scrt4_procedure_3f_v );
DEFSTRING( t1942, "PROCEDURE?", 10 );
TSCP scrt4_procedure_3f( x1176 )
TSCP x1176;
{
PUSHSTACKTRACE( U_TX( ADR( t1942 ) ) );
POPSTACKTRACE( BOOLEAN( AND( EQ( TSCPTAG( x1176 ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( x1176 ),
PROCEDURETAG ) ) ) );
}
DEFTSCP( scrt4_apply_v );
DEFSTRING( t1944, "APPLY", 5 );
EXTERNTSCPP( sc_apply_2dtwo );
EXTERNTSCP( sc_apply_2dtwo_v );
DEFSTRING( t1949, "LOOP [inside APPLY]", 19 );
EXTERNTSCPP( scrt1__24__cdr_2derror );
EXTERNTSCP( scrt1__24__cdr_2derror_v );
EXTERNTSCPP( scrt4_l1184 );
TSCP scrt4_l1184( o1186 )
TSCP o1186;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1949 ) ) );
if ( EQ( TSCPTAG( o1186 ), PAIRTAG ) ) goto L1952;
scrt1__24__cdr_2derror( o1186 );
L1952:
if ( FALSE( PAIR_CDR( o1186 ) ) ) goto L1954;
X1 = PAIR_CAR( o1186 );
X3 = PAIR_CDR( o1186 );
X2 = scrt4_l1184( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L1954:
POPSTACKTRACE( PAIR_CAR( o1186 ) );
}
TSCP scrt4_apply( p1180, a1181, o1182 )
TSCP p1180, a1181, o1182;
{
TSCP X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1944 ) ) );
if ( FALSE( o1182 ) ) goto L1946;
X2 = scrt4_l1184( o1182 );
X1 = sc_cons( a1181, X2 );
POPSTACKTRACE( sc_apply_2dtwo( p1180, X1 ) );
L1946:
POPSTACKTRACE( sc_apply_2dtwo( p1180, a1181 ) );
}
DEFTSCP( scrt4_map_v );
DEFSTRING( t1959, "MAP", 3 );
EXTERNTSCPP( scrt1_car );
EXTERNTSCP( scrt1_car_v );
EXTERNTSCPP( scrt1_cdr );
EXTERNTSCP( scrt1_cdr_v );
TSCP scrt4_map( p1204, a1205, o1206 )
TSCP p1204, a1205, o1206;
{
TSCP X12,
X11,
X10,
X9,
X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t1959 ) ) );
X1 = sc_cons( a1205, o1206 );
X2 = EMPTYLIST;
X3 = EMPTYLIST;
L1962:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L1966;
scrt1__24__car_2derror( X1 );
L1966:
X4 = PAIR_CAR( X1 );
if ( EQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L1963;
X7 = X1;
X8 = EMPTYLIST;
X9 = EMPTYLIST;
L1970:
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L1971;
X6 = X8;
goto L1978;
L1971:
if ( EQ( TSCPTAG( X7 ), PAIRTAG ) ) goto L1974;
scrt1__24__car_2derror( X7 );
L1974:
X12 = PAIR_CAR( X7 );
X11 = scrt1_car( X12 );
X10 = sc_cons( X11, EMPTYLIST );
if ( NEQ( UNSIGNED( X8 ), UNSIGNED( EMPTYLIST ) ) ) goto L1977;
X11 = PAIR_CDR( X7 );
X9 = X10;
X8 = X10;
X7 = X11;
goto L1970;
L1977:
X11 = PAIR_CDR( X7 );
if ( EQ( TSCPTAG( X9 ), PAIRTAG ) ) goto L1982;
scrt6_error( c1259, c1260, CONS( X9, EMPTYLIST ) );
L1982:
X9 = SETGEN( PAIR_CDR( X9 ), X10 );
X7 = X11;
goto L1970;
L1978:
X5 = sc_apply_2dtwo( p1204, X6 );
X4 = sc_cons( X5, EMPTYLIST );
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L1985;
X6 = X1;
X7 = EMPTYLIST;
X8 = EMPTYLIST;
L1989:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L1990;
X5 = X7;
goto L1997;
L1990:
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L1993;
scrt1__24__car_2derror( X6 );
L1993:
X11 = PAIR_CAR( X6 );
X10 = scrt1_cdr( X11 );
X9 = sc_cons( X10, EMPTYLIST );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L1996;
X10 = PAIR_CDR( X6 );
X8 = X9;
X7 = X9;
X6 = X10;
goto L1989;
L1996:
X10 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2001;
scrt6_error( c1259, c1260, CONS( X8, EMPTYLIST ) );
L2001:
X8 = SETGEN( PAIR_CDR( X8 ), X9 );
X6 = X10;
goto L1989;
L1997:
X3 = X4;
X2 = X4;
X1 = X5;
goto L1962;
L1985:
X6 = X1;
X7 = EMPTYLIST;
X8 = EMPTYLIST;
L2005:
if ( NEQ( UNSIGNED( X6 ), UNSIGNED( EMPTYLIST ) ) ) goto L2006;
X5 = X7;
goto L2013;
L2006:
if ( EQ( TSCPTAG( X6 ), PAIRTAG ) ) goto L2009;
scrt1__24__car_2derror( X6 );
L2009:
X11 = PAIR_CAR( X6 );
X10 = scrt1_cdr( X11 );
X9 = sc_cons( X10, EMPTYLIST );
if ( NEQ( UNSIGNED( X7 ), UNSIGNED( EMPTYLIST ) ) ) goto L2012;
X10 = PAIR_CDR( X6 );
X8 = X9;
X7 = X9;
X6 = X10;
goto L2005;
L2012:
X10 = PAIR_CDR( X6 );
if ( EQ( TSCPTAG( X8 ), PAIRTAG ) ) goto L2017;
scrt6_error( c1259, c1260, CONS( X8, EMPTYLIST ) );
L2017:
X8 = SETGEN( PAIR_CDR( X8 ), X9 );
X6 = X10;
goto L2005;
L2013:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2020;
scrt6_error( c1259, c1260, CONS( X3, EMPTYLIST ) );
L2020:
X3 = SETGEN( PAIR_CDR( X3 ), X4 );
X1 = X5;
goto L1962;
L1963:
POPSTACKTRACE( X2 );
}
DEFTSCP( scrt4_for_2deach_v );
DEFSTRING( t2022, "FOR-EACH", 8 );
TSCP scrt4_for_2deach( p1351, a1352, o1353 )
TSCP p1351, a1352, o1353;
{
TSCP X8, X7, X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2022 ) ) );
X1 = sc_cons( a1352, o1353 );
L2025:
if ( EQ( TSCPTAG( X1 ), PAIRTAG ) ) goto L2029;
scrt1__24__car_2derror( X1 );
L2029:
X2 = PAIR_CAR( X1 );
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2026;
X3 = X1;
X4 = EMPTYLIST;
X5 = EMPTYLIST;
L2034:
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2035;
X2 = X4;
goto L2042;
L2035:
if ( EQ( TSCPTAG( X3 ), PAIRTAG ) ) goto L2038;
scrt1__24__car_2derror( X3 );
L2038:
X8 = PAIR_CAR( X3 );
X7 = scrt1_car( X8 );
X6 = sc_cons( X7, EMPTYLIST );
if ( NEQ( UNSIGNED( X4 ), UNSIGNED( EMPTYLIST ) ) ) goto L2041;
X7 = PAIR_CDR( X3 );
X5 = X6;
X4 = X6;
X3 = X7;
goto L2034;
L2041:
X7 = PAIR_CDR( X3 );
if ( EQ( TSCPTAG( X5 ), PAIRTAG ) ) goto L2046;
scrt6_error( c1259, c1260, CONS( X5, EMPTYLIST ) );
L2046:
X5 = SETGEN( PAIR_CDR( X5 ), X6 );
X3 = X7;
goto L2034;
L2042:
sc_apply_2dtwo( p1351, X2 );
X2 = X1;
X3 = EMPTYLIST;
X4 = EMPTYLIST;
L2050:
if ( NEQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2051;
X1 = X3;
goto L2025;
L2051:
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2054;
scrt1__24__car_2derror( X2 );
L2054:
X7 = PAIR_CAR( X2 );
X6 = scrt1_cdr( X7 );
X5 = sc_cons( X6, EMPTYLIST );
if ( NEQ( UNSIGNED( X3 ), UNSIGNED( EMPTYLIST ) ) ) goto L2057;
X6 = PAIR_CDR( X2 );
X4 = X5;
X3 = X5;
X2 = X6;
goto L2050;
L2057:
X6 = PAIR_CDR( X2 );
if ( EQ( TSCPTAG( X4 ), PAIRTAG ) ) goto L2062;
scrt6_error( c1259, c1260, CONS( X4, EMPTYLIST ) );
L2062:
X4 = SETGEN( PAIR_CDR( X4 ), X5 );
X2 = X6;
goto L2050;
L2026:
POPSTACKTRACE( FALSEVALUE );
}
DEFTSCP( scrt4_force_v );
DEFSTRING( t2064, "FORCE", 5 );
TSCP scrt4_force( o1445 )
TSCP o1445;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2064 ) ) );
X1 = o1445;
X1 = UNKNOWNCALL( X1, 0 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( PROCEDURE_CLOSURE( X1 ) ) );
}
DEFTSCP( scrt4_make_2dpromise_v );
DEFSTRING( t2066, "MAKE-PROMISE", 12 );
DEFSTRING( t2070, "scrt4_l1451 [inside MAKE-PROMISE]", 33 );
TSCP scrt4_l1451( c2069 )
TSCP c2069;
{
TSCP X6, X5, X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2070 ) ) );
X1 = DISPLAY( 0 );
DISPLAY( 0 ) = CLOSURE_VAR( c2069, 0 );
X2 = DISPLAY( 1 );
DISPLAY( 1 ) = CLOSURE_VAR( c2069, 1 );
X3 = DISPLAY( 2 );
DISPLAY( 2 ) = CLOSURE_VAR( c2069, 2 );
if ( TRUE( PAIR_CAR( DISPLAY( 2 ) ) ) ) goto L2072;
X6 = DISPLAY( 0 );
X6 = UNKNOWNCALL( X6, 0 );
X5 = VIA( PROCEDURE_CODE( X6 ) )( PROCEDURE_CLOSURE( X6 ) );
SETGEN( PAIR_CAR( DISPLAY( 1 ) ), X5 );
X5 = TRUEVALUE;
SETGEN( PAIR_CAR( DISPLAY( 2 ) ), X5 );
L2072:
X4 = PAIR_CAR( DISPLAY( 1 ) );
DISPLAY( 0 ) = X1;
DISPLAY( 1 ) = X2;
DISPLAY( 2 ) = X3;
POPSTACKTRACE( X4 );
}
TSCP scrt4_make_2dpromise( p1447 )
TSCP p1447;
{
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2066 ) ) );
DISPLAY( 0 ) = p1447;
DISPLAY( 1 ) = FALSEVALUE;
DISPLAY( 2 ) = FALSEVALUE;
DISPLAY( 2 ) = CONS( DISPLAY( 2 ), EMPTYLIST );
DISPLAY( 1 ) = CONS( DISPLAY( 1 ), EMPTYLIST );
SDVAL = MAKEPROCEDURE( 0,
0,
scrt4_l1451,
MAKECLOSURE( EMPTYLIST,
3,
DISPLAY( 0 ),
DISPLAY( 1 ),
DISPLAY( 2 ) ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scrt4_c_2dstring_2d_3estring_v );
DEFSTRING( t2075, "C-STRING->STRING", 16 );
EXTERNTSCPP( sc_cstringtostring );
TSCP scrt4_c_2dstring_2d_3estring( s1457 )
TSCP s1457;
{
PUSHSTACKTRACE( U_TX( ADR( t2075 ) ) );
POPSTACKTRACE( _TSCP( sc_cstringtostring( TSCP_POINTER( s1457 ) ) ) );
}
DEFTSCP( scrt4_c_2dbyte_2dref_v );
DEFSTRING( t2077, "C-BYTE-REF", 10 );
TSCP scrt4_c_2dbyte_2dref( s1459, x1460 )
TSCP s1459, x1460;
{
PUSHSTACKTRACE( U_TX( ADR( t2077 ) ) );
POPSTACKTRACE( INT_TSCP( MBYTE( TSCP_POINTER( s1459 ),
TSCP_INT( x1460 ) ) ) );
}
DEFTSCP( scrt4_c_2dshortint_2dref_v );
DEFSTRING( t2079, "C-SHORTINT-REF", 14 );
TSCP scrt4_c_2dshortint_2dref( s1462, x1463 )
TSCP s1462, x1463;
{
PUSHSTACKTRACE( U_TX( ADR( t2079 ) ) );
POPSTACKTRACE( INT_TSCP( MSINT( TSCP_POINTER( s1462 ),
TSCP_INT( x1463 ) ) ) );
}
DEFTSCP( scrt4_c_2dshortunsigned_2dref_v );
DEFSTRING( t2081, "C-SHORTUNSIGNED-REF", 19 );
TSCP scrt4_c_2dshortunsigned_2dref( s1465, x1466 )
TSCP s1465, x1466;
{
PUSHSTACKTRACE( U_TX( ADR( t2081 ) ) );
POPSTACKTRACE( UNSIGNED_TSCP( MSUNSIGNED( TSCP_POINTER( s1465 ),
TSCP_INT( x1466 ) ) ) );
}
DEFTSCP( scrt4_c_2dint_2dref_v );
DEFSTRING( t2083, "C-INT-REF", 9 );
TSCP scrt4_c_2dint_2dref( s1468, x1469 )
TSCP s1468, x1469;
{
PUSHSTACKTRACE( U_TX( ADR( t2083 ) ) );
POPSTACKTRACE( INT_TSCP( MINT( TSCP_POINTER( s1468 ),
TSCP_INT( x1469 ) ) ) );
}
DEFTSCP( scrt4_c_2dunsigned_2dref_v );
DEFSTRING( t2085, "C-UNSIGNED-REF", 14 );
TSCP scrt4_c_2dunsigned_2dref( s1471, x1472 )
TSCP s1471, x1472;
{
PUSHSTACKTRACE( U_TX( ADR( t2085 ) ) );
POPSTACKTRACE( UNSIGNED_TSCP( MUNSIGNED( TSCP_POINTER( s1471 ),
TSCP_INT( x1472 ) ) ) );
}
DEFTSCP( scrt4_c_2dtscp_2dref_v );
DEFSTRING( t2087, "C-TSCP-REF", 10 );
TSCP scrt4_c_2dtscp_2dref( s1474, x1475 )
TSCP s1474, x1475;
{
PUSHSTACKTRACE( U_TX( ADR( t2087 ) ) );
POPSTACKTRACE( MTSCP( TSCP_POINTER( s1474 ),
TSCP_INT( x1475 ) ) );
}
DEFTSCP( scrt4_c_2dfloat_2dref_v );
DEFSTRING( t2089, "C-FLOAT-REF", 11 );
TSCP scrt4_c_2dfloat_2dref( s1477, x1478 )
TSCP s1477, x1478;
{
PUSHSTACKTRACE( U_TX( ADR( t2089 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( CDOUBLE( MFLOAT( TSCP_POINTER( s1477 ),
TSCP_INT( x1478 ) ) ) ) );
}
DEFTSCP( scrt4_c_2ddouble_2dref_v );
DEFSTRING( t2091, "C-DOUBLE-REF", 12 );
TSCP scrt4_c_2ddouble_2dref( s1480, x1481 )
TSCP s1480, x1481;
{
PUSHSTACKTRACE( U_TX( ADR( t2091 ) ) );
POPSTACKTRACE( DOUBLE_TSCP( MDOUBLE( TSCP_POINTER( s1480 ),
TSCP_INT( x1481 ) ) ) );
}
DEFTSCP( scrt4_c_2dbyte_2dset_21_v );
DEFSTRING( t2093, "C-BYTE-SET!", 11 );
TSCP scrt4_c_2dbyte_2dset_21( s1483, x1484, v1485 )
TSCP s1483, x1484, v1485;
{
PUSHSTACKTRACE( U_TX( ADR( t2093 ) ) );
SET( MBYTE( TSCP_POINTER( s1483 ),
TSCP_INT( x1484 ) ),
TSCP_INT( v1485 ) );
POPSTACKTRACE( v1485 );
}
DEFTSCP( scrt4_c_2dshortint_2dset_21_v );
DEFSTRING( t2095, "C-SHORTINT-SET!", 15 );
TSCP scrt4_c_2dshortint_2dset_21( s1487, x1488, v1489 )
TSCP s1487, x1488, v1489;
{
PUSHSTACKTRACE( U_TX( ADR( t2095 ) ) );
SET( MSINT( TSCP_POINTER( s1487 ),
TSCP_INT( x1488 ) ),
TSCP_INT( v1489 ) );
POPSTACKTRACE( v1489 );
}
DEFTSCP( scrt4_d_2dset_21_828269c5_v );
DEFSTRING( t2097, "C-SHORTUNSIGNED-SET!", 20 );
TSCP scrt4_d_2dset_21_828269c5( s1491, x1492, v1493 )
TSCP s1491, x1492, v1493;
{
PUSHSTACKTRACE( U_TX( ADR( t2097 ) ) );
SET( MSUNSIGNED( TSCP_POINTER( s1491 ),
TSCP_INT( x1492 ) ),
TSCP_UNSIGNED( v1493 ) );
POPSTACKTRACE( v1493 );
}
DEFTSCP( scrt4_c_2dint_2dset_21_v );
DEFSTRING( t2099, "C-INT-SET!", 10 );
TSCP scrt4_c_2dint_2dset_21( s1495, x1496, v1497 )
TSCP s1495, x1496, v1497;
{
PUSHSTACKTRACE( U_TX( ADR( t2099 ) ) );
SET( MINT( TSCP_POINTER( s1495 ),
TSCP_INT( x1496 ) ),
TSCP_INT( v1497 ) );
POPSTACKTRACE( v1497 );
}
DEFTSCP( scrt4_c_2dunsigned_2dset_21_v );
DEFSTRING( t2101, "C-UNSIGNED-SET!", 15 );
TSCP scrt4_c_2dunsigned_2dset_21( s1499, x1500, v1501 )
TSCP s1499, x1500, v1501;
{
PUSHSTACKTRACE( U_TX( ADR( t2101 ) ) );
SET( MUNSIGNED( TSCP_POINTER( s1499 ),
TSCP_INT( x1500 ) ),
TSCP_UNSIGNED( v1501 ) );
POPSTACKTRACE( v1501 );
}
DEFTSCP( scrt4_c_2dtscp_2dset_21_v );
DEFSTRING( t2103, "C-TSCP-SET!", 11 );
TSCP scrt4_c_2dtscp_2dset_21( s1503, x1504, v1505 )
TSCP s1503, x1504, v1505;
{
PUSHSTACKTRACE( U_TX( ADR( t2103 ) ) );
SET( MTSCP( TSCP_POINTER( s1503 ),
TSCP_INT( x1504 ) ),
v1505 );
POPSTACKTRACE( v1505 );
}
DEFTSCP( scrt4_c_2dfloat_2dset_21_v );
DEFSTRING( t2105, "C-FLOAT-SET!", 12 );
TSCP scrt4_c_2dfloat_2dset_21( s1507, x1508, v1509 )
TSCP s1507, x1508, v1509;
{
PUSHSTACKTRACE( U_TX( ADR( t2105 ) ) );
SET( MFLOAT( TSCP_POINTER( s1507 ),
TSCP_INT( x1508 ) ),
TSCP_DOUBLE( v1509 ) );
POPSTACKTRACE( v1509 );
}
DEFTSCP( scrt4_c_2ddouble_2dset_21_v );
DEFSTRING( t2107, "C-DOUBLE-SET!", 13 );
TSCP scrt4_c_2ddouble_2dset_21( s1511, x1512, v1513 )
TSCP s1511, x1512, v1513;
{
PUSHSTACKTRACE( U_TX( ADR( t2107 ) ) );
SET( MDOUBLE( TSCP_POINTER( s1511 ),
TSCP_INT( x1512 ) ),
TSCP_DOUBLE( v1513 ) );
POPSTACKTRACE( v1513 );
}
DEFTSCP( scrt4_scheme_2dbyte_2dref_v );
DEFSTRING( t2109, "SCHEME-BYTE-REF", 15 );
TSCP scrt4_scheme_2dbyte_2dref( s1515, x1516 )
TSCP s1515, x1516;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2109 ) ) );
if ( BITAND( TSCPTAG( s1515 ), 1 ) ) goto L2111;
scrt6_error( c1519,
c1520, CONS( s1515, EMPTYLIST ) );
L2111:
POPSTACKTRACE( INT_TSCP( MBYTE( T_U( s1515 ),
TSCP_INT( x1516 ) ) ) );
}
DEFTSCP( scrt4_scheme_2dint_2dref_v );
DEFSTRING( t2113, "SCHEME-INT-REF", 14 );
TSCP scrt4_scheme_2dint_2dref( s1522, x1523 )
TSCP s1522, x1523;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2113 ) ) );
if ( BITAND( TSCPTAG( s1522 ), 1 ) ) goto L2115;
scrt6_error( c1526,
c1520, CONS( s1522, EMPTYLIST ) );
L2115:
POPSTACKTRACE( INT_TSCP( MINT( T_U( s1522 ),
TSCP_INT( x1523 ) ) ) );
}
DEFTSCP( scrt4_scheme_2dtscp_2dref_v );
DEFSTRING( t2117, "SCHEME-TSCP-REF", 15 );
TSCP scrt4_scheme_2dtscp_2dref( s1528, x1529 )
TSCP s1528, x1529;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2117 ) ) );
if ( BITAND( TSCPTAG( s1528 ), 1 ) ) goto L2119;
scrt6_error( c1532,
c1520, CONS( s1528, EMPTYLIST ) );
L2119:
POPSTACKTRACE( _TSCP( MINT( T_U( s1528 ),
TSCP_INT( x1529 ) ) ) );
}
DEFTSCP( scrt4_scheme_2dbyte_2dset_21_v );
DEFSTRING( t2121, "SCHEME-BYTE-SET!", 16 );
TSCP scrt4_scheme_2dbyte_2dset_21( s1534, x1535, v1536 )
TSCP s1534, x1535, v1536;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2121 ) ) );
if ( BITAND( TSCPTAG( s1534 ), 1 ) ) goto L2123;
scrt6_error( c1539,
c1520, CONS( s1534, EMPTYLIST ) );
L2123:
SET( MBYTE( T_U( s1534 ), TSCP_INT( x1535 ) ),
TSCP_INT( v1536 ) );
POPSTACKTRACE( v1536 );
}
DEFTSCP( scrt4_scheme_2dint_2dset_21_v );
DEFSTRING( t2125, "SCHEME-INT-SET!", 15 );
TSCP scrt4_scheme_2dint_2dset_21( s1541, x1542, v1543 )
TSCP s1541, x1542, v1543;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2125 ) ) );
if ( BITAND( TSCPTAG( s1541 ), 1 ) ) goto L2127;
scrt6_error( c1546,
c1520, CONS( s1541, EMPTYLIST ) );
L2127:
SET( MINT( T_U( s1541 ), TSCP_INT( x1542 ) ),
TSCP_INT( v1543 ) );
POPSTACKTRACE( v1543 );
}
DEFTSCP( scrt4_scheme_2dtscp_2dset_21_v );
DEFSTRING( t2129, "SCHEME-TSCP-SET!", 16 );
TSCP scrt4_scheme_2dtscp_2dset_21( s1548, x1549, v1550 )
TSCP s1548, x1549, v1550;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2129 ) ) );
if ( BITAND( TSCPTAG( s1548 ), 1 ) ) goto L2131;
scrt6_error( c1553,
c1520, CONS( s1548, EMPTYLIST ) );
L2131:
SETGENTL( MINT( T_U( s1548 ), TSCP_INT( x1549 ) ),
INT( v1550 ) );
POPSTACKTRACE( v1550 );
}
DEFTSCP( scrt4_bit_2dand_v );
DEFSTRING( t2133, "BIT-AND", 7 );
TSCP scrt4_bit_2dand( x1555, y1556 )
TSCP x1555, y1556;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2133 ) ) );
X1 = x1555;
X2 = y1556;
L2136:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2137;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2140;
scrt1__24__car_2derror( X2 );
L2140:
X4 = PAIR_CAR( X2 );
X3 = UNSIGNED_TSCP( BITAND( TSCP_UNSIGNED( X4 ),
TSCP_UNSIGNED( X1 ) ) );
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L2136;
L2137:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt4_bit_2dor_v );
DEFSTRING( t2143, "BIT-OR", 6 );
TSCP scrt4_bit_2dor( x1576, y1577 )
TSCP x1576, y1577;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2143 ) ) );
X1 = x1576;
X2 = y1577;
L2146:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2147;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2150;
scrt1__24__car_2derror( X2 );
L2150:
X4 = PAIR_CAR( X2 );
X3 = UNSIGNED_TSCP( BITOR( TSCP_UNSIGNED( X4 ),
TSCP_UNSIGNED( X1 ) ) );
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L2146;
L2147:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt4_bit_2dnot_v );
DEFSTRING( t2153, "BIT-NOT", 7 );
EXTERNTSCPP( scrt4_bit_2dxor );
EXTERNTSCP( scrt4_bit_2dxor_v );
TSCP scrt4_bit_2dnot( x1597 )
TSCP x1597;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2153 ) ) );
POPSTACKTRACE( scrt4_bit_2dxor( x1597,
CONS( _TSCP( -4 ), EMPTYLIST ) ) );
}
DEFTSCP( scrt4_bit_2dxor_v );
DEFSTRING( t2155, "BIT-XOR", 7 );
TSCP scrt4_bit_2dxor( x1599, y1600 )
TSCP x1599, y1600;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2155 ) ) );
X1 = x1599;
X2 = y1600;
L2158:
if ( EQ( UNSIGNED( X2 ), UNSIGNED( EMPTYLIST ) ) ) goto L2159;
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2162;
scrt1__24__car_2derror( X2 );
L2162:
X4 = PAIR_CAR( X2 );
X3 = UNSIGNED_TSCP( BITXOR( TSCP_UNSIGNED( X4 ),
TSCP_UNSIGNED( X1 ) ) );
X2 = PAIR_CDR( X2 );
X1 = X3;
goto L2158;
L2159:
POPSTACKTRACE( X1 );
}
DEFTSCP( scrt4_bit_2dlsh_v );
DEFSTRING( t2165, "BIT-LSH", 7 );
TSCP scrt4_bit_2dlsh( x1620, y1621 )
TSCP x1620, y1621;
{
PUSHSTACKTRACE( U_TX( ADR( t2165 ) ) );
POPSTACKTRACE( UNSIGNED_TSCP( BITLSH( TSCP_UNSIGNED( x1620 ),
TSCP_UNSIGNED( y1621 ) ) ) );
}
DEFTSCP( scrt4_bit_2drsh_v );
DEFSTRING( t2167, "BIT-RSH", 7 );
TSCP scrt4_bit_2drsh( x1623, y1624 )
TSCP x1623, y1624;
{
PUSHSTACKTRACE( U_TX( ADR( t2167 ) ) );
POPSTACKTRACE( UNSIGNED_TSCP( BITRSH( TSCP_UNSIGNED( x1623 ),
TSCP_UNSIGNED( y1624 ) ) ) );
}
DEFTSCP( scrt4_when_2dunreferenced_v );
DEFSTRING( t2169, "WHEN-UNREFERENCED", 17 );
DEFSTRING( t2177, "LOOP [inside WHEN-UNREFERENCED]", 31 );
EXTERNTSCPP( scrt4_l1640 );
TSCP scrt4_l1640( l1642 )
TSCP l1642;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2177 ) ) );
if ( FALSE( l1642 ) ) goto L2179;
if ( EQ( TSCPTAG( l1642 ), PAIRTAG ) ) goto L2184;
scrt1__24__car_2derror( l1642 );
L2184:
X2 = PAIR_CAR( l1642 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2187;
scrt1__24__car_2derror( X2 );
L2187:
X1 = PAIR_CAR( X2 );
if ( NEQ( UNSIGNED( X1 ),
UNSIGNED( DISPLAY( 0 ) ) ) ) goto L2181;
X2 = PAIR_CAR( l1642 );
if ( EQ( TSCPTAG( X2 ), PAIRTAG ) ) goto L2192;
scrt1__24__cdr_2derror( X2 );
L2192:
X1 = PAIR_CDR( X2 );
SETGEN( PAIR_CAR( DISPLAY( 2 ) ), X1 );
if ( FALSE( DISPLAY( 1 ) ) ) goto L2194;
X1 = sc_cons( DISPLAY( 0 ), DISPLAY( 1 ) );
X2 = PAIR_CDR( l1642 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2194:
POPSTACKTRACE( PAIR_CDR( l1642 ) );
L2181:
if ( EQ( TSCPTAG( l1642 ), PAIRTAG ) ) goto L2199;
scrt1__24__car_2derror( l1642 );
L2199:
X1 = PAIR_CAR( l1642 );
X3 = PAIR_CDR( l1642 );
X2 = scrt4_l1640( X3 );
POPSTACKTRACE( sc_cons( X1, X2 ) );
L2179:
if ( FALSE( DISPLAY( 1 ) ) ) goto L2202;
X2 = sc_cons( DISPLAY( 0 ), DISPLAY( 1 ) );
X1 = sc_cons( X2, EMPTYLIST );
POPSTACKTRACE( X1 );
L2202:
POPSTACKTRACE( EMPTYLIST );
}
EXTERNTSCP( sc_whenfreed );
TSCP scrt4_when_2dunreferenced( o1627, p1628 )
TSCP o1627, p1628;
{
TSCP X1;
TSCP SD0 = DISPLAY( 0 );
TSCP SD1 = DISPLAY( 1 );
TSCP SD2 = DISPLAY( 2 );
TSCP SDVAL;
PUSHSTACKTRACE( U_TX( ADR( t2169 ) ) );
DISPLAY( 0 ) = o1627;
DISPLAY( 1 ) = p1628;
DISPLAY( 2 ) = FALSEVALUE;
DISPLAY( 2 ) = CONS( DISPLAY( 2 ), EMPTYLIST );
if ( FALSE( DISPLAY( 1 ) ) ) goto L2174;
if ( AND( EQ( TSCPTAG( DISPLAY( 1 ) ),
EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( DISPLAY( 1 ) ),
PROCEDURETAG ) ) ) goto L2174;
scrt6_error( c1637,
c1638,
CONS( DISPLAY( 1 ), EMPTYLIST ) );
L2174:
sc_whenfreed = scrt4_l1640( sc_whenfreed );
SDVAL = PAIR_CAR( DISPLAY( 2 ) );
DISPLAY( 0 ) = SD0;
DISPLAY( 1 ) = SD1;
DISPLAY( 2 ) = SD2;
POPSTACKTRACE( SDVAL );
}
DEFTSCP( scrt4_sc__whenfreed_v );
DEFSTRING( t2205, "SCRT4_SC_WHENFREED", 18 );
TSCP scrt4_sc__whenfreed( )
{
PUSHSTACKTRACE( U_TX( ADR( t2205 ) ) );
POPSTACKTRACE( sc_whenfreed );
}
DEFTSCP( scrt4_signals_v );
DEFSTRING( t2207, "SCRT4_SIGNALS", 13 );
DEFTSCP( scrt4_signal_v );
DEFSTRING( t2208, "SIGNAL", 6 );
EXTERNTSCPP( scrt2_negative_3f );
EXTERNTSCP( scrt2_negative_3f_v );
EXTERNTSCPP( scrt2__3e_3d_2dtwo );
EXTERNTSCP( scrt2__3e_3d_2dtwo_v );
DEFSTRING( t2239, "scrt4_l1766 [inside SIGNAL]", 27 );
EXTERNVOIDP( sc_onsignal1 );
TSCP scrt4_l1766( s1767, c2238 )
TSCP s1767, c2238;
{
TSCP X1;
PUSHSTACKTRACE( U_TX( ADR( t2239 ) ) );
X1 = C_FIXED( INT( s1767 ) );
sc_onsignal1( TSCP_INT( X1 ) );
POPSTACKTRACE( TRUEVALUE );
}
EXTERNPOINTERP( signal );
TSCP scrt4_signal( s1697, h1698 )
TSCP s1697, h1698;
{
TSCP X4, X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2208 ) ) );
if ( NEQ( TSCPTAG( s1697 ), FIXNUMTAG ) ) goto L2210;
X1 = BOOLEAN( LT( INT( s1697 ), 0 ) );
goto L2211;
L2210:
X1 = scrt2_negative_3f( s1697 );
L2211:
if ( TRUE( X1 ) ) goto L2216;
X3 = scrt4_signals_v;
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L2218;
scrt6_error( c1012, c1013, CONS( X3, EMPTYLIST ) );
L2218:
X2 = C_FIXED( VECTOR_LENGTH( X3 ) );
if ( BITAND( BITOR( INT( s1697 ), INT( X2 ) ),
3 ) ) goto L2222;
if ( GTE( INT( s1697 ), INT( X2 ) ) ) goto L2216;
goto L2229;
L2222:
if ( FALSE( scrt2__3e_3d_2dtwo( s1697, X2 ) ) ) goto L2229;
L2216:
scrt6_error( c1719,
c1720, CONS( s1697, EMPTYLIST ) );
L2229:
if ( AND( EQ( TSCPTAG( h1698 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( h1698 ), PROCEDURETAG ) )
) goto L2234;
if ( EQ( TSCPTAG( h1698 ), FIXNUMTAG ) ) goto L2234;
if ( AND( EQ( TSCPTAG( h1698 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( h1698 ), FLOATTAG ) )
) goto L2234;
scrt6_error( c1719,
c1737, CONS( h1698, EMPTYLIST ) );
L2234:
if ( NOT( AND( EQ( TSCPTAG( h1698 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( h1698 ),
PROCEDURETAG ) ) ) ) goto L2236;
X2 = MAKEPROCEDURE( 1, 0, scrt4_l1766, EMPTYLIST );
X1 = POINTER_TSCP( signal( TSCP_INT( s1697 ),
TSCP_POINTER( X2 ) ) );
goto L2237;
L2236:
X1 = POINTER_TSCP( signal( TSCP_INT( s1697 ),
TSCP_POINTER( h1698 ) ) );
L2237:
X3 = scrt4_signals_v;
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L2243;
scrt6_error( c1022, c1013, CONS( X3, EMPTYLIST ) );
L2243:
if ( EQ( TSCPTAG( s1697 ), FIXNUMTAG ) ) goto L2245;
scrt6_error( c1022,
c1025, CONS( s1697, EMPTYLIST ) );
L2245:
if ( LT( UNSIGNED( FIXED_C( s1697 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L2247;
scrt6_error( c1022,
c1029, CONS( s1697, EMPTYLIST ) );
L2247:
X2 = VECTOR_ELEMENT( X3, s1697 );
X3 = scrt4_signals_v;
if ( AND( EQ( TSCPTAG( X3 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X3 ), VECTORTAG ) ) ) goto L2251;
scrt6_error( c1040, c1013, CONS( X3, EMPTYLIST ) );
L2251:
if ( LT( UNSIGNED( FIXED_C( s1697 ) ),
UNSIGNED( VECTOR_LENGTH( X3 ) ) ) ) goto L2253;
scrt6_error( c1040,
c1029, CONS( s1697, EMPTYLIST ) );
L2253:
SETGEN( VECTOR_ELEMENT( X3, s1697 ), h1698 );
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), PROCEDURETAG ) )
) goto L2255;
POPSTACKTRACE( X1 );
L2255:
POPSTACKTRACE( X2 );
}
DEFTSCP( scrt4_onsignal2_v );
DEFSTRING( t2257, "SCRT4_ONSIGNAL2", 15 );
TSCP scrt4_onsignal2( s1772 )
TSCP s1772;
{
TSCP X3, X2, X1;
PUSHSTACKTRACE( U_TX( ADR( t2257 ) ) );
X2 = scrt4_signals_v;
if ( AND( EQ( TSCPTAG( X2 ), EXTENDEDTAG ),
EQ( TSCP_EXTENDEDTAG( X2 ), VECTORTAG ) ) ) goto L2260;
scrt6_error( c1022, c1013, CONS( X2, EMPTYLIST ) );
L2260:
if ( EQ( TSCPTAG( s1772 ), FIXNUMTAG ) ) goto L2262;
scrt6_error( c1022,
c1025, CONS( s1772, EMPTYLIST ) );
L2262:
if ( LT( UNSIGNED( FIXED_C( s1772 ) ),
UNSIGNED( VECTOR_LENGTH( X2 ) ) ) ) goto L2264;
scrt6_error( c1022,
c1029, CONS( s1772, EMPTYLIST ) );
L2264:
X1 = VECTOR_ELEMENT( X2, s1772 );
X1 = UNKNOWNCALL( X1, 1 );
POPSTACKTRACE( VIA( PROCEDURE_CODE( X1 ) )( s1772,
PROCEDURE_CLOSURE( X1 ) ) );
}
static void init_modules( compiler_version )
char *compiler_version;
{
scrt1__init();
scrt2__init();
scrt6__init();
MAXDISPLAY( 3 );
}
void scrt4__init()
{
TSCP X1;
static int init = 0;
if (init) return;
init = 1;
INITHEAP( 0, 0, 0, 0 );
init_constants();
init_modules( "(scrt4 SCHEME->C COMPILER 28sep90jfb)" );
INITIALIZEVAR( U_TX( ADR( t1843 ) ),
ADR( scrt4_vector_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt4_vector_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1845 ) ),
ADR( scrt4_vector_v ),
MAKEPROCEDURE( 0,
1, scrt4_vector, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1847 ) ),
ADR( scrt4_vector_2dlength_v ),
MAKEPROCEDURE( 1,
0,
scrt4_vector_2dlength, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1852 ) ),
ADR( scrt4_vector_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_vector_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1861 ) ),
ADR( scrt4_vector_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_vector_2dset_21, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1870 ) ),
ADR( scrt4_vector_2d_3elist_v ),
MAKEPROCEDURE( 1,
0,
scrt4_vector_2d_3elist,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1896 ) ),
ADR( scrt4_list_2d_3evector_v ),
MAKEPROCEDURE( 1,
0,
scrt4_list_2d_3evector,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1916 ) ),
ADR( scrt4_vector_2dfill_21_v ),
MAKEPROCEDURE( 2,
0,
scrt4_vector_2dfill_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1942 ) ),
ADR( scrt4_procedure_3f_v ),
MAKEPROCEDURE( 1,
0,
scrt4_procedure_3f, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1944 ) ),
ADR( scrt4_apply_v ),
MAKEPROCEDURE( 2,
1, scrt4_apply, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t1959 ) ),
ADR( scrt4_map_v ),
MAKEPROCEDURE( 2,
1, scrt4_map, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2022 ) ),
ADR( scrt4_for_2deach_v ),
MAKEPROCEDURE( 2,
1,
scrt4_for_2deach, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2064 ) ),
ADR( scrt4_force_v ),
MAKEPROCEDURE( 1,
0, scrt4_force, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2066 ) ),
ADR( scrt4_make_2dpromise_v ),
MAKEPROCEDURE( 1,
0,
scrt4_make_2dpromise, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2075 ) ),
ADR( scrt4_c_2dstring_2d_3estring_v ),
MAKEPROCEDURE( 1,
0,
scrt4_c_2dstring_2d_3estring,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2077 ) ),
ADR( scrt4_c_2dbyte_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dbyte_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2079 ) ),
ADR( scrt4_c_2dshortint_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dshortint_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2081 ) ),
ADR( scrt4_c_2dshortunsigned_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dshortunsigned_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2083 ) ),
ADR( scrt4_c_2dint_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dint_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2085 ) ),
ADR( scrt4_c_2dunsigned_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dunsigned_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2087 ) ),
ADR( scrt4_c_2dtscp_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dtscp_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2089 ) ),
ADR( scrt4_c_2dfloat_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2dfloat_2dref, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2091 ) ),
ADR( scrt4_c_2ddouble_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_c_2ddouble_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2093 ) ),
ADR( scrt4_c_2dbyte_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2dbyte_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2095 ) ),
ADR( scrt4_c_2dshortint_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2dshortint_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2097 ) ),
ADR( scrt4_d_2dset_21_828269c5_v ),
MAKEPROCEDURE( 3,
0,
scrt4_d_2dset_21_828269c5,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2099 ) ),
ADR( scrt4_c_2dint_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2dint_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2101 ) ),
ADR( scrt4_c_2dunsigned_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2dunsigned_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2103 ) ),
ADR( scrt4_c_2dtscp_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2dtscp_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2105 ) ),
ADR( scrt4_c_2dfloat_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2dfloat_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2107 ) ),
ADR( scrt4_c_2ddouble_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_c_2ddouble_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2109 ) ),
ADR( scrt4_scheme_2dbyte_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_scheme_2dbyte_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2113 ) ),
ADR( scrt4_scheme_2dint_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_scheme_2dint_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2117 ) ),
ADR( scrt4_scheme_2dtscp_2dref_v ),
MAKEPROCEDURE( 2,
0,
scrt4_scheme_2dtscp_2dref,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2121 ) ),
ADR( scrt4_scheme_2dbyte_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_scheme_2dbyte_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2125 ) ),
ADR( scrt4_scheme_2dint_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_scheme_2dint_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2129 ) ),
ADR( scrt4_scheme_2dtscp_2dset_21_v ),
MAKEPROCEDURE( 3,
0,
scrt4_scheme_2dtscp_2dset_21,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2133 ) ),
ADR( scrt4_bit_2dand_v ),
MAKEPROCEDURE( 1,
1,
scrt4_bit_2dand, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2143 ) ),
ADR( scrt4_bit_2dor_v ),
MAKEPROCEDURE( 1,
1, scrt4_bit_2dor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2153 ) ),
ADR( scrt4_bit_2dnot_v ),
MAKEPROCEDURE( 1,
0,
scrt4_bit_2dnot, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2155 ) ),
ADR( scrt4_bit_2dxor_v ),
MAKEPROCEDURE( 1,
1,
scrt4_bit_2dxor, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2165 ) ),
ADR( scrt4_bit_2dlsh_v ),
MAKEPROCEDURE( 2,
0,
scrt4_bit_2dlsh, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2167 ) ),
ADR( scrt4_bit_2drsh_v ),
MAKEPROCEDURE( 2,
0,
scrt4_bit_2drsh, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2169 ) ),
ADR( scrt4_when_2dunreferenced_v ),
MAKEPROCEDURE( 2,
0,
scrt4_when_2dunreferenced,
EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2205 ) ),
ADR( scrt4_sc__whenfreed_v ),
MAKEPROCEDURE( 0,
0,
scrt4_sc__whenfreed, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2207 ) ),
ADR( scrt4_signals_v ),
sc_make_2dvector( _TSCP( 128 ),
CONS( FALSEVALUE, EMPTYLIST ) ) );
INITIALIZEVAR( U_TX( ADR( t2208 ) ),
ADR( scrt4_signal_v ),
MAKEPROCEDURE( 2,
0, scrt4_signal, EMPTYLIST ) );
INITIALIZEVAR( U_TX( ADR( t2257 ) ),
ADR( scrt4_onsignal2_v ),
MAKEPROCEDURE( 1,
0,
scrt4_onsignal2, EMPTYLIST ) );
return;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.