2348 lines
79 KiB
C
2348 lines
79 KiB
C
/* Generated from internal.scm by the CHICKEN compiler
|
|
http://www.call-cc.org
|
|
Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4)
|
|
linux-unix-gnu-x86-64 [ 64bit dload ptables ]
|
|
command line: internal.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file internal.c -emit-import-library chicken.internal
|
|
unit: internal
|
|
uses: library
|
|
*/
|
|
#include "chicken.h"
|
|
|
|
static C_PTABLE_ENTRY *create_ptable(void);
|
|
C_noret_decl(C_library_toplevel)
|
|
C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret;
|
|
|
|
static C_word lf[44];
|
|
static double C_possibly_force_alignment;
|
|
static C_char li0[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,53,55,50,32,105,41,0,0,0};
|
|
static C_char li1[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,115,116,114,105,110,103,45,62,99,45,105,100,101,110,116,105,102,105,101,114,32,115,116,114,41,0,0,0,0,0};
|
|
static C_char li2[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
|
|
static C_char li3[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,118,97,108,105,100,45,108,105,98,114,97,114,121,45,115,112,101,99,105,102,105,101,114,63,32,120,41,0,0,0};
|
|
static C_char li4[] C_aligned={C_lihdr(0,0,6),40,102,97,105,108,41,0,0};
|
|
static C_char li5[] C_aligned={C_lihdr(0,0,24),40,108,105,98,114,97,114,121,45,112,97,114,116,45,62,115,116,114,105,110,103,32,120,41};
|
|
static C_char li6[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,54,49,52,32,108,115,116,32,115,116,114,41,0,0,0,0,0};
|
|
static C_char li7[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,108,105,98,114,97,114,121,45,105,100,32,108,105,98,41,0,0,0,0,0,0,0};
|
|
static C_char li8[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,111,100,117,108,101,45,114,101,113,117,105,114,101,109,101,110,116,32,105,100,41};
|
|
static C_char li9[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,115,32,115,101,101,110,32,119,97,114,110,101,100,41,0,0,0};
|
|
static C_char li10[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,99,104,101,99,107,45,102,111,114,45,109,117,108,116,105,112,108,101,45,98,105,110,100,105,110,103,115,32,98,105,110,100,105,110,103,115,32,102,111,114,109,32,108,111,99,41};
|
|
static C_char li11[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0};
|
|
static C_char li12[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,97,99,114,111,45,115,117,98,115,101,116,32,109,101,48,32,46,32,114,101,115,116,41,0,0,0,0,0,0};
|
|
static C_char li13[] C_aligned={C_lihdr(0,0,11),40,103,54,55,55,32,115,100,101,102,41,0,0,0,0,0};
|
|
static C_char li14[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,55,54,32,103,54,56,51,41,0};
|
|
static C_char li15[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,102,105,120,117,112,45,109,97,99,114,111,45,101,110,118,105,114,111,110,109,101,110,116,32,115,101,32,46,32,114,101,115,116,41,0,0,0,0};
|
|
static C_char li16[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,115,121,109,98,111,108,32,110,41};
|
|
static C_char li17[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,97,107,101,45,104,97,115,104,45,116,97,98,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0};
|
|
static C_char li18[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0};
|
|
static C_char li19[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,114,101,102,32,104,116,32,107,101,121,41};
|
|
static C_char li20[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,98,117,99,107,101,116,41,0,0,0};
|
|
static C_char li21[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,115,101,116,33,32,104,116,32,107,101,121,32,118,97,108,41,0,0,0};
|
|
static C_char li22[] C_aligned={C_lihdr(0,0,62),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,32,104,116,32,107,101,121,32,117,112,100,116,102,117,110,99,32,118,97,108,117,102,117,110,99,41,0,0};
|
|
static C_char li23[] C_aligned={C_lihdr(0,0,13),40,103,55,52,55,32,98,117,99,107,101,116,41,0,0,0};
|
|
static C_char li24[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,52,54,32,103,55,53,51,41,0};
|
|
static C_char li25[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,55,52,49,32,105,41,0,0,0};
|
|
static C_char li26[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,112,32,104,116,41,0,0,0,0,0};
|
|
static C_char li27[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,108,101,110,32,98,107,116,32,115,105,122,101,41,0,0,0,0,0};
|
|
static C_char li28[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,115,105,122,101,32,104,116,41,0,0,0};
|
|
static C_char li29[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
|
|
|
|
|
|
C_noret_decl(f_1022)
|
|
static void C_ccall f_1022(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_1399)
|
|
static C_word f_1399(C_word t0);
|
|
C_noret_decl(f_2302)
|
|
static void C_ccall f_2302(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2306)
|
|
static void C_ccall f_2306(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2314)
|
|
static void f_2314(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_2330)
|
|
static void C_ccall f_2330(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2340)
|
|
static void f_2340(C_word t0,C_word t1) C_noret;
|
|
C_noret_decl(f_2346)
|
|
static void C_ccall f_2346(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2349)
|
|
static void C_ccall f_2349(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2356)
|
|
static void C_ccall f_2356(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2389)
|
|
static void C_ccall f_2389(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2429)
|
|
static void C_ccall f_2429(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2432)
|
|
static void f_2432(C_word t0,C_word t1) C_noret;
|
|
C_noret_decl(f_2475)
|
|
static void f_2475(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_2527)
|
|
static void f_2527(C_word t0,C_word t1) C_noret;
|
|
C_noret_decl(f_2534)
|
|
static void C_ccall f_2534(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2538)
|
|
static void C_ccall f_2538(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2553)
|
|
static void C_ccall f_2553(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2555)
|
|
static void f_2555(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
|
|
C_noret_decl(f_2576)
|
|
static void C_ccall f_2576(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2580)
|
|
static void C_ccall f_2580(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2590)
|
|
static void C_ccall f_2590(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2598)
|
|
static void C_ccall f_2598(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2602)
|
|
static void C_ccall f_2602(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2604)
|
|
static void C_ccall f_2604(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2610)
|
|
static void f_2610(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
|
|
C_noret_decl(f_2623)
|
|
static void f_2623(C_word t0,C_word t1) C_noret;
|
|
C_noret_decl(f_2626)
|
|
static void C_ccall f_2626(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2643)
|
|
static void C_ccall f_2643(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2678)
|
|
static void C_ccall f_2678(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2685)
|
|
static void C_ccall f_2685(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2692)
|
|
static void C_ccall f_2692(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2694)
|
|
static void f_2694(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_2715)
|
|
static void C_ccall f_2715(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2728)
|
|
static void C_ccall f_2728(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2735)
|
|
static void C_ccall f_2735(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2736)
|
|
static void f_2736(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_2752)
|
|
static void C_ccall f_2752(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2775)
|
|
static void C_ccall f_2775(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2777)
|
|
static void f_2777(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_2787)
|
|
static void C_ccall f_2787(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2809)
|
|
static C_word f_2809(C_word t0,C_word t1,C_word t2);
|
|
C_noret_decl(f_2831)
|
|
static void C_ccall f_2831(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2846)
|
|
static void C_ccall f_2846(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2856)
|
|
static C_word f_2856(C_word t0,C_word t1);
|
|
C_noret_decl(f_2905)
|
|
static void C_ccall f_2905(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2917)
|
|
static void f_2917(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_2969)
|
|
static void C_ccall f_2969(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2977)
|
|
static void C_ccall f_2977(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2981)
|
|
static void C_ccall f_2981(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2984)
|
|
static void C_ccall f_2984(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2989)
|
|
static void C_ccall f_2989(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_2995)
|
|
static void f_2995(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_3003)
|
|
static void f_3003(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_3024)
|
|
static void C_ccall f_3024(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_3033)
|
|
static void f_3033(C_word t0,C_word t1,C_word t2) C_noret;
|
|
C_noret_decl(f_3043)
|
|
static void C_ccall f_3043(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_3056)
|
|
static void C_ccall f_3056(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(f_3066)
|
|
static void f_3066(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
|
|
C_noret_decl(f_3088)
|
|
static void C_ccall f_3088(C_word c,C_word *av) C_noret;
|
|
C_noret_decl(C_internal_toplevel)
|
|
C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret;
|
|
|
|
C_noret_decl(trf_2314)
|
|
static void C_ccall trf_2314(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2314(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2314(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_2340)
|
|
static void C_ccall trf_2340(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2340(C_word c,C_word *av){
|
|
C_word t0=av[1];
|
|
C_word t1=av[0];
|
|
f_2340(t0,t1);}
|
|
|
|
C_noret_decl(trf_2432)
|
|
static void C_ccall trf_2432(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2432(C_word c,C_word *av){
|
|
C_word t0=av[1];
|
|
C_word t1=av[0];
|
|
f_2432(t0,t1);}
|
|
|
|
C_noret_decl(trf_2475)
|
|
static void C_ccall trf_2475(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2475(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2475(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_2527)
|
|
static void C_ccall trf_2527(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2527(C_word c,C_word *av){
|
|
C_word t0=av[1];
|
|
C_word t1=av[0];
|
|
f_2527(t0,t1);}
|
|
|
|
C_noret_decl(trf_2555)
|
|
static void C_ccall trf_2555(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2555(C_word c,C_word *av){
|
|
C_word t0=av[3];
|
|
C_word t1=av[2];
|
|
C_word t2=av[1];
|
|
C_word t3=av[0];
|
|
f_2555(t0,t1,t2,t3);}
|
|
|
|
C_noret_decl(trf_2610)
|
|
static void C_ccall trf_2610(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2610(C_word c,C_word *av){
|
|
C_word t0=av[4];
|
|
C_word t1=av[3];
|
|
C_word t2=av[2];
|
|
C_word t3=av[1];
|
|
C_word t4=av[0];
|
|
f_2610(t0,t1,t2,t3,t4);}
|
|
|
|
C_noret_decl(trf_2623)
|
|
static void C_ccall trf_2623(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2623(C_word c,C_word *av){
|
|
C_word t0=av[1];
|
|
C_word t1=av[0];
|
|
f_2623(t0,t1);}
|
|
|
|
C_noret_decl(trf_2694)
|
|
static void C_ccall trf_2694(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2694(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2694(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_2736)
|
|
static void C_ccall trf_2736(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2736(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2736(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_2777)
|
|
static void C_ccall trf_2777(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2777(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2777(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_2917)
|
|
static void C_ccall trf_2917(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2917(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2917(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_2995)
|
|
static void C_ccall trf_2995(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_2995(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_2995(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_3003)
|
|
static void C_ccall trf_3003(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_3003(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_3003(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_3033)
|
|
static void C_ccall trf_3033(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_3033(C_word c,C_word *av){
|
|
C_word t0=av[2];
|
|
C_word t1=av[1];
|
|
C_word t2=av[0];
|
|
f_3033(t0,t1,t2);}
|
|
|
|
C_noret_decl(trf_3066)
|
|
static void C_ccall trf_3066(C_word c,C_word *av) C_noret;
|
|
static void C_ccall trf_3066(C_word c,C_word *av){
|
|
C_word t0=av[4];
|
|
C_word t1=av[3];
|
|
C_word t2=av[2];
|
|
C_word t3=av[1];
|
|
C_word t4=av[0];
|
|
f_3066(t0,t1,t2,t3,t4);}
|
|
|
|
/* k1020 */
|
|
static void C_ccall f_1022(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word t10;
|
|
C_word t11;
|
|
C_word t12;
|
|
C_word t13;
|
|
C_word t14;
|
|
C_word t15;
|
|
C_word t16;
|
|
C_word t17;
|
|
C_word t18;
|
|
C_word t19;
|
|
C_word t20;
|
|
C_word t21;
|
|
C_word t22;
|
|
C_word t23;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(49,c,6)))){
|
|
C_save_and_reclaim((void *)f_1022,c,av);}
|
|
a=C_alloc(49);
|
|
t2=C_mutate((C_word*)lf[2]+1 /* (set! chicken.internal#string->c-identifier ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2302,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
|
|
t3=C_mutate((C_word*)lf[8]+1 /* (set! chicken.internal#valid-library-specifier? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2389,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp));
|
|
t4=C_mutate((C_word*)lf[9]+1 /* (set! chicken.internal#library-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2429,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
|
|
t5=C_mutate((C_word*)lf[20]+1 /* (set! chicken.internal#module-requirement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2590,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp));
|
|
t6=C_mutate((C_word*)lf[22]+1 /* (set! chicken.internal#check-for-multiple-bindings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2604,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp));
|
|
t7=C_mutate((C_word*)lf[26]+1 /* (set! chicken.internal#macro-subset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2678,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
|
|
t8=C_mutate((C_word*)lf[27]+1 /* (set! chicken.internal#fixup-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2728,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
|
|
t9=C_SCHEME_FALSE;
|
|
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
|
|
t11=C_SCHEME_FALSE;
|
|
t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp);
|
|
t13=C_rand(C_fix(65536));
|
|
t14=C_mutate(&lf[31] /* (set! chicken.internal#hash-symbol ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2809,a[2]=t10,a[3]=t12,a[4]=t13,a[5]=((C_word)li16),tmp=(C_word)a,a+=6,tmp));
|
|
t15=C_mutate((C_word*)lf[32]+1 /* (set! chicken.internal#make-hash-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2831,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp));
|
|
t16=C_mutate((C_word*)lf[34]+1 /* (set! chicken.internal#hash-table-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2846,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
|
|
t17=C_mutate((C_word*)lf[35]+1 /* (set! chicken.internal#hash-table-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2905,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp));
|
|
t18=C_mutate((C_word*)lf[36]+1 /* (set! chicken.internal#hash-table-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2969,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp));
|
|
t19=C_mutate((C_word*)lf[37]+1 /* (set! chicken.internal#hash-table-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2989,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
|
|
t20=C_mutate((C_word*)lf[38]+1 /* (set! chicken.internal#hash-table-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3056,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp));
|
|
t21=C_mutate((C_word*)lf[40]+1 /* (set! chicken.internal#default-imports ...) */,lf[41]);
|
|
t22=C_mutate((C_word*)lf[42]+1 /* (set! chicken.internal#default-syntax-imports ...) */,lf[43]);
|
|
t23=((C_word*)t0)[2];{
|
|
C_word *av2=av;
|
|
av2[0]=t23;
|
|
av2[1]=C_SCHEME_UNDEFINED;
|
|
((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}
|
|
|
|
/* loop in chicken.internal#valid-library-specifier? in k1020 */
|
|
static C_word f_1399(C_word t1){
|
|
C_word tmp;
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_stack_overflow_check;
|
|
loop:{}
|
|
t2=C_i_nullp(t1);
|
|
if(C_truep(t2)){
|
|
return(t2);}
|
|
else{
|
|
t3=C_i_car(t1);
|
|
t4=C_i_symbolp(t3);
|
|
if(C_truep(t4)){
|
|
if(C_truep(C_i_not(t4))){
|
|
return(C_SCHEME_FALSE);}
|
|
else{
|
|
t7=C_u_i_cdr(t1);
|
|
t1=t7;
|
|
goto loop;}}
|
|
else{
|
|
t5=C_fixnump(t3);
|
|
if(C_truep(C_i_not(t5))){
|
|
return(C_SCHEME_FALSE);}
|
|
else{
|
|
t7=C_u_i_cdr(t1);
|
|
t1=t7;
|
|
goto loop;}}}}
|
|
|
|
/* chicken.internal#string->c-identifier in k1020 */
|
|
static void C_ccall f_2302(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word *a;
|
|
if(c!=3) C_bad_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
|
|
C_save_and_reclaim((void *)f_2302,c,av);}
|
|
a=C_alloc(4);
|
|
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2306,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
|
|
/* internal.scm:69: scheme#open-output-string */
|
|
t4=*((C_word*)lf[7]+1);{
|
|
C_word *av2=av;
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
|
|
|
|
/* k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void C_ccall f_2306(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
|
|
C_save_and_reclaim((void *)f_2306,c,av);}
|
|
a=C_alloc(9);
|
|
t2=C_i_string_length(((C_word*)t0)[2]);
|
|
t3=C_SCHEME_UNDEFINED;
|
|
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
|
|
t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2314,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=((C_word)li0),tmp=(C_word)a,a+=7,tmp));
|
|
t6=((C_word*)t4)[1];
|
|
f_2314(t6,((C_word*)t0)[3],C_fix(0));}
|
|
|
|
/* doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void f_2314(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2314,3,t0,t1,t2);}
|
|
a=C_alloc(10);
|
|
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
|
|
/* internal.scm:72: scheme#get-output-string */
|
|
t3=*((C_word*)lf[3]+1);{
|
|
C_word av2[3];
|
|
av2[0]=t3;
|
|
av2[1]=t1;
|
|
av2[2]=((C_word*)t0)[3];
|
|
((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}
|
|
else{
|
|
t3=C_i_string_ref(((C_word*)t0)[4],t2);
|
|
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2330,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
|
|
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2340,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
|
|
t6=C_u_i_char_alphabeticp(t3);
|
|
if(C_truep(C_i_not(t6))){
|
|
t7=C_u_i_char_numericp(t3);
|
|
t8=C_i_not(t7);
|
|
t9=t5;
|
|
f_2340(t9,(C_truep(t8)?t8:C_eqp(t2,C_fix(0))));}
|
|
else{
|
|
t7=t5;
|
|
f_2340(t7,C_SCHEME_FALSE);}}}
|
|
|
|
/* k2328 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void C_ccall f_2330(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_2330,c,av);}
|
|
t2=((C_word*)((C_word*)t0)[2])[1];
|
|
f_2314(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
|
|
|
|
/* k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void f_2340(C_word t0,C_word t1){
|
|
C_word tmp;
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){
|
|
C_save_and_reclaim_args((void *)trf_2340,2,t0,t1);}
|
|
a=C_alloc(5);
|
|
if(C_truep(t1)){
|
|
t2=C_fix(C_character_code(((C_word*)t0)[2]));
|
|
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2346,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
|
|
/* ##sys#write-char/port */
|
|
t4=*((C_word*)lf[6]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
av2[2]=C_make_character(95);
|
|
av2[3]=((C_word*)t0)[4];
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}
|
|
else{
|
|
/* ##sys#write-char/port */
|
|
t2=*((C_word*)lf[6]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t2;
|
|
av2[1]=((C_word*)t0)[3];
|
|
av2[2]=((C_word*)t0)[2];
|
|
av2[3]=((C_word*)t0)[4];
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
|
|
|
|
/* k2344 in k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void C_ccall f_2346(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){
|
|
C_save_and_reclaim((void *)f_2346,c,av);}
|
|
a=C_alloc(5);
|
|
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2349,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
|
|
if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],C_fix(16)))){
|
|
/* ##sys#write-char/port */
|
|
t3=*((C_word*)lf[6]+1);{
|
|
C_word *av2;
|
|
if(c >= 4) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(4);
|
|
}
|
|
av2[0]=t3;
|
|
av2[1]=t2;
|
|
av2[2]=C_make_character(48);
|
|
av2[3]=((C_word*)t0)[3];
|
|
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
|
|
else{
|
|
t3=t2;{
|
|
C_word *av2=av;
|
|
av2[0]=t3;
|
|
av2[1]=C_SCHEME_UNDEFINED;
|
|
f_2349(2,av2);}}}
|
|
|
|
/* k2347 in k2344 in k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void C_ccall f_2349(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
|
|
C_save_and_reclaim((void *)f_2349,c,av);}
|
|
a=C_alloc(4);
|
|
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
|
|
/* ##sys#fixnum->string */
|
|
t3=*((C_word*)lf[5]+1);{
|
|
C_word *av2;
|
|
if(c >= 4) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(4);
|
|
}
|
|
av2[0]=t3;
|
|
av2[1]=t2;
|
|
av2[2]=((C_word*)t0)[4];
|
|
av2[3]=C_fix(16);
|
|
((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}
|
|
|
|
/* k2354 in k2347 in k2344 in k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */
|
|
static void C_ccall f_2356(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
|
|
C_save_and_reclaim((void *)f_2356,c,av);}
|
|
/* internal.scm:79: scheme#display */
|
|
t2=*((C_word*)lf[4]+1);{
|
|
C_word *av2;
|
|
if(c >= 4) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(4);
|
|
}
|
|
av2[0]=t2;
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=t1;
|
|
av2[3]=((C_word*)t0)[3];
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
|
|
|
|
/* chicken.internal#valid-library-specifier? in k1020 */
|
|
static void C_ccall f_2389(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word *a;
|
|
if(c!=3) C_bad_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){
|
|
C_save_and_reclaim((void *)f_2389,c,av);}
|
|
a=C_alloc(3);
|
|
t3=C_i_symbolp(t2);
|
|
if(C_truep(t3)){
|
|
t4=t1;{
|
|
C_word *av2=av;
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
|
|
else{
|
|
if(C_truep(C_i_listp(t2))){
|
|
t4=C_i_nullp(t2);
|
|
if(C_truep(C_i_not(t4))){
|
|
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1399,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp);
|
|
t6=t1;{
|
|
C_word *av2=av;
|
|
av2[0]=t6;
|
|
av2[1]=(
|
|
f_1399(t2)
|
|
);
|
|
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
|
|
else{
|
|
t5=t1;{
|
|
C_word *av2=av;
|
|
av2[0]=t5;
|
|
av2[1]=C_SCHEME_FALSE;
|
|
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
|
|
else{
|
|
t4=t1;{
|
|
C_word *av2=av;
|
|
av2[0]=t4;
|
|
av2[1]=C_SCHEME_FALSE;
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}
|
|
|
|
/* chicken.internal#library-id in k1020 */
|
|
static void C_ccall f_2429(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word t10;
|
|
C_word t11;
|
|
C_word t12;
|
|
C_word t13;
|
|
C_word t14;
|
|
C_word t15;
|
|
C_word *a;
|
|
if(c!=3) C_bad_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){
|
|
C_save_and_reclaim((void *)f_2429,c,av);}
|
|
a=C_alloc(17);
|
|
t3=C_SCHEME_UNDEFINED;
|
|
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
|
|
t5=C_SCHEME_UNDEFINED;
|
|
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
|
|
t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2432,a[2]=t2,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp));
|
|
t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2475,a[2]=t4,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp));
|
|
if(C_truep(C_i_symbolp(t2))){
|
|
t9=t1;{
|
|
C_word *av2=av;
|
|
av2[0]=t9;
|
|
av2[1]=t2;
|
|
((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}
|
|
else{
|
|
if(C_truep(C_i_nullp(t2))){
|
|
/* internal.scm:105: fail */
|
|
t9=((C_word*)t4)[1];
|
|
f_2432(t9,t1);}
|
|
else{
|
|
t9=C_i_listp(t2);
|
|
if(C_truep(C_i_not(t9))){
|
|
/* internal.scm:106: fail */
|
|
t10=((C_word*)t4)[1];
|
|
f_2432(t10,t1);}
|
|
else{
|
|
t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2527,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
|
|
t11=C_i_cdr(t2);
|
|
if(C_truep(C_i_pairp(t11))){
|
|
t12=C_i_cddr(t2);
|
|
if(C_truep(C_i_nullp(t12))){
|
|
t13=C_eqp(lf[19],C_u_i_car(t2));
|
|
if(C_truep(t13)){
|
|
t14=C_u_i_cdr(t2);
|
|
t15=t10;
|
|
f_2527(t15,C_fixnump(C_u_i_car(t14)));}
|
|
else{
|
|
t14=t10;
|
|
f_2527(t14,C_SCHEME_FALSE);}}
|
|
else{
|
|
t13=t10;
|
|
f_2527(t13,C_SCHEME_FALSE);}}
|
|
else{
|
|
t12=t10;
|
|
f_2527(t12,C_SCHEME_FALSE);}}}}}
|
|
|
|
/* fail in chicken.internal#library-id in k1020 */
|
|
static void f_2432(C_word t0,C_word t1){
|
|
C_word tmp;
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
|
|
C_save_and_reclaim_args((void *)trf_2432,2,t0,t1);}
|
|
/* internal.scm:93: ##sys#error */
|
|
t2=*((C_word*)lf[10]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t2;
|
|
av2[1]=t1;
|
|
av2[2]=lf[11];
|
|
av2[3]=((C_word*)t0)[2];
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
|
|
|
|
/* library-part->string in chicken.internal#library-id in k1020 */
|
|
static void f_2475(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2475,3,t0,t1,t2);}
|
|
if(C_truep(C_i_symbolp(t2))){
|
|
/* internal.scm:100: ##sys#symbol->string/shared */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1));
|
|
C_word av2[3];
|
|
av2[0]=*((C_word*)lf[12]+1);
|
|
av2[1]=t1;
|
|
av2[2]=t2;
|
|
tp(3,av2);}}
|
|
else{
|
|
if(C_truep(C_fixnump(t2))){
|
|
/* internal.scm:101: ##sys#number->string */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1));
|
|
C_word av2[3];
|
|
av2[0]=*((C_word*)lf[13]+1);
|
|
av2[1]=t1;
|
|
av2[2]=t2;
|
|
tp(3,av2);}}
|
|
else{
|
|
/* internal.scm:102: fail */
|
|
t3=((C_word*)((C_word*)t0)[2])[1];
|
|
f_2432(t3,t1);}}}
|
|
|
|
/* k2525 in chicken.internal#library-id in k1020 */
|
|
static void f_2527(C_word t0,C_word t1){
|
|
C_word tmp;
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2527,2,t0,t1);}
|
|
a=C_alloc(6);
|
|
if(C_truep(t1)){
|
|
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
|
|
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2538,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
|
|
/* internal.scm:109: ##sys#number->string */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1));
|
|
C_word av2[3];
|
|
av2[0]=*((C_word*)lf[13]+1);
|
|
av2[1]=t3;
|
|
av2[2]=C_i_cadr(((C_word*)t0)[3]);
|
|
tp(3,av2);}}
|
|
else{
|
|
t2=C_i_cdr(((C_word*)t0)[3]);
|
|
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2553,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
|
|
/* internal.scm:112: library-part->string */
|
|
t4=((C_word*)((C_word*)t0)[4])[1];
|
|
f_2475(t4,t3,C_u_i_car(((C_word*)t0)[3]));}}
|
|
|
|
/* k2532 in k2525 in chicken.internal#library-id in k1020 */
|
|
static void C_ccall f_2534(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_2534,c,av);}
|
|
/* internal.scm:108: ##sys#string->symbol */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1));
|
|
C_word *av2;
|
|
if(c >= 3) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(3);
|
|
}
|
|
av2[0]=*((C_word*)lf[14]+1);
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=t1;
|
|
tp(3,av2);}}
|
|
|
|
/* k2536 in k2525 in chicken.internal#library-id in k1020 */
|
|
static void C_ccall f_2538(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
|
|
C_save_and_reclaim((void *)f_2538,c,av);}
|
|
/* internal.scm:109: ##sys#string-append */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1));
|
|
C_word *av2;
|
|
if(c >= 4) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(4);
|
|
}
|
|
av2[0]=*((C_word*)lf[15]+1);
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=lf[16];
|
|
av2[3]=t1;
|
|
tp(4,av2);}}
|
|
|
|
/* k2551 in k2525 in chicken.internal#library-id in k1020 */
|
|
static void C_ccall f_2553(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){
|
|
C_save_and_reclaim((void *)f_2553,c,av);}
|
|
a=C_alloc(7);
|
|
t2=C_SCHEME_UNDEFINED;
|
|
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
|
|
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2555,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp));
|
|
t5=((C_word*)t3)[1];
|
|
f_2555(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
|
|
|
|
/* doloop614 in k2551 in k2525 in chicken.internal#library-id in k1020 */
|
|
static void f_2555(C_word t0,C_word t1,C_word t2,C_word t3){
|
|
C_word tmp;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2555,4,t0,t1,t2,t3);}
|
|
a=C_alloc(9);
|
|
if(C_truep(C_i_nullp(t2))){
|
|
/* internal.scm:115: ##sys#string->symbol */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1));
|
|
C_word av2[3];
|
|
av2[0]=*((C_word*)lf[14]+1);
|
|
av2[1]=t1;
|
|
av2[2]=t3;
|
|
tp(3,av2);}}
|
|
else{
|
|
t4=C_i_cdr(t2);
|
|
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2576,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);
|
|
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2580,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
|
|
/* internal.scm:113: library-part->string */
|
|
t7=((C_word*)((C_word*)t0)[3])[1];
|
|
f_2475(t7,t6,C_u_i_car(t2));}}
|
|
|
|
/* k2574 in doloop614 in k2551 in k2525 in chicken.internal#library-id in k1020 */
|
|
static void C_ccall f_2576(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
|
|
C_save_and_reclaim((void *)f_2576,c,av);}
|
|
t2=((C_word*)((C_word*)t0)[2])[1];
|
|
f_2555(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);}
|
|
|
|
/* k2578 in doloop614 in k2551 in k2525 in chicken.internal#library-id in k1020 */
|
|
static void C_ccall f_2580(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
|
|
C_save_and_reclaim((void *)f_2580,c,av);}
|
|
/* internal.scm:113: scheme#string-append */
|
|
t2=*((C_word*)lf[17]+1);{
|
|
C_word *av2;
|
|
if(c >= 5) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(5);
|
|
}
|
|
av2[0]=t2;
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=((C_word*)t0)[3];
|
|
av2[3]=lf[18];
|
|
av2[4]=t1;
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}
|
|
|
|
/* chicken.internal#module-requirement in k1020 */
|
|
static void C_ccall f_2590(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word *a;
|
|
if(c!=3) C_bad_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){
|
|
C_save_and_reclaim((void *)f_2590,c,av);}
|
|
a=C_alloc(6);
|
|
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2598,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
|
|
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2602,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
|
|
/* internal.scm:122: ##sys#symbol->string/shared */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1));
|
|
C_word *av2=av;
|
|
av2[0]=*((C_word*)lf[12]+1);
|
|
av2[1]=t4;
|
|
av2[2]=t2;
|
|
tp(3,av2);}}
|
|
|
|
/* k2596 in chicken.internal#module-requirement in k1020 */
|
|
static void C_ccall f_2598(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_2598,c,av);}
|
|
/* internal.scm:121: ##sys#string->symbol */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1));
|
|
C_word *av2;
|
|
if(c >= 3) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(3);
|
|
}
|
|
av2[0]=*((C_word*)lf[14]+1);
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=t1;
|
|
tp(3,av2);}}
|
|
|
|
/* k2600 in chicken.internal#module-requirement in k1020 */
|
|
static void C_ccall f_2602(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
|
|
C_save_and_reclaim((void *)f_2602,c,av);}
|
|
/* internal.scm:122: ##sys#string-append */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[15]+1));
|
|
C_word *av2;
|
|
if(c >= 4) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(4);
|
|
}
|
|
av2[0]=*((C_word*)lf[15]+1);
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=t1;
|
|
av2[3]=lf[21];
|
|
tp(4,av2);}}
|
|
|
|
/* chicken.internal#check-for-multiple-bindings in k1020 */
|
|
static void C_ccall f_2604(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3=av[3];
|
|
C_word t4=av[4];
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word *a;
|
|
if(c!=5) C_bad_argc_2(c,5,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){
|
|
C_save_and_reclaim((void *)f_2604,c,av);}
|
|
a=C_alloc(8);
|
|
t5=C_SCHEME_UNDEFINED;
|
|
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
|
|
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2610,a[2]=t6,a[3]=t3,a[4]=t4,a[5]=((C_word)li9),tmp=(C_word)a,a+=6,tmp));
|
|
t8=((C_word*)t6)[1];
|
|
f_2610(t8,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);}
|
|
|
|
/* loop in chicken.internal#check-for-multiple-bindings in k1020 */
|
|
static void f_2610(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
|
|
C_word tmp;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2610,5,t0,t1,t2,t3,t4);}
|
|
a=C_alloc(9);
|
|
t5=C_i_nullp(t2);
|
|
if(C_truep(t5)){
|
|
t6=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t6;
|
|
av2[1]=t5;
|
|
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
|
|
else{
|
|
t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2623,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp);
|
|
t7=C_i_caar(t2);
|
|
if(C_truep(C_i_memq(t7,t3))){
|
|
t8=C_u_i_car(t2);
|
|
t9=t6;
|
|
f_2623(t9,C_i_not(C_i_memq(C_u_i_car(t8),t4)));}
|
|
else{
|
|
t8=t6;
|
|
f_2623(t8,C_SCHEME_FALSE);}}}
|
|
|
|
/* k2621 in loop in chicken.internal#check-for-multiple-bindings in k1020 */
|
|
static void f_2623(C_word t0,C_word t1){
|
|
C_word tmp;
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){
|
|
C_save_and_reclaim_args((void *)trf_2623,2,t0,t1);}
|
|
a=C_alloc(12);
|
|
if(C_truep(t1)){
|
|
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2626,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp);
|
|
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2643,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp);
|
|
/* internal.scm:134: scheme#string-append */
|
|
t4=*((C_word*)lf[17]+1);{
|
|
C_word av2[5];
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
av2[2]=lf[24];
|
|
av2[3]=((C_word*)t0)[8];
|
|
av2[4]=lf[25];
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}
|
|
else{
|
|
t2=C_u_i_cdr(((C_word*)t0)[2]);
|
|
t3=C_i_caar(((C_word*)t0)[2]);
|
|
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[6]);
|
|
/* internal.scm:138: loop */
|
|
t5=((C_word*)((C_word*)t0)[4])[1];
|
|
f_2610(t5,((C_word*)t0)[5],t2,t4,((C_word*)t0)[3]);}}
|
|
|
|
/* k2624 in k2621 in loop in chicken.internal#check-for-multiple-bindings in k1020 */
|
|
static void C_ccall f_2626(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){
|
|
C_save_and_reclaim((void *)f_2626,c,av);}
|
|
a=C_alloc(3);
|
|
t2=C_u_i_cdr(((C_word*)t0)[2]);
|
|
t3=C_i_caar(((C_word*)t0)[2]);
|
|
t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]);
|
|
/* internal.scm:137: loop */
|
|
t5=((C_word*)((C_word*)t0)[4])[1];
|
|
f_2610(t5,((C_word*)t0)[5],t2,((C_word*)t0)[6],t4);}
|
|
|
|
/* k2641 in k2621 in loop in chicken.internal#check-for-multiple-bindings in k1020 */
|
|
static void C_ccall f_2643(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
|
|
C_save_and_reclaim((void *)f_2643,c,av);}
|
|
t2=C_u_i_car(((C_word*)t0)[2]);
|
|
/* internal.scm:133: ##sys#warn */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1));
|
|
C_word *av2;
|
|
if(c >= 5) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(5);
|
|
}
|
|
av2[0]=*((C_word*)lf[23]+1);
|
|
av2[1]=((C_word*)t0)[3];
|
|
av2[2]=t1;
|
|
av2[3]=C_u_i_car(t2);
|
|
av2[4]=((C_word*)t0)[4];
|
|
tp(5,av2);}}
|
|
|
|
/* chicken.internal#macro-subset in k1020 */
|
|
static void C_ccall f_2678(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word *a;
|
|
if(c<3) C_bad_min_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){
|
|
C_save_and_reclaim((void *)f_2678,c,av);}
|
|
a=C_alloc(8);
|
|
t3=C_rest_nullp(c,3);
|
|
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
|
|
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2685,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
|
|
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2692,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
|
|
/* internal.scm:143: ##sys#macro-environment */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1));
|
|
C_word *av2=av;
|
|
av2[0]=*((C_word*)lf[28]+1);
|
|
av2[1]=t6;
|
|
tp(2,av2);}}
|
|
|
|
/* k2683 in chicken.internal#macro-subset in k1020 */
|
|
static void C_ccall f_2685(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
|
|
C_save_and_reclaim((void *)f_2685,c,av);}
|
|
/* internal.scm:147: fixup-macro-environment */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1));
|
|
C_word *av2;
|
|
if(c >= 4) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(4);
|
|
}
|
|
av2[0]=*((C_word*)lf[27]+1);
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=t1;
|
|
av2[3]=((C_word*)t0)[3];
|
|
tp(4,av2);}}
|
|
|
|
/* k2690 in chicken.internal#macro-subset in k1020 */
|
|
static void C_ccall f_2692(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){
|
|
C_save_and_reclaim((void *)f_2692,c,av);}
|
|
a=C_alloc(7);
|
|
t2=C_SCHEME_UNDEFINED;
|
|
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
|
|
t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2694,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp));
|
|
t5=((C_word*)t3)[1];
|
|
f_2694(t5,((C_word*)t0)[3],t1);}
|
|
|
|
/* loop in k2690 in chicken.internal#macro-subset in k1020 */
|
|
static void f_2694(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word *a;
|
|
loop:
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2694,3,t0,t1,t2);}
|
|
a=C_alloc(4);
|
|
t3=C_i_nullp(t2);
|
|
t4=(C_truep(t3)?t3:C_eqp(t2,((C_word*)t0)[2]));
|
|
if(C_truep(t4)){
|
|
t5=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t5;
|
|
av2[1]=C_SCHEME_END_OF_LIST;
|
|
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}
|
|
else{
|
|
t5=C_i_car(t2);
|
|
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2715,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
|
|
/* internal.scm:146: loop */
|
|
t8=t6;
|
|
t9=C_u_i_cdr(t2);
|
|
t1=t8;
|
|
t2=t9;
|
|
goto loop;}}
|
|
|
|
/* k2713 in loop in k2690 in chicken.internal#macro-subset in k1020 */
|
|
static void C_ccall f_2715(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){
|
|
C_save_and_reclaim((void *)f_2715,c,av);}
|
|
a=C_alloc(3);
|
|
t2=((C_word*)t0)[2];{
|
|
C_word *av2=av;
|
|
av2[0]=t2;
|
|
av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1);
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
|
|
|
|
/* chicken.internal#fixup-macro-environment in k1020 */
|
|
static void C_ccall f_2728(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word *a;
|
|
if(c<3) C_bad_min_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){
|
|
C_save_and_reclaim((void *)f_2728,c,av);}
|
|
a=C_alloc(4);
|
|
t3=C_rest_nullp(c,3);
|
|
t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0));
|
|
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2735,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
|
|
if(C_truep(t4)){
|
|
/* internal.scm:151: ##sys#append */
|
|
t6=*((C_word*)lf[29]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t6;
|
|
av2[1]=t5;
|
|
av2[2]=t2;
|
|
av2[3]=t4;
|
|
((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}
|
|
else{
|
|
t6=t5;{
|
|
C_word *av2=av;
|
|
av2[0]=t6;
|
|
av2[1]=t2;
|
|
f_2735(2,av2);}}}
|
|
|
|
/* k2733 in chicken.internal#fixup-macro-environment in k1020 */
|
|
static void C_ccall f_2735(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){
|
|
C_save_and_reclaim((void *)f_2735,c,av);}
|
|
a=C_alloc(15);
|
|
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2736,a[2]=t1,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp);
|
|
t3=C_i_check_list_2(((C_word*)t0)[2],lf[30]);
|
|
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2775,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
|
|
t5=C_SCHEME_UNDEFINED;
|
|
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
|
|
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2777,a[2]=t6,a[3]=t2,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp));
|
|
t8=((C_word*)t6)[1];
|
|
f_2777(t8,t4,((C_word*)t0)[2]);}
|
|
|
|
/* g677 in k2733 in chicken.internal#fixup-macro-environment in k1020 */
|
|
static void f_2736(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,0,3)))){
|
|
C_save_and_reclaim_args((void *)trf_2736,3,t0,t1,t2);}
|
|
a=C_alloc(4);
|
|
t3=C_i_cdr(t2);
|
|
if(C_truep(C_i_pairp(t3))){
|
|
t4=C_u_i_cdr(t2);
|
|
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2752,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
|
|
t6=C_i_cadr(t2);
|
|
if(C_truep(C_i_nullp(t6))){
|
|
t7=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t7;
|
|
av2[1]=C_i_set_car(t4,((C_word*)t0)[2]);
|
|
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
|
|
else{
|
|
t7=C_u_i_cdr(t2);
|
|
/* internal.scm:159: ##sys#append */
|
|
t8=*((C_word*)lf[29]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t8;
|
|
av2[1]=t5;
|
|
av2[2]=C_u_i_car(t7);
|
|
av2[3]=((C_word*)t0)[2];
|
|
((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}
|
|
else{
|
|
t4=C_SCHEME_UNDEFINED;
|
|
t5=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t5;
|
|
av2[1]=t4;
|
|
((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}
|
|
|
|
/* k2750 in g677 in k2733 in chicken.internal#fixup-macro-environment in k1020 */
|
|
static void C_ccall f_2752(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
|
|
C_save_and_reclaim((void *)f_2752,c,av);}
|
|
t2=((C_word*)t0)[2];{
|
|
C_word *av2=av;
|
|
av2[0]=t2;
|
|
av2[1]=C_i_set_car(((C_word*)t0)[3],t1);
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
|
|
|
|
/* k2773 in k2733 in chicken.internal#fixup-macro-environment in k1020 */
|
|
static void C_ccall f_2775(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){
|
|
C_save_and_reclaim((void *)f_2775,c,av);}
|
|
t2=((C_word*)t0)[2];{
|
|
C_word *av2=av;
|
|
av2[0]=t2;
|
|
av2[1]=((C_word*)t0)[3];
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}
|
|
|
|
/* for-each-loop676 in k2733 in chicken.internal#fixup-macro-environment in k1020 */
|
|
static void f_2777(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2777,3,t0,t1,t2);}
|
|
a=C_alloc(5);
|
|
if(C_truep(C_i_pairp(t2))){
|
|
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2787,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
|
|
/* internal.scm:152: g677 */
|
|
t4=((C_word*)t0)[3];
|
|
f_2736(t4,t3,C_slot(t2,C_fix(0)));}
|
|
else{
|
|
t3=C_SCHEME_UNDEFINED;
|
|
t4=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
|
|
|
|
/* k2785 in for-each-loop676 in k2733 in chicken.internal#fixup-macro-environment in k1020 */
|
|
static void C_ccall f_2787(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_2787,c,av);}
|
|
t2=((C_word*)((C_word*)t0)[2])[1];
|
|
f_2777(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
|
|
|
|
/* chicken.internal#hash-symbol in k1020 */
|
|
static C_word f_2809(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_stack_overflow_check;{}
|
|
t3=C_eqp(t1,((C_word*)((C_word*)t0)[2])[1]);
|
|
if(C_truep(t3)){
|
|
return(C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2));}
|
|
else{
|
|
t4=C_slot(t1,C_fix(1));
|
|
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1);
|
|
t6=C_block_size(t4);
|
|
t7=C_fixnum_difference(t6,C_fix(1));
|
|
t8=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_bytevector_hash(t4,C_fix(0),t7,((C_word*)t0)[4]));
|
|
return(C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2));}}
|
|
|
|
/* chicken.internal#make-hash-table in k1020 */
|
|
static void C_ccall f_2831(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){
|
|
C_save_and_reclaim((void *)f_2831,c,av);}
|
|
if(C_truep(C_rest_nullp(c,2))){
|
|
/* internal.scm:180: scheme#make-vector */
|
|
t2=*((C_word*)lf[33]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t2;
|
|
av2[1]=t1;
|
|
av2[2]=C_fix(301);
|
|
av2[3]=C_SCHEME_END_OF_LIST;
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}
|
|
else{
|
|
/* internal.scm:180: scheme#make-vector */
|
|
t2=*((C_word*)lf[33]+1);{
|
|
C_word av2[4];
|
|
av2[0]=t2;
|
|
av2[1]=t1;
|
|
av2[2]=C_get_rest_arg(c,2,av,2,t0);
|
|
av2[3]=C_SCHEME_END_OF_LIST;
|
|
((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}}
|
|
|
|
/* chicken.internal#hash-table-ref in k1020 */
|
|
static void C_ccall f_2846(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3=av[3];
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word *a;
|
|
if(c!=4) C_bad_argc_2(c,4,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
|
|
C_save_and_reclaim((void *)f_2846,c,av);}
|
|
a=C_alloc(4);
|
|
t4=(
|
|
/* internal.scm:183: hash-symbol */
|
|
f_2809(lf[31],t3,C_block_size(t2))
|
|
);
|
|
t5=C_slot(t2,t4);
|
|
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2856,a[2]=t3,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp);
|
|
t7=t1;{
|
|
C_word *av2=av;
|
|
av2[0]=t7;
|
|
av2[1]=(
|
|
f_2856(t6,t5)
|
|
);
|
|
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
|
|
|
|
/* loop in chicken.internal#hash-table-ref in k1020 */
|
|
static C_word f_2856(C_word t0,C_word t1){
|
|
C_word tmp;
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_stack_overflow_check;
|
|
loop:{}
|
|
t2=C_eqp(C_SCHEME_END_OF_LIST,t1);
|
|
if(C_truep(C_i_not(t2))){
|
|
t3=C_slot(t1,C_fix(0));
|
|
t4=C_slot(t3,C_fix(0));
|
|
t5=C_eqp(((C_word*)t0)[2],t4);
|
|
if(C_truep(t5)){
|
|
return(C_slot(C_slot(t1,C_fix(0)),C_fix(1)));}
|
|
else{
|
|
t7=C_slot(t1,C_fix(1));
|
|
t1=t7;
|
|
goto loop;}}
|
|
else{
|
|
return(C_SCHEME_FALSE);}}
|
|
|
|
/* chicken.internal#hash-table-set! in k1020 */
|
|
static void C_ccall f_2905(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3=av[3];
|
|
C_word t4=av[4];
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word t10;
|
|
C_word *a;
|
|
if(c!=5) C_bad_argc_2(c,5,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){
|
|
C_save_and_reclaim((void *)f_2905,c,av);}
|
|
a=C_alloc(11);
|
|
t5=(
|
|
/* internal.scm:190: hash-symbol */
|
|
f_2809(lf[31],t3,C_block_size(t2))
|
|
);
|
|
t6=C_slot(t2,t5);
|
|
t7=C_SCHEME_UNDEFINED;
|
|
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
|
|
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2917,a[2]=t3,a[3]=t4,a[4]=t6,a[5]=t2,a[6]=t5,a[7]=t8,a[8]=((C_word)li20),tmp=(C_word)a,a+=9,tmp));
|
|
t10=((C_word*)t8)[1];
|
|
f_2917(t10,t1,t6);}
|
|
|
|
/* loop in chicken.internal#hash-table-set! in k1020 */
|
|
static void f_2917(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word *a;
|
|
loop:
|
|
if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_2917,3,t0,t1,t2);}
|
|
a=C_alloc(6);
|
|
t3=C_eqp(C_SCHEME_END_OF_LIST,t2);
|
|
if(C_truep(t3)){
|
|
t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]);
|
|
t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]);
|
|
t6=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t6;
|
|
av2[1]=C_i_setslot(((C_word*)t0)[5],((C_word*)t0)[6],t5);
|
|
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
|
|
else{
|
|
t4=C_slot(t2,C_fix(0));
|
|
t5=C_slot(t4,C_fix(0));
|
|
t6=C_eqp(((C_word*)t0)[2],t5);
|
|
if(C_truep(t6)){
|
|
t7=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t7;
|
|
av2[1]=C_i_setslot(C_slot(t2,C_fix(0)),C_fix(1),((C_word*)t0)[3]);
|
|
((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}
|
|
else{
|
|
/* internal.scm:197: loop */
|
|
t8=t1;
|
|
t9=C_slot(t2,C_fix(1));
|
|
t1=t8;
|
|
t2=t9;
|
|
goto loop;}}}
|
|
|
|
/* chicken.internal#hash-table-update! in k1020 */
|
|
static void C_ccall f_2969(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3=av[3];
|
|
C_word t4=av[4];
|
|
C_word t5=av[5];
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word *a;
|
|
if(c!=6) C_bad_argc_2(c,6,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){
|
|
C_save_and_reclaim((void *)f_2969,c,av);}
|
|
a=C_alloc(10);
|
|
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2977,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
|
|
t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2981,a[2]=t4,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp);
|
|
/* internal.scm:200: hash-table-ref */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1));
|
|
C_word *av2=av;
|
|
av2[0]=*((C_word*)lf[34]+1);
|
|
av2[1]=t7;
|
|
av2[2]=t2;
|
|
av2[3]=t3;
|
|
tp(4,av2);}}
|
|
|
|
/* k2975 in chicken.internal#hash-table-update! in k1020 */
|
|
static void C_ccall f_2977(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
|
|
C_save_and_reclaim((void *)f_2977,c,av);}
|
|
/* internal.scm:200: hash-table-set! */
|
|
{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1));
|
|
C_word *av2;
|
|
if(c >= 5) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(5);
|
|
}
|
|
av2[0]=*((C_word*)lf[35]+1);
|
|
av2[1]=((C_word*)t0)[2];
|
|
av2[2]=((C_word*)t0)[3];
|
|
av2[3]=((C_word*)t0)[4];
|
|
av2[4]=t1;
|
|
tp(5,av2);}}
|
|
|
|
/* k2979 in chicken.internal#hash-table-update! in k1020 */
|
|
static void C_ccall f_2981(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){
|
|
C_save_and_reclaim((void *)f_2981,c,av);}
|
|
a=C_alloc(4);
|
|
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2984,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
|
|
if(C_truep(t1)){
|
|
/* internal.scm:200: updtfunc */
|
|
t3=((C_word*)t0)[2];{
|
|
C_word *av2;
|
|
if(c >= 3) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(3);
|
|
}
|
|
av2[0]=t3;
|
|
av2[1]=((C_word*)t0)[3];
|
|
av2[2]=t1;
|
|
((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}
|
|
else{
|
|
/* internal.scm:200: valufunc */
|
|
t3=((C_word*)t0)[4];{
|
|
C_word *av2=av;
|
|
av2[0]=t3;
|
|
av2[1]=t2;
|
|
((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}}
|
|
|
|
/* k2982 in k2979 in chicken.internal#hash-table-update! in k1020 */
|
|
static void C_ccall f_2984(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_2984,c,av);}
|
|
/* internal.scm:200: updtfunc */
|
|
t2=((C_word*)t0)[2];{
|
|
C_word *av2;
|
|
if(c >= 3) {
|
|
av2=av;
|
|
} else {
|
|
av2=C_alloc(3);
|
|
}
|
|
av2[0]=t2;
|
|
av2[1]=((C_word*)t0)[3];
|
|
av2[2]=t1;
|
|
((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}
|
|
|
|
/* chicken.internal#hash-table-for-each in k1020 */
|
|
static void C_ccall f_2989(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3=av[3];
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word *a;
|
|
if(c!=4) C_bad_argc_2(c,4,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){
|
|
C_save_and_reclaim((void *)f_2989,c,av);}
|
|
a=C_alloc(9);
|
|
t4=C_block_size(t3);
|
|
t5=C_SCHEME_UNDEFINED;
|
|
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
|
|
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2995,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t6,a[6]=((C_word)li25),tmp=(C_word)a,a+=7,tmp));
|
|
t8=((C_word*)t6)[1];
|
|
f_2995(t8,t1,C_fix(0));}
|
|
|
|
/* doloop741 in chicken.internal#hash-table-for-each in k1020 */
|
|
static void f_2995(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word t9;
|
|
C_word t10;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){
|
|
C_save_and_reclaim_args((void *)trf_2995,3,t0,t1,t2);}
|
|
a=C_alloc(16);
|
|
if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){
|
|
t3=C_SCHEME_UNDEFINED;
|
|
t4=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}
|
|
else{
|
|
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3003,a[2]=((C_word*)t0)[3],a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp);
|
|
t4=C_slot(((C_word*)t0)[4],t2);
|
|
t5=C_i_check_list_2(t4,lf[30]);
|
|
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3024,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
|
|
t7=C_SCHEME_UNDEFINED;
|
|
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
|
|
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3033,a[2]=t8,a[3]=t3,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp));
|
|
t10=((C_word*)t8)[1];
|
|
f_3033(t10,t6,t4);}}
|
|
|
|
/* g747 in doloop741 in chicken.internal#hash-table-for-each in k1020 */
|
|
static void f_3003(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){
|
|
C_save_and_reclaim_args((void *)trf_3003,3,t0,t1,t2);}
|
|
/* internal.scm:206: p */
|
|
t3=((C_word*)t0)[2];{
|
|
C_word av2[4];
|
|
av2[0]=t3;
|
|
av2[1]=t1;
|
|
av2[2]=C_slot(t2,C_fix(0));
|
|
av2[3]=C_slot(t2,C_fix(1));
|
|
((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}
|
|
|
|
/* k3022 in doloop741 in chicken.internal#hash-table-for-each in k1020 */
|
|
static void C_ccall f_3024(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_3024,c,av);}
|
|
t2=((C_word*)((C_word*)t0)[2])[1];
|
|
f_2995(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}
|
|
|
|
/* for-each-loop746 in doloop741 in chicken.internal#hash-table-for-each in k1020 */
|
|
static void f_3033(C_word t0,C_word t1,C_word t2){
|
|
C_word tmp;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_3033,3,t0,t1,t2);}
|
|
a=C_alloc(5);
|
|
if(C_truep(C_i_pairp(t2))){
|
|
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3043,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
|
|
/* internal.scm:206: g747 */
|
|
t4=((C_word*)t0)[3];
|
|
f_3003(t4,t3,C_slot(t2,C_fix(0)));}
|
|
else{
|
|
t3=C_SCHEME_UNDEFINED;
|
|
t4=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t4;
|
|
av2[1]=t3;
|
|
((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}
|
|
|
|
/* k3041 in for-each-loop746 in doloop741 in chicken.internal#hash-table-for-each in k1020 */
|
|
static void C_ccall f_3043(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){
|
|
C_save_and_reclaim((void *)f_3043,c,av);}
|
|
t2=((C_word*)((C_word*)t0)[2])[1];
|
|
f_3033(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}
|
|
|
|
/* chicken.internal#hash-table-size in k1020 */
|
|
static void C_ccall f_3056(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2=av[2];
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word *a;
|
|
if(c!=3) C_bad_argc_2(c,3,t0);
|
|
if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){
|
|
C_save_and_reclaim((void *)f_3056,c,av);}
|
|
a=C_alloc(7);
|
|
t3=C_block_size(t2);
|
|
t4=C_SCHEME_UNDEFINED;
|
|
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
|
|
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3066,a[2]=t5,a[3]=t2,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp));
|
|
t7=((C_word*)t5)[1];
|
|
f_3066(t7,t1,t3,C_fix(0),C_fix(0));}
|
|
|
|
/* loop in chicken.internal#hash-table-size in k1020 */
|
|
static void f_3066(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
|
|
C_word tmp;
|
|
C_word t5;
|
|
C_word t6;
|
|
C_word t7;
|
|
C_word t8;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){
|
|
C_save_and_reclaim_args((void *)trf_3066,5,t0,t1,t2,t3,t4);}
|
|
a=C_alloc(7);
|
|
t5=C_eqp(t3,t2);
|
|
if(C_truep(t5)){
|
|
t6=t1;{
|
|
C_word av2[2];
|
|
av2[0]=t6;
|
|
av2[1]=t4;
|
|
((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}
|
|
else{
|
|
t6=C_fixnum_plus(t3,C_fix(1));
|
|
t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3088,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t6,a[6]=t4,tmp=(C_word)a,a+=7,tmp);
|
|
/* internal.scm:213: ##sys#length */
|
|
t8=*((C_word*)lf[39]+1);{
|
|
C_word av2[3];
|
|
av2[0]=t8;
|
|
av2[1]=t7;
|
|
av2[2]=C_slot(((C_word*)t0)[3],t3);
|
|
((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}
|
|
|
|
/* k3086 in loop in chicken.internal#hash-table-size in k1020 */
|
|
static void C_ccall f_3088(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word *a;
|
|
if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){
|
|
C_save_and_reclaim((void *)f_3088,c,av);}
|
|
/* internal.scm:213: loop */
|
|
t2=((C_word*)((C_word*)t0)[2])[1];
|
|
f_3066(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],t1));}
|
|
|
|
/* toplevel */
|
|
static int toplevel_initialized=0;
|
|
|
|
void C_ccall C_internal_toplevel(C_word c,C_word *av){
|
|
C_word tmp;
|
|
C_word t0=av[0];
|
|
C_word t1=av[1];
|
|
C_word t2;
|
|
C_word t3;
|
|
C_word t4;
|
|
C_word t5;
|
|
C_word *a;
|
|
if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);}
|
|
else C_toplevel_entry(C_text("internal"));
|
|
C_check_nursery_minimum(C_calculate_demand(19,c,2));
|
|
if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){
|
|
C_save_and_reclaim((void*)C_internal_toplevel,c,av);}
|
|
toplevel_initialized=1;
|
|
if(C_unlikely(!C_demand_2(305))){
|
|
C_save(t1);
|
|
C_rereclaim2(305*sizeof(C_word),1);
|
|
t1=C_restore;}
|
|
a=C_alloc(19);
|
|
C_initialize_lf(lf,44);
|
|
lf[0]=C_h_intern(&lf[0],8, C_text("internal"));
|
|
lf[1]=C_h_intern(&lf[1],17, C_text("chicken.internal#"));
|
|
lf[2]=C_h_intern(&lf[2],37, C_text("chicken.internal#string->c-identifier"));
|
|
lf[3]=C_h_intern(&lf[3],24, C_text("scheme#get-output-string"));
|
|
lf[4]=C_h_intern(&lf[4],14, C_text("scheme#display"));
|
|
lf[5]=C_h_intern(&lf[5],20, C_text("##sys#fixnum->string"));
|
|
lf[6]=C_h_intern(&lf[6],21, C_text("##sys#write-char/port"));
|
|
lf[7]=C_h_intern(&lf[7],25, C_text("scheme#open-output-string"));
|
|
lf[8]=C_h_intern(&lf[8],41, C_text("chicken.internal#valid-library-specifier?"));
|
|
lf[9]=C_h_intern(&lf[9],27, C_text("chicken.internal#library-id"));
|
|
lf[10]=C_h_intern(&lf[10],11, C_text("##sys#error"));
|
|
lf[11]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\151\156\166\141\154\151\144\040\154\151\142\162\141\162\171\040\163\160\145\143\151\146\151\145\162\000"));
|
|
lf[12]=C_h_intern(&lf[12],27, C_text("##sys#symbol->string/shared"));
|
|
lf[13]=C_h_intern(&lf[13],20, C_text("##sys#number->string"));
|
|
lf[14]=C_h_intern(&lf[14],20, C_text("##sys#string->symbol"));
|
|
lf[15]=C_h_intern(&lf[15],19, C_text("##sys#string-append"));
|
|
lf[16]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\163\162\146\151\055\000"));
|
|
lf[17]=C_h_intern(&lf[17],20, C_text("scheme#string-append"));
|
|
lf[18]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000"));
|
|
lf[19]=C_h_intern(&lf[19],4, C_text("srfi"));
|
|
lf[20]=C_h_intern(&lf[20],35, C_text("chicken.internal#module-requirement"));
|
|
lf[21]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000"));
|
|
lf[22]=C_h_intern(&lf[22],44, C_text("chicken.internal#check-for-multiple-bindings"));
|
|
lf[23]=C_h_intern(&lf[23],10, C_text("##sys#warn"));
|
|
lf[24]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\166\141\162\151\141\142\154\145\040\142\157\165\156\144\040\155\165\154\164\151\160\154\145\040\164\151\155\145\163\040\151\156\040\000"));
|
|
lf[25]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\040\143\157\156\163\164\162\165\143\164\000"));
|
|
lf[26]=C_h_intern(&lf[26],29, C_text("chicken.internal#macro-subset"));
|
|
lf[27]=C_h_intern(&lf[27],40, C_text("chicken.internal#fixup-macro-environment"));
|
|
lf[28]=C_h_intern(&lf[28],23, C_text("##sys#macro-environment"));
|
|
lf[29]=C_h_intern(&lf[29],12, C_text("##sys#append"));
|
|
lf[30]=C_h_intern(&lf[30],8, C_text("for-each"));
|
|
lf[32]=C_h_intern(&lf[32],32, C_text("chicken.internal#make-hash-table"));
|
|
lf[33]=C_h_intern(&lf[33],18, C_text("scheme#make-vector"));
|
|
lf[34]=C_h_intern(&lf[34],31, C_text("chicken.internal#hash-table-ref"));
|
|
lf[35]=C_h_intern(&lf[35],32, C_text("chicken.internal#hash-table-set!"));
|
|
lf[36]=C_h_intern(&lf[36],35, C_text("chicken.internal#hash-table-update!"));
|
|
lf[37]=C_h_intern(&lf[37],36, C_text("chicken.internal#hash-table-for-each"));
|
|
lf[38]=C_h_intern(&lf[38],32, C_text("chicken.internal#hash-table-size"));
|
|
lf[39]=C_h_intern(&lf[39],12, C_text("##sys#length"));
|
|
lf[40]=C_h_intern(&lf[40],32, C_text("chicken.internal#default-imports"));
|
|
lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\143\150\145\155\145\376\003\000\000\002\376\001\000\000\014\001\143\150\151\143\153\145\156\056\142\141\163\145\376\003\000\000\002\376\001\000\000\016\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\376\377\016"));
|
|
lf[42]=C_h_intern(&lf[42],39, C_text("chicken.internal#default-syntax-imports"));
|
|
lf[43]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\143\150\145\155\145\376\003\000\000\002\376\001\000\000\014\001\143\150\151\143\153\145\156\056\142\141\163\145\376\003\000\000\002\376\001\000\000\016\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\376\377\016"));
|
|
C_register_lf2(lf,44,create_ptable());{}
|
|
t2=C_a_i_provide(&a,1,lf[0]);
|
|
t3=C_a_i_provide(&a,1,lf[1]);
|
|
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1022,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{
|
|
C_word *av2=av;
|
|
av2[0]=C_SCHEME_UNDEFINED;
|
|
av2[1]=t4;
|
|
C_library_toplevel(2,av2);}}
|
|
|
|
#ifdef C_ENABLE_PTABLES
|
|
static C_PTABLE_ENTRY ptable[62] = {
|
|
{C_text("f_1022:internal_2escm"),(void*)f_1022},
|
|
{C_text("f_1399:internal_2escm"),(void*)f_1399},
|
|
{C_text("f_2302:internal_2escm"),(void*)f_2302},
|
|
{C_text("f_2306:internal_2escm"),(void*)f_2306},
|
|
{C_text("f_2314:internal_2escm"),(void*)f_2314},
|
|
{C_text("f_2330:internal_2escm"),(void*)f_2330},
|
|
{C_text("f_2340:internal_2escm"),(void*)f_2340},
|
|
{C_text("f_2346:internal_2escm"),(void*)f_2346},
|
|
{C_text("f_2349:internal_2escm"),(void*)f_2349},
|
|
{C_text("f_2356:internal_2escm"),(void*)f_2356},
|
|
{C_text("f_2389:internal_2escm"),(void*)f_2389},
|
|
{C_text("f_2429:internal_2escm"),(void*)f_2429},
|
|
{C_text("f_2432:internal_2escm"),(void*)f_2432},
|
|
{C_text("f_2475:internal_2escm"),(void*)f_2475},
|
|
{C_text("f_2527:internal_2escm"),(void*)f_2527},
|
|
{C_text("f_2534:internal_2escm"),(void*)f_2534},
|
|
{C_text("f_2538:internal_2escm"),(void*)f_2538},
|
|
{C_text("f_2553:internal_2escm"),(void*)f_2553},
|
|
{C_text("f_2555:internal_2escm"),(void*)f_2555},
|
|
{C_text("f_2576:internal_2escm"),(void*)f_2576},
|
|
{C_text("f_2580:internal_2escm"),(void*)f_2580},
|
|
{C_text("f_2590:internal_2escm"),(void*)f_2590},
|
|
{C_text("f_2598:internal_2escm"),(void*)f_2598},
|
|
{C_text("f_2602:internal_2escm"),(void*)f_2602},
|
|
{C_text("f_2604:internal_2escm"),(void*)f_2604},
|
|
{C_text("f_2610:internal_2escm"),(void*)f_2610},
|
|
{C_text("f_2623:internal_2escm"),(void*)f_2623},
|
|
{C_text("f_2626:internal_2escm"),(void*)f_2626},
|
|
{C_text("f_2643:internal_2escm"),(void*)f_2643},
|
|
{C_text("f_2678:internal_2escm"),(void*)f_2678},
|
|
{C_text("f_2685:internal_2escm"),(void*)f_2685},
|
|
{C_text("f_2692:internal_2escm"),(void*)f_2692},
|
|
{C_text("f_2694:internal_2escm"),(void*)f_2694},
|
|
{C_text("f_2715:internal_2escm"),(void*)f_2715},
|
|
{C_text("f_2728:internal_2escm"),(void*)f_2728},
|
|
{C_text("f_2735:internal_2escm"),(void*)f_2735},
|
|
{C_text("f_2736:internal_2escm"),(void*)f_2736},
|
|
{C_text("f_2752:internal_2escm"),(void*)f_2752},
|
|
{C_text("f_2775:internal_2escm"),(void*)f_2775},
|
|
{C_text("f_2777:internal_2escm"),(void*)f_2777},
|
|
{C_text("f_2787:internal_2escm"),(void*)f_2787},
|
|
{C_text("f_2809:internal_2escm"),(void*)f_2809},
|
|
{C_text("f_2831:internal_2escm"),(void*)f_2831},
|
|
{C_text("f_2846:internal_2escm"),(void*)f_2846},
|
|
{C_text("f_2856:internal_2escm"),(void*)f_2856},
|
|
{C_text("f_2905:internal_2escm"),(void*)f_2905},
|
|
{C_text("f_2917:internal_2escm"),(void*)f_2917},
|
|
{C_text("f_2969:internal_2escm"),(void*)f_2969},
|
|
{C_text("f_2977:internal_2escm"),(void*)f_2977},
|
|
{C_text("f_2981:internal_2escm"),(void*)f_2981},
|
|
{C_text("f_2984:internal_2escm"),(void*)f_2984},
|
|
{C_text("f_2989:internal_2escm"),(void*)f_2989},
|
|
{C_text("f_2995:internal_2escm"),(void*)f_2995},
|
|
{C_text("f_3003:internal_2escm"),(void*)f_3003},
|
|
{C_text("f_3024:internal_2escm"),(void*)f_3024},
|
|
{C_text("f_3033:internal_2escm"),(void*)f_3033},
|
|
{C_text("f_3043:internal_2escm"),(void*)f_3043},
|
|
{C_text("f_3056:internal_2escm"),(void*)f_3056},
|
|
{C_text("f_3066:internal_2escm"),(void*)f_3066},
|
|
{C_text("f_3088:internal_2escm"),(void*)f_3088},
|
|
{C_text("toplevel:internal_2escm"),(void*)C_internal_toplevel},
|
|
{NULL,NULL}};
|
|
#endif
|
|
|
|
static C_PTABLE_ENTRY *create_ptable(void){
|
|
#ifdef C_ENABLE_PTABLES
|
|
return ptable;
|
|
#else
|
|
return NULL;
|
|
#endif
|
|
}
|
|
|
|
/*
|
|
o|hiding unexported module binding: chicken.internal#d
|
|
o|hiding unexported module binding: chicken.internal#define-alias
|
|
o|hiding unexported module binding: chicken.internal#partition
|
|
o|hiding unexported module binding: chicken.internal#span
|
|
o|hiding unexported module binding: chicken.internal#take
|
|
o|hiding unexported module binding: chicken.internal#drop
|
|
o|hiding unexported module binding: chicken.internal#split-at
|
|
o|hiding unexported module binding: chicken.internal#append-map
|
|
o|hiding unexported module binding: chicken.internal#every
|
|
o|hiding unexported module binding: chicken.internal#any
|
|
o|hiding unexported module binding: chicken.internal#cons*
|
|
o|hiding unexported module binding: chicken.internal#concatenate
|
|
o|hiding unexported module binding: chicken.internal#delete
|
|
o|hiding unexported module binding: chicken.internal#first
|
|
o|hiding unexported module binding: chicken.internal#second
|
|
o|hiding unexported module binding: chicken.internal#third
|
|
o|hiding unexported module binding: chicken.internal#fourth
|
|
o|hiding unexported module binding: chicken.internal#fifth
|
|
o|hiding unexported module binding: chicken.internal#delete-duplicates
|
|
o|hiding unexported module binding: chicken.internal#alist-cons
|
|
o|hiding unexported module binding: chicken.internal#filter
|
|
o|hiding unexported module binding: chicken.internal#filter-map
|
|
o|hiding unexported module binding: chicken.internal#remove
|
|
o|hiding unexported module binding: chicken.internal#unzip1
|
|
o|hiding unexported module binding: chicken.internal#last
|
|
o|hiding unexported module binding: chicken.internal#list-index
|
|
o|hiding unexported module binding: chicken.internal#lset-adjoin/eq?
|
|
o|hiding unexported module binding: chicken.internal#lset-difference/eq?
|
|
o|hiding unexported module binding: chicken.internal#lset-union/eq?
|
|
o|hiding unexported module binding: chicken.internal#lset-intersection/eq?
|
|
o|hiding unexported module binding: chicken.internal#list-tabulate
|
|
o|hiding unexported module binding: chicken.internal#lset<=/eq?
|
|
o|hiding unexported module binding: chicken.internal#lset=/eq?
|
|
o|hiding unexported module binding: chicken.internal#length+
|
|
o|hiding unexported module binding: chicken.internal#find
|
|
o|hiding unexported module binding: chicken.internal#find-tail
|
|
o|hiding unexported module binding: chicken.internal#iota
|
|
o|hiding unexported module binding: chicken.internal#make-list
|
|
o|hiding unexported module binding: chicken.internal#posq
|
|
o|hiding unexported module binding: chicken.internal#posv
|
|
o|hiding unexported module binding: chicken.internal#hash-symbol
|
|
S|applied compiler syntax:
|
|
S| ##sys#for-each 1
|
|
S| scheme#for-each 1
|
|
S| chicken.base#foldl 3
|
|
S| scheme#map 3
|
|
S| chicken.base#foldr 3
|
|
o|eliminated procedure checks: 49
|
|
o|specializations:
|
|
o| 2 (scheme#caar (pair pair *))
|
|
o| 2 (scheme#cadr (pair * pair))
|
|
o| 1 (scheme#number->string fixnum fixnum)
|
|
o| 1 (scheme#eqv? * *)
|
|
o| 3 (##sys#check-list (or pair list) *)
|
|
o| 26 (scheme#cdr pair)
|
|
o| 10 (scheme#car pair)
|
|
(o e)|safe calls: 292
|
|
o|safe globals: (chicken.internal#default-syntax-imports chicken.internal#default-imports chicken.internal#hash-table-size chicken.internal#hash-table-for-each chicken.internal#hash-table-update! chicken.internal#hash-table-set! chicken.internal#hash-table-ref chicken.internal#make-hash-table chicken.internal#hash-symbol chicken.internal#fixup-macro-environment chicken.internal#macro-subset chicken.internal#check-for-multiple-bindings chicken.internal#module-requirement chicken.internal#library-id chicken.internal#valid-library-specifier? chicken.internal#string->c-identifier chicken.internal#posv chicken.internal#posq chicken.internal#make-list chicken.internal#iota chicken.internal#find-tail chicken.internal#find chicken.internal#length+ chicken.internal#lset=/eq? chicken.internal#lset<=/eq? chicken.internal#list-tabulate chicken.internal#lset-intersection/eq? chicken.internal#lset-union/eq? chicken.internal#lset-difference/eq? chicken.internal#lset-adjoin/eq? chicken.internal#list-index chicken.internal#last chicken.internal#unzip1 chicken.internal#remove chicken.internal#filter-map chicken.internal#filter chicken.internal#alist-cons chicken.internal#delete-duplicates chicken.internal#fifth chicken.internal#fourth chicken.internal#third chicken.internal#second chicken.internal#first chicken.internal#delete chicken.internal#concatenate chicken.internal#cons* chicken.internal#any chicken.internal#every chicken.internal#append-map chicken.internal#split-at chicken.internal#drop chicken.internal#take chicken.internal#span chicken.internal#partition)
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#partition
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#span
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#drop
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#split-at
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#append-map
|
|
o|inlining procedure: k1404
|
|
o|inlining procedure: k1404
|
|
o|inlining procedure: k1435
|
|
o|inlining procedure: k1435
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#cons*
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#concatenate
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#first
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#second
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#third
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#fourth
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#fifth
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#delete-duplicates
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#alist-cons
|
|
o|inlining procedure: k1652
|
|
o|inlining procedure: k1652
|
|
o|inlining procedure: k1644
|
|
o|inlining procedure: k1644
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#filter-map
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#remove
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#unzip1
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#last
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#list-index
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#lset-adjoin/eq?
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#lset-difference/eq?
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#lset-union/eq?
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#lset-intersection/eq?
|
|
o|inlining procedure: k2043
|
|
o|inlining procedure: k2043
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#lset<=/eq?
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#lset=/eq?
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#length+
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#find
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#find-tail
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#iota
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#make-list
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#posq
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#posv
|
|
o|inlining procedure: k2316
|
|
o|inlining procedure: k2316
|
|
o|substituted constant variable: a2358
|
|
o|inlining procedure: k2374
|
|
o|inlining procedure: k2374
|
|
o|inlining procedure: k2394
|
|
o|inlining procedure: k2394
|
|
o|inlining procedure: k2403
|
|
o|inlining procedure: k2418
|
|
o|inlining procedure: k2418
|
|
o|inlining procedure: k2403
|
|
o|inlining procedure: k2477
|
|
o|inlining procedure: k2477
|
|
o|inlining procedure: k2498
|
|
o|inlining procedure: k2498
|
|
o|inlining procedure: k2513
|
|
o|inlining procedure: k2513
|
|
o|inlining procedure: k2557
|
|
o|inlining procedure: k2557
|
|
o|contracted procedure: "(internal.scm:107) srfi?603"
|
|
o|inlining procedure: k2440
|
|
o|inlining procedure: k2452
|
|
o|inlining procedure: k2452
|
|
o|inlining procedure: k2440
|
|
o|inlining procedure: k2615
|
|
o|inlining procedure: k2615
|
|
o|inlining procedure: k2696
|
|
o|inlining procedure: k2696
|
|
o|inlining procedure: k2738
|
|
o|inlining procedure: k2750
|
|
o|inlining procedure: k2750
|
|
o|inlining procedure: k2738
|
|
o|inlining procedure: k2779
|
|
o|inlining procedure: k2779
|
|
o|inlining procedure: k2811
|
|
o|inlining procedure: k2811
|
|
o|inlining procedure: k2833
|
|
o|inlining procedure: k2833
|
|
o|inlining procedure: k2858
|
|
o|inlining procedure: k2858
|
|
o|inlining procedure: k2919
|
|
o|inlining procedure: k2919
|
|
o|inlining procedure: k2982
|
|
o|inlining procedure: k2982
|
|
o|inlining procedure: k2997
|
|
o|inlining procedure: k2997
|
|
o|inlining procedure: k3035
|
|
o|inlining procedure: k3035
|
|
o|inlining procedure: k3068
|
|
o|inlining procedure: k3068
|
|
o|replaced variables: 226
|
|
o|removed binding forms: 89
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#any
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#filter
|
|
o|removed side-effect free assignment to unused variable: chicken.internal#list-tabulate
|
|
o|contracted procedure: "(internal.scm:89) chicken.internal#every"
|
|
o|substituted constant variable: r24043114
|
|
o|substituted constant variable: r24533125
|
|
o|substituted constant variable: r24413126
|
|
o|substituted constant variable: r26973129
|
|
o|substituted constant variable: r28343141
|
|
o|substituted constant variable: r28343141
|
|
o|substituted constant variable: r28593152
|
|
o|replaced variables: 20
|
|
o|removed binding forms: 221
|
|
o|replaced variables: 3
|
|
o|removed binding forms: 25
|
|
o|removed binding forms: 3
|
|
o|contracted procedure: "(mini-srfi-1.scm:82) a2412"
|
|
o|removed binding forms: 1
|
|
o|replaced variables: 4
|
|
o|inlining procedure: k1419
|
|
o|removed binding forms: 2
|
|
o|replaced variables: 1
|
|
o|removed binding forms: 1
|
|
o|simplifications: ((let . 11) (if . 4) (##core#call . 109))
|
|
o| call simplifications:
|
|
o| ##sys#setslot 2
|
|
o| ##sys#size 4
|
|
o| chicken.fixnum#fx-
|
|
o| ##sys#check-list 2
|
|
o| ##sys#slot 20
|
|
o| scheme#set-car! 2
|
|
o| scheme#memq 2
|
|
o| scheme#caar 3
|
|
o| scheme#cons 5
|
|
o| scheme#pair? 4
|
|
o| scheme#cddr
|
|
o| scheme#eq? 7
|
|
o| scheme#cdr 4
|
|
o| scheme#cadr 2
|
|
o| scheme#list? 2
|
|
o| scheme#null? 11
|
|
o| scheme#car 5
|
|
o| scheme#symbol? 4
|
|
o| chicken.base#fixnum? 3
|
|
o| scheme#string-length
|
|
o| chicken.fixnum#fx>= 2
|
|
o| scheme#string-ref
|
|
o| scheme#char-alphabetic?
|
|
o| scheme#char-numeric?
|
|
o| scheme#not 8
|
|
o| chicken.fixnum#fx= 2
|
|
o| scheme#char->integer
|
|
o| chicken.fixnum#fx<
|
|
o| scheme#write-char 3
|
|
o| chicken.fixnum#fx+ 4
|
|
o|contracted procedure: k2307
|
|
o|contracted procedure: k2319
|
|
o|contracted procedure: k2325
|
|
o|contracted procedure: k2335
|
|
o|contracted procedure: k2341
|
|
o|contracted procedure: k2359
|
|
o|contracted procedure: k2385
|
|
o|contracted procedure: k2368
|
|
o|contracted procedure: k2381
|
|
o|contracted procedure: k2371
|
|
o|contracted procedure: k2391
|
|
o|contracted procedure: k2400
|
|
o|contracted procedure: k2425
|
|
o|contracted procedure: k2406
|
|
o|contracted procedure: k1401
|
|
o|contracted procedure: k1423
|
|
o|contracted procedure: k2415
|
|
o|inlining procedure: k1410
|
|
o|contracted procedure: k1419
|
|
o|inlining procedure: k1410
|
|
o|contracted procedure: k2480
|
|
o|contracted procedure: k2489
|
|
o|contracted procedure: k2501
|
|
o|contracted procedure: k2507
|
|
o|contracted procedure: k2586
|
|
o|contracted procedure: k2516
|
|
o|contracted procedure: k2540
|
|
o|contracted procedure: k2547
|
|
o|contracted procedure: k2560
|
|
o|contracted procedure: k2570
|
|
o|contracted procedure: k2471
|
|
o|contracted procedure: k2443
|
|
o|contracted procedure: k2467
|
|
o|contracted procedure: k2449
|
|
o|contracted procedure: k2455
|
|
o|contracted procedure: k2612
|
|
o|contracted procedure: k2637
|
|
o|contracted procedure: k2633
|
|
o|contracted procedure: k2657
|
|
o|contracted procedure: k2653
|
|
o|contracted procedure: k2674
|
|
o|contracted procedure: k2660
|
|
o|contracted procedure: k2667
|
|
o|contracted procedure: k2721
|
|
o|contracted procedure: k2680
|
|
o|contracted procedure: k2699
|
|
o|contracted procedure: k2702
|
|
o|contracted procedure: k2709
|
|
o|contracted procedure: k2802
|
|
o|contracted procedure: k2730
|
|
o|contracted procedure: k2767
|
|
o|contracted procedure: k2741
|
|
o|contracted procedure: k2763
|
|
o|contracted procedure: k2753
|
|
o|contracted procedure: k2770
|
|
o|contracted procedure: k2782
|
|
o|contracted procedure: k2792
|
|
o|contracted procedure: k2796
|
|
o|contracted procedure: k2814
|
|
o|contracted procedure: k2817
|
|
o|contracted procedure: k2827
|
|
o|contracted procedure: k2823
|
|
o|contracted procedure: k2839
|
|
o|contracted procedure: k2833
|
|
o|contracted procedure: k2852
|
|
o|contracted procedure: k2893
|
|
o|contracted procedure: k2861
|
|
o|contracted procedure: k2889
|
|
o|contracted procedure: k2885
|
|
o|contracted procedure: k2867
|
|
o|contracted procedure: k2874
|
|
o|contracted procedure: k2881
|
|
o|contracted procedure: k2901
|
|
o|contracted procedure: k2910
|
|
o|contracted procedure: k2922
|
|
o|contracted procedure: k2933
|
|
o|contracted procedure: k2929
|
|
o|contracted procedure: k2961
|
|
o|contracted procedure: k2957
|
|
o|contracted procedure: k2939
|
|
o|contracted procedure: k2946
|
|
o|contracted procedure: k2953
|
|
o|contracted procedure: k2965
|
|
o|contracted procedure: k3000
|
|
o|contracted procedure: k3009
|
|
o|contracted procedure: k3013
|
|
o|contracted procedure: k3016
|
|
o|contracted procedure: k3019
|
|
o|contracted procedure: k3029
|
|
o|contracted procedure: k3038
|
|
o|contracted procedure: k3048
|
|
o|contracted procedure: k3052
|
|
o|contracted procedure: k3062
|
|
o|contracted procedure: k3071
|
|
o|contracted procedure: k3078
|
|
o|contracted procedure: k3082
|
|
o|contracted procedure: k3090
|
|
o|simplifications: ((let . 40))
|
|
o|removed binding forms: 95
|
|
(o x)|known list op on rest arg sublist: ##core#rest-null? rest646648 0
|
|
(o x)|known list op on rest arg sublist: ##core#rest-car rest646648 0
|
|
(o x)|known list op on rest arg sublist: ##core#rest-null? rest665667 0
|
|
(o x)|known list op on rest arg sublist: ##core#rest-car rest665667 0
|
|
(o x)|known list op on rest arg sublist: ##core#rest-null? rest706707 0
|
|
(o x)|known list op on rest arg sublist: ##core#rest-car rest706707 0
|
|
o|simplifications: ((let . 2))
|
|
o|removed binding forms: 1
|
|
o|direct leaf routine/allocation: loop204 0
|
|
o|direct leaf routine/allocation: chicken.internal#hash-symbol 0
|
|
o|direct leaf routine/allocation: loop716 0
|
|
o|converted assignments to bindings: (loop204)
|
|
o|contracted procedure: "(internal.scm:183) k2897"
|
|
o|converted assignments to bindings: (loop716)
|
|
o|contracted procedure: "(internal.scm:190) k2907"
|
|
o|simplifications: ((let . 2))
|
|
o|removed binding forms: 2
|
|
o|customizable procedures: (loop766 g747754 for-each-loop746757 doloop741742 loop726 g677684 for-each-loop676687 loop655 k2621 loop628 k2525 library-part->string604 doloop614615 fail602 k2338 doloop572573)
|
|
o|calls to known targets: 36
|
|
o|identified direct recursive calls: f_1399 2
|
|
o|identified direct recursive calls: f_2694 1
|
|
o|unused rest argument: rest646648 f_2678
|
|
o|unused rest argument: rest665667 f_2728
|
|
o|unused rest argument: rest706707 f_2831
|
|
o|identified direct recursive calls: f_2856 1
|
|
o|identified direct recursive calls: f_2917 1
|
|
o|fast box initializations: 11
|
|
o|fast global references: 2
|
|
o|fast global assignments: 1
|
|
o|dropping unused closure argument: f_1399
|
|
*/
|
|
/* end of file */
|