src/magplot/magplot.c

   1 /* Generated from magplot.scm by the CHICKEN compiler
   2    http://www.call-with-current-continuation.org
   3    2009-10-10 18:49
   4    Version 3.2.7 - linux-unix-gnu-x86   [ manyargs dload ptables applyhook hostpcre ]
   5    compiled 2008-11-05 on debian (Linux)
   6    command line: magplot.scm
   7    used units: library eval data_structures ports extras srfi_69 srfi_1 srfi_4 posix srfi_18 srfi_69
   8 */
   9
  10 #include "chicken.h"
  11
  12 static C_PTABLE_ENTRY *create_ptable(void);
  13 C_noret_decl(C_library_toplevel)
  14 C_externimport void C_ccall C_library_toplevel(C_word c,C_word d,C_word k) C_noret;
  15 C_noret_decl(C_eval_toplevel)
  16 C_externimport void C_ccall C_eval_toplevel(C_word c,C_word d,C_word k) C_noret;
  17 C_noret_decl(C_data_structures_toplevel)
  18 C_externimport void C_ccall C_data_structures_toplevel(C_word c,C_word d,C_word k) C_noret;
  19 C_noret_decl(C_ports_toplevel)
  20 C_externimport void C_ccall C_ports_toplevel(C_word c,C_word d,C_word k) C_noret;
  21 C_noret_decl(C_extras_toplevel)
  22 C_externimport void C_ccall C_extras_toplevel(C_word c,C_word d,C_word k) C_noret;
  23 C_noret_decl(C_srfi_69_toplevel)
  24 C_externimport void C_ccall C_srfi_69_toplevel(C_word c,C_word d,C_word k) C_noret;
  25 C_noret_decl(C_srfi_1_toplevel)
  26 C_externimport void C_ccall C_srfi_1_toplevel(C_word c,C_word d,C_word k) C_noret;
  27 C_noret_decl(C_srfi_4_toplevel)
  28 C_externimport void C_ccall C_srfi_4_toplevel(C_word c,C_word d,C_word k) C_noret;
  29 C_noret_decl(C_posix_toplevel)
  30 C_externimport void C_ccall C_posix_toplevel(C_word c,C_word d,C_word k) C_noret;
  31 C_noret_decl(C_srfi_18_toplevel)
  32 C_externimport void C_ccall C_srfi_18_toplevel(C_word c,C_word d,C_word k) C_noret;
  33 C_noret_decl(C_srfi_69_toplevel)
  34 C_externimport void C_ccall C_srfi_69_toplevel(C_word c,C_word d,C_word k) C_noret;
  35
  36 static C_TLS C_word lf[248];
  37 static double C_possibly_force_alignment;
  38 static C_char C_TLS li0[] C_aligned={C_lihdr(0,0,19),40,115,113,117,97,114,101,32,120,46,49,54,50,57,49,54,51,48,41,0,0,0,0,0};
  39 static C_char C_TLS li1[] C_aligned={C_lihdr(0,0,17),40,99,117,98,101,32,120,46,49,54,51,49,49,54,51,50,41,0,0,0,0,0,0,0};
  40 static C_char C_TLS li2[] C_aligned={C_lihdr(0,0,24),40,109,97,103,110,105,116,117,100,101,32,118,101,99,46,49,54,51,51,49,54,51,52,41};
  41 static C_char C_TLS li3[] C_aligned={C_lihdr(0,0,18),40,97,50,50,48,53,32,120,46,49,54,51,55,49,54,52,48,41,0,0,0,0,0,0};
  42 static C_char C_TLS li4[] C_aligned={C_lihdr(0,0,24),40,110,111,114,109,97,108,105,122,101,32,118,101,99,46,49,54,51,53,49,54,51,56,41};
  43 static C_char C_TLS li5[] C_aligned={C_lihdr(0,0,21),40,100,111,116,32,46,32,118,101,99,115,46,49,54,52,49,49,54,52,50,41,0,0,0};
  44 static C_char C_TLS li6[] C_aligned={C_lihdr(0,0,20),40,100,101,103,50,114,97,100,32,120,46,49,54,52,51,49,54,52,52,41,0,0,0,0};
  45 static C_char C_TLS li7[] C_aligned={C_lihdr(0,0,69),40,116,114,105,97,110,103,108,101,103,114,105,100,45,97,100,100,112,111,105,110,116,32,120,46,49,54,52,53,49,54,53,48,32,121,46,49,54,52,54,49,54,53,49,32,122,46,49,54,52,55,49,54,53,50,32,109,97,103,46,49,54,52,56,49,54,53,51,41,0,0,0};
  46 static C_char C_TLS li8[] C_aligned={C_lihdr(0,0,18),40,97,50,50,53,55,32,112,46,49,54,53,53,49,54,53,55,41,0,0,0,0,0,0};
  47 static C_char C_TLS li9[] C_aligned={C_lihdr(0,0,19),40,114,101,99,97,108,99,45,99,111,108,111,114,115,112,97,99,101,41,0,0,0,0,0};
  48 static C_char C_TLS li10[] C_aligned={C_lihdr(0,0,18),40,97,50,50,57,56,32,105,46,49,54,54,51,49,54,54,55,41,0,0,0,0,0,0};
  49 static C_char C_TLS li11[] C_aligned={C_lihdr(0,0,25),40,99,111,108,111,114,115,112,97,99,101,32,109,97,103,46,49,54,54,48,49,54,54,52,41,0,0,0,0,0,0,0};
  50 static C_char C_TLS li12[] C_aligned={C_lihdr(0,0,26),40,109,97,107,101,45,103,108,45,112,111,105,110,116,32,112,46,49,54,54,57,49,54,55,48,41,0,0,0,0,0,0};
  51 static C_char C_TLS li13[] C_aligned={C_lihdr(0,0,22),40,97,50,51,55,55,32,112,111,105,110,116,46,49,54,55,50,49,54,55,51,41,0,0};
  52 static C_char C_TLS li14[] C_aligned={C_lihdr(0,0,19),40,116,114,105,97,110,103,108,101,103,114,105,100,45,100,114,97,119,41,0,0,0,0,0};
  53 static C_char C_TLS li15[] C_aligned={C_lihdr(0,0,37),40,110,101,119,45,112,111,105,110,116,32,112,111,115,46,49,54,55,53,49,54,55,55,32,109,97,103,46,49,54,55,54,49,54,55,56,41,0,0,0};
  54 static C_char C_TLS li16[] C_aligned={C_lihdr(0,0,27),40,100,114,97,119,45,112,111,105,110,116,32,112,111,105,110,116,46,49,54,55,57,49,54,56,49,41,0,0,0,0,0};
  55 static C_char C_TLS li17[] C_aligned={C_lihdr(0,0,25),40,97,50,52,51,55,32,116,114,105,97,110,103,108,101,46,49,55,48,57,49,55,49,51,41,0,0,0,0,0,0,0};
  56 static C_char C_TLS li18[] C_aligned={C_lihdr(0,0,35),40,100,114,97,119,45,116,114,105,97,110,103,108,101,115,32,116,114,105,97,110,103,108,101,115,46,49,55,48,54,49,55,49,48,41,0,0,0,0,0};
  57 static C_char C_TLS li19[] C_aligned={C_lihdr(0,0,59),40,82,111,116,97,116,101,65,102,116,101,114,32,97,110,103,46,49,55,49,56,49,55,50,51,32,120,46,49,55,49,57,49,55,50,52,32,121,46,49,55,50,48,49,55,50,53,32,122,46,49,55,50,49,49,55,50,54,41,0,0,0,0,0};
  58 static C_char C_TLS li20[] C_aligned={C_lihdr(0,0,31),40,114,101,115,104,97,112,101,32,119,46,49,55,51,49,49,55,51,52,32,104,46,49,55,51,50,49,55,51,53,41,0};
  59 static C_char C_TLS li21[] C_aligned={C_lihdr(0,0,24),40,100,111,108,111,111,112,46,49,55,52,54,32,120,46,49,55,52,55,49,55,53,50,41};
  60 static C_char C_TLS li22[] C_aligned={C_lihdr(0,0,54),40,112,111,115,45,100,114,97,119,32,112,111,115,46,49,55,52,51,49,55,52,56,32,114,97,100,105,117,115,46,49,55,52,52,49,55,52,57,32,99,111,108,111,114,46,49,55,52,53,49,55,53,48,41,0,0};
  61 static C_char C_TLS li23[] C_aligned={C_lihdr(0,0,12),40,103,108,45,100,105,115,112,108,97,121,41,0,0,0,0};
  62 static C_char C_TLS li24[] C_aligned={C_lihdr(0,0,32),40,97,50,54,54,49,32,101,108,46,49,55,55,51,49,55,55,54,32,97,99,99,46,49,55,55,52,49,55,55,55,41};
  63 static C_char C_TLS li25[] C_aligned={C_lihdr(0,0,23),40,110,111,110,101,45,102,97,108,115,101,32,108,46,49,55,55,50,49,55,55,53,41,0};
  64 static C_char C_TLS li26[] C_aligned={C_lihdr(0,0,30),40,112,97,114,115,101,45,109,97,103,45,108,105,110,101,32,108,105,110,101,46,49,55,55,56,49,55,56,49,41,0,0};
  65 static C_char C_TLS li27[] C_aligned={C_lihdr(0,0,57),40,99,111,110,118,101,114,116,45,112,111,115,105,116,105,111,110,32,108,97,116,46,49,55,56,55,49,55,57,52,32,108,111,110,46,49,55,56,56,49,55,57,53,32,97,108,116,46,49,55,56,57,49,55,57,54,41,0,0,0,0,0,0,0};
  66 static C_char C_TLS li28[] C_aligned={C_lihdr(0,0,31),40,99,111,110,118,101,114,116,45,100,101,103,46,49,56,49,50,32,118,97,108,46,49,56,49,51,49,56,50,54,41,0};
  67 static C_char C_TLS li29[] C_aligned={C_lihdr(0,0,30),40,112,97,114,115,101,45,103,112,115,45,108,105,110,101,32,108,105,110,101,46,49,56,48,49,49,56,49,52,41,0,0};
  68 static C_char C_TLS li30[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,46,49,56,51,53,41,0,0,0,0,0};
  69 static C_char C_TLS li31[] C_aligned={C_lihdr(0,0,22),40,102,95,50,57,56,54,32,112,111,114,116,46,49,56,51,52,49,56,51,57,41,0,0};
  70 static C_char C_TLS li32[] C_aligned={C_lihdr(0,0,18),40,109,97,107,101,45,108,105,110,101,45,114,101,97,100,101,114,41,0,0,0,0,0,0};
  71 static C_char C_TLS li33[] C_aligned={C_lihdr(0,0,20),40,101,97,99,104,45,103,112,115,45,108,105,110,101,46,49,56,53,48,41,0,0,0,0};
  72 static C_char C_TLS li34[] C_aligned={C_lihdr(0,0,20),40,101,97,99,104,45,109,97,103,45,108,105,110,101,46,49,56,52,56,41,0,0,0,0};
  73 static C_char C_TLS li35[] C_aligned={C_lihdr(0,0,6),40,105,100,108,101,41,0,0};
  74 static C_char C_TLS li36[] C_aligned={C_lihdr(0,0,38),40,97,116,116,114,45,115,101,116,33,32,110,97,109,101,46,49,56,54,52,49,56,54,54,32,118,97,108,46,49,56,54,53,49,56,54,55,41,0,0};
  75 static C_char C_TLS li37[] C_aligned={C_lihdr(0,0,24),40,97,116,116,114,45,103,101,116,32,110,97,109,101,46,49,56,54,56,49,56,54,57,41};
  76 static C_char C_TLS li38[] C_aligned={C_lihdr(0,0,40),40,103,108,117,116,45,72,97,115,77,111,100,105,102,105,101,114,115,32,46,32,109,111,100,105,102,105,101,114,115,46,49,56,55,48,49,56,55,50,41};
  77 static C_char C_TLS li39[] C_aligned={C_lihdr(0,0,45),40,107,101,121,98,111,97,114,100,32,107,101,121,46,49,56,55,52,49,56,55,56,32,120,46,49,56,55,53,49,56,55,57,32,121,46,49,56,55,54,49,56,56,48,41,0,0,0};
  78 static C_char C_TLS li40[] C_aligned={C_lihdr(0,0,44),40,115,112,101,99,105,97,108,32,107,101,121,46,49,56,56,52,49,56,56,57,32,120,46,49,56,56,53,49,56,57,48,32,121,46,49,56,56,54,49,56,57,49,41,0,0,0,0};
  79 static C_char C_TLS li41[] C_aligned={C_lihdr(0,0,7),40,117,115,97,103,101,41,0};
  80 static C_char C_TLS li42[] C_aligned={C_lihdr(0,0,7),40,97,51,52,51,52,41,0};
  81 static C_char C_TLS li43[] C_aligned={C_lihdr(0,0,25),40,114,101,112,111,114,116,100,97,116,97,32,112,111,115,46,49,57,50,48,49,57,50,53,41,0,0,0,0,0,0,0};
  82 static C_char C_TLS li44[] C_aligned={C_lihdr(0,0,11),40,108,111,97,100,45,100,97,116,97,41,0,0,0,0,0};
  83 static C_char C_TLS li45[] C_aligned={C_lihdr(0,0,51),40,104,97,110,100,108,101,45,111,112,101,110,45,102,105,108,101,32,102,105,108,101,110,97,109,101,46,49,57,52,49,49,57,52,51,32,116,104,117,110,107,46,49,57,52,50,49,57,52,52,41,0,0,0,0,0};
  84 static C_char C_TLS li46[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,46,50,48,52,52,41,0,0,0,0,0};
  85 static C_char C_TLS li47[] C_aligned={C_lihdr(0,0,18),40,97,51,53,57,53,32,110,46,49,57,56,54,50,48,52,50,41,0,0,0,0,0,0};
  86 static C_char C_TLS li48[] C_aligned={C_lihdr(0,0,7),40,97,51,54,48,49,41,0};
  87 static C_char C_TLS li49[] C_aligned={C_lihdr(0,0,82),40,97,51,53,53,52,32,111,112,116,46,49,57,56,49,50,48,51,54,32,110,97,109,101,46,49,57,56,50,50,48,51,55,32,97,114,103,46,49,57,56,51,50,48,51,56,32,111,112,116,105,111,110,115,46,49,57,56,52,50,48,51,57,32,111,112,101,114,97,110,100,115,46,49,57,56,53,50,48,52,48,41,0,0,0,0,0,0};
  88 static C_char C_TLS li50[] C_aligned={C_lihdr(0,0,18),40,97,51,54,54,50,32,110,46,49,57,56,48,50,48,51,51,41,0,0,0,0,0,0};
  89 static C_char C_TLS li51[] C_aligned={C_lihdr(0,0,7),40,97,51,54,54,56,41,0};
  90 static C_char C_TLS li52[] C_aligned={C_lihdr(0,0,82),40,97,51,54,49,56,32,111,112,116,46,49,57,55,53,50,48,50,55,32,110,97,109,101,46,49,57,55,54,50,48,50,56,32,97,114,103,46,49,57,55,55,50,48,50,57,32,111,112,116,105,111,110,115,46,49,57,55,56,50,48,51,48,32,111,112,101,114,97,110,100,115,46,49,57,55,57,50,48,51,49,41,0,0,0,0,0,0};
  91 static C_char C_TLS li53[] C_aligned={C_lihdr(0,0,18),40,97,51,55,50,56,32,110,46,49,57,55,52,50,48,50,53,41,0,0,0,0,0,0};
  92 static C_char C_TLS li54[] C_aligned={C_lihdr(0,0,82),40,97,51,54,56,57,32,111,112,116,46,49,57,54,57,50,48,49,57,32,110,97,109,101,46,49,57,55,48,50,48,50,48,32,97,114,103,46,49,57,55,49,50,48,50,49,32,111,112,116,105,111,110,115,46,49,57,55,50,50,48,50,50,32,111,112,101,114,97,110,100,115,46,49,57,55,51,50,48,50,51,41,0,0,0,0,0,0};
  93 static C_char C_TLS li55[] C_aligned={C_lihdr(0,0,18),40,97,51,55,56,51,32,110,46,49,57,54,56,50,48,49,55,41,0,0,0,0,0,0};
  94 static C_char C_TLS li56[] C_aligned={C_lihdr(0,0,82),40,97,51,55,52,52,32,111,112,116,46,49,57,54,51,50,48,49,49,32,110,97,109,101,46,49,57,54,52,50,48,49,50,32,97,114,103,46,49,57,54,53,50,48,49,51,32,111,112,116,105,111,110,115,46,49,57,54,54,50,48,49,52,32,111,112,101,114,97,110,100,115,46,49,57,54,55,50,48,49,53,41,0,0,0,0,0,0};
  95 static C_char C_TLS li57[] C_aligned={C_lihdr(0,0,18),40,97,51,56,52,48,32,110,46,49,57,54,50,50,48,48,57,41,0,0,0,0,0,0};
  96 static C_char C_TLS li58[] C_aligned={C_lihdr(0,0,7),40,97,51,56,53,54,41,0};
  97 static C_char C_TLS li59[] C_aligned={C_lihdr(0,0,82),40,97,51,55,57,57,32,111,112,116,46,49,57,53,55,50,48,48,51,32,110,97,109,101,46,49,57,53,56,50,48,48,52,32,97,114,103,46,49,57,53,57,50,48,48,53,32,111,112,116,105,111,110,115,46,49,57,54,48,50,48,48,54,32,111,112,101,114,97,110,100,115,46,49,57,54,49,50,48,48,55,41,0,0,0,0,0,0};
  98 static C_char C_TLS li60[] C_aligned={C_lihdr(0,0,18),40,97,51,57,49,52,32,110,46,49,57,53,54,50,48,48,49,41,0,0,0,0,0,0};
  99 static C_char C_TLS li61[] C_aligned={C_lihdr(0,0,7),40,97,51,57,50,48,41,0};
 100 static C_char C_TLS li62[] C_aligned={C_lihdr(0,0,82),40,97,51,56,55,51,32,111,112,116,46,49,57,53,49,49,57,57,53,32,110,97,109,101,46,49,57,53,50,49,57,57,54,32,97,114,103,46,49,57,53,51,49,57,57,55,32,111,112,116,105,111,110,115,46,49,57,53,52,49,57,57,56,32,111,112,101,114,97,110,100,115,46,49,57,53,53,49,57,57,57,41,0,0,0,0,0,0};
 101 static C_char C_TLS li63[] C_aligned={C_lihdr(0,0,18),40,97,51,57,57,48,32,110,46,49,57,53,48,49,57,57,51,41,0,0,0,0,0,0};
 102 static C_char C_TLS li64[] C_aligned={C_lihdr(0,0,82),40,97,51,57,52,57,32,111,112,116,46,49,57,52,53,49,57,56,55,32,110,97,109,101,46,49,57,52,54,49,57,56,56,32,97,114,103,46,49,57,52,55,49,57,56,57,32,111,112,116,105,111,110,115,46,49,57,52,56,49,57,57,48,32,111,112,101,114,97,110,100,115,46,49,57,52,57,49,57,57,49,41,0,0,0,0,0,0};
 103 static C_char C_TLS li65[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0};
 104
 105
 106 C_noret_decl(C_toplevel)
 107 C_externexport void C_ccall C_toplevel(C_word c,C_word t0,C_word t1) C_noret;
 108 C_noret_decl(f_2130)
 109 static void C_ccall f_2130(C_word c,C_word t0,C_word t1) C_noret;
 110 C_noret_decl(f_2133)
 111 static void C_ccall f_2133(C_word c,C_word t0,C_word t1) C_noret;
 112 C_noret_decl(f_2136)
 113 static void C_ccall f_2136(C_word c,C_word t0,C_word t1) C_noret;
 114 C_noret_decl(f_2139)
 115 static void C_ccall f_2139(C_word c,C_word t0,C_word t1) C_noret;
 116 C_noret_decl(f_2142)
 117 static void C_ccall f_2142(C_word c,C_word t0,C_word t1) C_noret;
 118 C_noret_decl(f_2145)
 119 static void C_ccall f_2145(C_word c,C_word t0,C_word t1) C_noret;
 120 C_noret_decl(f_2148)
 121 static void C_ccall f_2148(C_word c,C_word t0,C_word t1) C_noret;
 122 C_noret_decl(f_2151)
 123 static void C_ccall f_2151(C_word c,C_word t0,C_word t1) C_noret;
 124 C_noret_decl(f_2154)
 125 static void C_ccall f_2154(C_word c,C_word t0,C_word t1) C_noret;
 126 C_noret_decl(f_2157)
 127 static void C_ccall f_2157(C_word c,C_word t0,C_word t1) C_noret;
 128 C_noret_decl(f_2160)
 129 static void C_ccall f_2160(C_word c,C_word t0,C_word t1) C_noret;
 130 C_noret_decl(f_2163)
 131 static void C_ccall f_2163(C_word c,C_word t0,C_word t1) C_noret;
 132 C_noret_decl(f_2166)
 133 static void C_ccall f_2166(C_word c,C_word t0,C_word t1) C_noret;
 134 C_noret_decl(f_2169)
 135 static void C_ccall f_2169(C_word c,C_word t0,C_word t1) C_noret;
 136 C_noret_decl(f_3033)
 137 static void C_ccall f_3033(C_word c,C_word t0,C_word t1) C_noret;
 138 C_noret_decl(f_3036)
 139 static void C_ccall f_3036(C_word c,C_word t0,C_word t1) C_noret;
 140 C_noret_decl(f_3099)
 141 static void C_ccall f_3099(C_word c,C_word t0,C_word t1) C_noret;
 142 C_noret_decl(f_3114)
 143 static void C_ccall f_3114(C_word c,C_word t0,C_word t1) C_noret;
 144 C_noret_decl(f_3117)
 145 static void C_ccall f_3117(C_word c,C_word t0,C_word t1) C_noret;
 146 C_noret_decl(f_3120)
 147 static void C_ccall f_3120(C_word c,C_word t0,C_word t1) C_noret;
 148 C_noret_decl(f_4005)
 149 static void C_ccall f_4005(C_word c,C_word t0,C_word t1) C_noret;
 150 C_noret_decl(f_3338)
 151 static void C_ccall f_3338(C_word c,C_word t0,C_word t1) C_noret;
 152 C_noret_decl(f_3341)
 153 static void C_ccall f_3341(C_word c,C_word t0,C_word t1) C_noret;
 154 C_noret_decl(f_3344)
 155 static void C_ccall f_3344(C_word c,C_word t0,C_word t1) C_noret;
 156 C_noret_decl(f_3347)
 157 static void C_ccall f_3347(C_word c,C_word t0,C_word t1) C_noret;
 158 C_noret_decl(f_3350)
 159 static void C_ccall f_3350(C_word c,C_word t0,C_word t1) C_noret;
 160 C_noret_decl(f_3353)
 161 static void C_ccall f_3353(C_word c,C_word t0,C_word t1) C_noret;
 162 C_noret_decl(f_3356)
 163 static void C_ccall f_3356(C_word c,C_word t0,C_word t1) C_noret;
 164 C_noret_decl(f_3359)
 165 static void C_ccall f_3359(C_word c,C_word t0,C_word t1) C_noret;
 166 C_noret_decl(f_3362)
 167 static void C_ccall f_3362(C_word c,C_word t0,C_word t1) C_noret;
 168 C_noret_decl(f_3950)
 169 static void C_ccall f_3950(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 170 C_noret_decl(f_3978)
 171 static void C_ccall f_3978(C_word c,C_word t0,C_word t1) C_noret;
 172 C_noret_decl(f_3991)
 173 static void C_ccall f_3991(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 174 C_noret_decl(f_3989)
 175 static void C_ccall f_3989(C_word c,C_word t0,C_word t1) C_noret;
 176 C_noret_decl(f_3985)
 177 static void C_ccall f_3985(C_word c,C_word t0,C_word t1) C_noret;
 178 C_noret_decl(f_3967)
 179 static void C_ccall f_3967(C_word c,C_word t0,C_word t1) C_noret;
 180 C_noret_decl(f_3975)
 181 static void C_ccall f_3975(C_word c,C_word t0,C_word t1) C_noret;
 182 C_noret_decl(f_3960)
 183 static void C_ccall f_3960(C_word c,C_word t0,C_word t1) C_noret;
 184 C_noret_decl(f_3948)
 185 static void C_ccall f_3948(C_word c,C_word t0,C_word t1) C_noret;
 186 C_noret_decl(f_3525)
 187 static void C_ccall f_3525(C_word c,C_word t0,C_word t1) C_noret;
 188 C_noret_decl(f_3874)
 189 static void C_ccall f_3874(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 190 C_noret_decl(f_3921)
 191 static void C_ccall f_3921(C_word c,C_word t0,C_word t1) C_noret;
 192 C_noret_decl(f_3929)
 193 static void C_ccall f_3929(C_word c,C_word t0,C_word t1) C_noret;
 194 C_noret_decl(f_3902)
 195 static void C_ccall f_3902(C_word c,C_word t0,C_word t1) C_noret;
 196 C_noret_decl(f_3915)
 197 static void C_ccall f_3915(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 198 C_noret_decl(f_3913)
 199 static void C_ccall f_3913(C_word c,C_word t0,C_word t1) C_noret;
 200 C_noret_decl(f_3909)
 201 static void C_ccall f_3909(C_word c,C_word t0,C_word t1) C_noret;
 202 C_noret_decl(f_3891)
 203 static void C_ccall f_3891(C_word c,C_word t0,C_word t1) C_noret;
 204 C_noret_decl(f_3899)
 205 static void C_ccall f_3899(C_word c,C_word t0,C_word t1) C_noret;
 206 C_noret_decl(f_3884)
 207 static void C_ccall f_3884(C_word c,C_word t0,C_word t1) C_noret;
 208 C_noret_decl(f_3872)
 209 static void C_ccall f_3872(C_word c,C_word t0,C_word t1) C_noret;
 210 C_noret_decl(f_3529)
 211 static void C_ccall f_3529(C_word c,C_word t0,C_word t1) C_noret;
 212 C_noret_decl(f_3800)
 213 static void C_ccall f_3800(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 214 C_noret_decl(f_3857)
 215 static void C_ccall f_3857(C_word c,C_word t0,C_word t1) C_noret;
 216 C_noret_decl(f_3862)
 217 static void C_ccall f_3862(C_word c,C_word t0,C_word t1) C_noret;
 218 C_noret_decl(f_3852)
 219 static void C_ccall f_3852(C_word c,C_word t0,C_word t1) C_noret;
 220 C_noret_decl(f_3828)
 221 static void C_ccall f_3828(C_word c,C_word t0,C_word t1) C_noret;
 222 C_noret_decl(f_3841)
 223 static void C_ccall f_3841(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 224 C_noret_decl(f_3839)
 225 static void C_ccall f_3839(C_word c,C_word t0,C_word t1) C_noret;
 226 C_noret_decl(f_3835)
 227 static void C_ccall f_3835(C_word c,C_word t0,C_word t1) C_noret;
 228 C_noret_decl(f_3817)
 229 static void C_ccall f_3817(C_word c,C_word t0,C_word t1) C_noret;
 230 C_noret_decl(f_3825)
 231 static void C_ccall f_3825(C_word c,C_word t0,C_word t1) C_noret;
 232 C_noret_decl(f_3810)
 233 static void C_ccall f_3810(C_word c,C_word t0,C_word t1) C_noret;
 234 C_noret_decl(f_3798)
 235 static void C_ccall f_3798(C_word c,C_word t0,C_word t1) C_noret;
 236 C_noret_decl(f_3533)
 237 static void C_ccall f_3533(C_word c,C_word t0,C_word t1) C_noret;
 238 C_noret_decl(f_3745)
 239 static void C_ccall f_3745(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 240 C_noret_decl(f_3784)
 241 static void C_ccall f_3784(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 242 C_noret_decl(f_3782)
 243 static void C_ccall f_3782(C_word c,C_word t0,C_word t1) C_noret;
 244 C_noret_decl(f_3778)
 245 static void C_ccall f_3778(C_word c,C_word t0,C_word t1) C_noret;
 246 C_noret_decl(f_3762)
 247 static void C_ccall f_3762(C_word c,C_word t0,C_word t1) C_noret;
 248 C_noret_decl(f_3770)
 249 static void C_ccall f_3770(C_word c,C_word t0,C_word t1) C_noret;
 250 C_noret_decl(f_3755)
 251 static void C_ccall f_3755(C_word c,C_word t0,C_word t1) C_noret;
 252 C_noret_decl(f_3743)
 253 static void C_ccall f_3743(C_word c,C_word t0,C_word t1) C_noret;
 254 C_noret_decl(f_3537)
 255 static void C_ccall f_3537(C_word c,C_word t0,C_word t1) C_noret;
 256 C_noret_decl(f_3690)
 257 static void C_ccall f_3690(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 258 C_noret_decl(f_3729)
 259 static void C_ccall f_3729(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 260 C_noret_decl(f_3727)
 261 static void C_ccall f_3727(C_word c,C_word t0,C_word t1) C_noret;
 262 C_noret_decl(f_3723)
 263 static void C_ccall f_3723(C_word c,C_word t0,C_word t1) C_noret;
 264 C_noret_decl(f_3707)
 265 static void C_ccall f_3707(C_word c,C_word t0,C_word t1) C_noret;
 266 C_noret_decl(f_3715)
 267 static void C_ccall f_3715(C_word c,C_word t0,C_word t1) C_noret;
 268 C_noret_decl(f_3700)
 269 static void C_ccall f_3700(C_word c,C_word t0,C_word t1) C_noret;
 270 C_noret_decl(f_3688)
 271 static void C_ccall f_3688(C_word c,C_word t0,C_word t1) C_noret;
 272 C_noret_decl(f_3541)
 273 static void C_ccall f_3541(C_word c,C_word t0,C_word t1) C_noret;
 274 C_noret_decl(f_3619)
 275 static void C_ccall f_3619(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 276 C_noret_decl(f_3678)
 277 static void C_ccall f_3678(C_word c,C_word t0,C_word t1) C_noret;
 278 C_noret_decl(f_3647)
 279 static void C_ccall f_3647(C_word c,C_word t0,C_word t1) C_noret;
 280 C_noret_decl(f_3669)
 281 static void C_ccall f_3669(C_word c,C_word t0,C_word t1) C_noret;
 282 C_noret_decl(f_3674)
 283 static void C_ccall f_3674(C_word c,C_word t0,C_word t1) C_noret;
 284 C_noret_decl(f_3650)
 285 static void C_ccall f_3650(C_word c,C_word t0,C_word t1) C_noret;
 286 C_noret_decl(f_3663)
 287 static void C_ccall f_3663(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 288 C_noret_decl(f_3661)
 289 static void C_ccall f_3661(C_word c,C_word t0,C_word t1) C_noret;
 290 C_noret_decl(f_3657)
 291 static void C_ccall f_3657(C_word c,C_word t0,C_word t1) C_noret;
 292 C_noret_decl(f_3636)
 293 static void C_ccall f_3636(C_word c,C_word t0,C_word t1) C_noret;
 294 C_noret_decl(f_3644)
 295 static void C_ccall f_3644(C_word c,C_word t0,C_word t1) C_noret;
 296 C_noret_decl(f_3629)
 297 static void C_ccall f_3629(C_word c,C_word t0,C_word t1) C_noret;
 298 C_noret_decl(f_3617)
 299 static void C_ccall f_3617(C_word c,C_word t0,C_word t1) C_noret;
 300 C_noret_decl(f_3545)
 301 static void C_ccall f_3545(C_word c,C_word t0,C_word t1) C_noret;
 302 C_noret_decl(f_3555)
 303 static void C_ccall f_3555(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6) C_noret;
 304 C_noret_decl(f_3602)
 305 static void C_ccall f_3602(C_word c,C_word t0,C_word t1) C_noret;
 306 C_noret_decl(f_3607)
 307 static void C_ccall f_3607(C_word c,C_word t0,C_word t1) C_noret;
 308 C_noret_decl(f_3583)
 309 static void C_ccall f_3583(C_word c,C_word t0,C_word t1) C_noret;
 310 C_noret_decl(f_3596)
 311 static void C_ccall f_3596(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 312 C_noret_decl(f_3594)
 313 static void C_ccall f_3594(C_word c,C_word t0,C_word t1) C_noret;
 314 C_noret_decl(f_3590)
 315 static void C_ccall f_3590(C_word c,C_word t0,C_word t1) C_noret;
 316 C_noret_decl(f_3572)
 317 static void C_ccall f_3572(C_word c,C_word t0,C_word t1) C_noret;
 318 C_noret_decl(f_3580)
 319 static void C_ccall f_3580(C_word c,C_word t0,C_word t1) C_noret;
 320 C_noret_decl(f_3565)
 321 static void C_ccall f_3565(C_word c,C_word t0,C_word t1) C_noret;
 322 C_noret_decl(f_3553)
 323 static void C_ccall f_3553(C_word c,C_word t0,C_word t1) C_noret;
 324 C_noret_decl(f_3549)
 325 static void C_ccall f_3549(C_word c,C_word t0,C_word t1) C_noret;
 326 C_noret_decl(f_3521)
 327 static void C_ccall f_3521(C_word c,C_word t0,C_word t1) C_noret;
 328 C_noret_decl(f_3493)
 329 static void C_ccall f_3493(C_word c,C_word t0,C_word t1) C_noret;
 330 C_noret_decl(f_3507)
 331 static void C_fcall f_3507(C_word t0,C_word t1) C_noret;
 332 C_noret_decl(f_3511)
 333 static void C_ccall f_3511(C_word c,C_word t0,C_word t1) C_noret;
 334 C_noret_decl(f_3496)
 335 static void C_ccall f_3496(C_word c,C_word t0,C_word t1) C_noret;
 336 C_noret_decl(f_3502)
 337 static void C_ccall f_3502(C_word c,C_word t0,C_word t1) C_noret;
 338 C_noret_decl(f_3499)
 339 static void C_ccall f_3499(C_word c,C_word t0,C_word t1) C_noret;
 340 C_noret_decl(f_3482)
 341 static void C_ccall f_3482(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
 342 C_noret_decl(f_3444)
 343 static void C_ccall f_3444(C_word c,C_word t0,C_word t1) C_noret;
 344 C_noret_decl(f_3448)
 345 static void C_ccall f_3448(C_word c,C_word t0,C_word t1) C_noret;
 346 C_noret_decl(f_3451)
 347 static void C_ccall f_3451(C_word c,C_word t0,C_word t1) C_noret;
 348 C_noret_decl(f_3454)
 349 static void C_ccall f_3454(C_word c,C_word t0,C_word t1) C_noret;
 350 C_noret_decl(f_3457)
 351 static void C_ccall f_3457(C_word c,C_word t0,C_word t1) C_noret;
 352 C_noret_decl(f_3466)
 353 static void C_ccall f_3466(C_word c,C_word t0,C_word t1) C_noret;
 354 C_noret_decl(f_3399)
 355 static void C_ccall f_3399(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 356 C_noret_decl(f_3435)
 357 static void C_ccall f_3435(C_word c,C_word t0,C_word t1) C_noret;
 358 C_noret_decl(f_3415)
 359 static void C_ccall f_3415(C_word c,C_word t0,C_word t1) C_noret;
 360 C_noret_decl(f_3418)
 361 static void C_ccall f_3418(C_word c,C_word t0,C_word t1) C_noret;
 362 C_noret_decl(f_3364)
 363 static void C_ccall f_3364(C_word c,C_word t0,C_word t1) C_noret;
 364 C_noret_decl(f_3392)
 365 static void C_ccall f_3392(C_word c,C_word t0,C_word t1) C_noret;
 366 C_noret_decl(f_3368)
 367 static void C_ccall f_3368(C_word c,C_word t0,C_word t1) C_noret;
 368 C_noret_decl(f_3371)
 369 static void C_ccall f_3371(C_word c,C_word t0,C_word t1) C_noret;
 370 C_noret_decl(f_3384)
 371 static void C_ccall f_3384(C_word c,C_word t0,C_word t1) C_noret;
 372 C_noret_decl(f_3374)
 373 static void C_ccall f_3374(C_word c,C_word t0,C_word t1) C_noret;
 374 C_noret_decl(f_3377)
 375 static void C_ccall f_3377(C_word c,C_word t0,C_word t1) C_noret;
 376 C_noret_decl(f_3193)
 377 static void C_ccall f_3193(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
 378 C_noret_decl(f_3203)
 379 static void C_ccall f_3203(C_word c,C_word t0,C_word t1) C_noret;
 380 C_noret_decl(f_3266)
 381 static void C_ccall f_3266(C_word c,C_word t0,C_word t1) C_noret;
 382 C_noret_decl(f_3323)
 383 static void C_ccall f_3323(C_word c,C_word t0,C_word t1) C_noret;
 384 C_noret_decl(f_3301)
 385 static void C_ccall f_3301(C_word c,C_word t0,C_word t1) C_noret;
 386 C_noret_decl(f_3288)
 387 static void C_ccall f_3288(C_word c,C_word t0,C_word t1) C_noret;
 388 C_noret_decl(f_3206)
 389 static void C_ccall f_3206(C_word c,C_word t0,C_word t1) C_noret;
 390 C_noret_decl(f_3197)
 391 static void C_ccall f_3197(C_word c,C_word t0,C_word t1) C_noret;
 392 C_noret_decl(f_3139)
 393 static void C_ccall f_3139(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
 394 C_noret_decl(f_3179)
 395 static void C_ccall f_3179(C_word c,C_word t0,C_word t1) C_noret;
 396 C_noret_decl(f_3161)
 397 static void C_ccall f_3161(C_word c,C_word t0,C_word t1) C_noret;
 398 C_noret_decl(f_3171)
 399 static void C_ccall f_3171(C_word c,C_word t0,C_word t1) C_noret;
 400 C_noret_decl(f_3143)
 401 static void C_ccall f_3143(C_word c,C_word t0,C_word t1) C_noret;
 402 C_noret_decl(f_3122)
 403 static void C_ccall f_3122(C_word c,C_word t0,C_word t1,...) C_noret;
 404 C_noret_decl(f_3122)
 405 static void C_ccall f_3122r(C_word t0,C_word t1,C_word t3) C_noret;
 406 C_noret_decl(f_3126)
 407 static void C_ccall f_3126(C_word c,C_word t0,C_word t1) C_noret;
 408 C_noret_decl(f_3137)
 409 static void C_ccall f_3137(C_word c,C_word t0,C_word t1) C_noret;
 410 C_noret_decl(f_3107)
 411 static void C_ccall f_3107(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 412 C_noret_decl(f_3101)
 413 static void C_ccall f_3101(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
 414 C_noret_decl(f_3037)
 415 static void C_ccall f_3037(C_word c,C_word t0,C_word t1) C_noret;
 416 C_noret_decl(f_3076)
 417 static void C_fcall f_3076(C_word t0,C_word t1) C_noret;
 418 C_noret_decl(f_3080)
 419 static void C_ccall f_3080(C_word c,C_word t0,C_word t1) C_noret;
 420 C_noret_decl(f_3086)
 421 static void C_ccall f_3086(C_word c,C_word t0,C_word t1) C_noret;
 422 C_noret_decl(f_3041)
 423 static void C_ccall f_3041(C_word c,C_word t0,C_word t1) C_noret;
 424 C_noret_decl(f_3052)
 425 static void C_fcall f_3052(C_word t0,C_word t1) C_noret;
 426 C_noret_decl(f_3056)
 427 static void C_ccall f_3056(C_word c,C_word t0,C_word t1) C_noret;
 428 C_noret_decl(f_3062)
 429 static void C_ccall f_3062(C_word c,C_word t0,C_word t1) C_noret;
 430 C_noret_decl(f_3044)
 431 static void C_ccall f_3044(C_word c,C_word t0,C_word t1) C_noret;
 432 C_noret_decl(f_2984)
 433 static void C_ccall f_2984(C_word c,C_word t0,C_word t1) C_noret;
 434 C_noret_decl(f_2986)
 435 static void C_ccall f_2986(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 436 C_noret_decl(f_2993)
 437 static void C_ccall f_2993(C_word c,C_word t0,C_word t1) C_noret;
 438 C_noret_decl(f_2998)
 439 static void C_fcall f_2998(C_word t0,C_word t1) C_noret;
 440 C_noret_decl(f_3002)
 441 static void C_ccall f_3002(C_word c,C_word t0,C_word t1) C_noret;
 442 C_noret_decl(f_3022)
 443 static void C_ccall f_3022(C_word c,C_word t0,C_word t1) C_noret;
 444 C_noret_decl(f_3017)
 445 static void C_ccall f_3017(C_word c,C_word t0,C_word t1) C_noret;
 446 C_noret_decl(f_2788)
 447 static void C_ccall f_2788(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 448 C_noret_decl(f_2792)
 449 static void C_ccall f_2792(C_word c,C_word t0,C_word t1) C_noret;
 450 C_noret_decl(f_2804)
 451 static void C_fcall f_2804(C_word t0,C_word t1) C_noret;
 452 C_noret_decl(f_2807)
 453 static void C_ccall f_2807(C_word c,C_word t0,C_word t1) C_noret;
 454 C_noret_decl(f_2810)
 455 static void C_ccall f_2810(C_word c,C_word t0,C_word t1) C_noret;
 456 C_noret_decl(f_2816)
 457 static void C_ccall f_2816(C_word c,C_word t0,C_word t1) C_noret;
 458 C_noret_decl(f_2822)
 459 static void C_ccall f_2822(C_word c,C_word t0,C_word t1) C_noret;
 460 C_noret_decl(f_2825)
 461 static void C_ccall f_2825(C_word c,C_word t0,C_word t1) C_noret;
 462 C_noret_decl(f_2828)
 463 static void C_ccall f_2828(C_word c,C_word t0,C_word t1) C_noret;
 464 C_noret_decl(f_2831)
 465 static void C_ccall f_2831(C_word c,C_word t0,C_word t1) C_noret;
 466 C_noret_decl(f_2934)
 467 static void C_ccall f_2934(C_word c,C_word t0,C_word t1) C_noret;
 468 C_noret_decl(f_2874)
 469 static void C_fcall f_2874(C_word t0,C_word t1) C_noret;
 470 C_noret_decl(f_2924)
 471 static void C_ccall f_2924(C_word c,C_word t0,C_word t1) C_noret;
 472 C_noret_decl(f_2877)
 473 static void C_fcall f_2877(C_word t0,C_word t1) C_noret;
 474 C_noret_decl(f_2880)
 475 static void C_ccall f_2880(C_word c,C_word t0,C_word t1) C_noret;
 476 C_noret_decl(f_2900)
 477 static void C_ccall f_2900(C_word c,C_word t0,C_word t1) C_noret;
 478 C_noret_decl(f_2904)
 479 static void C_ccall f_2904(C_word c,C_word t0,C_word t1) C_noret;
 480 C_noret_decl(f_2892)
 481 static void C_ccall f_2892(C_word c,C_word t0,C_word t1) C_noret;
 482 C_noret_decl(f_2884)
 483 static void C_ccall f_2884(C_word c,C_word t0,C_word t1) C_noret;
 484 C_noret_decl(f_2842)
 485 static void C_fcall f_2842(C_word t0,C_word t1) C_noret;
 486 C_noret_decl(f_2850)
 487 static void C_ccall f_2850(C_word c,C_word t0,C_word t1) C_noret;
 488 C_noret_decl(f_2858)
 489 static void C_ccall f_2858(C_word c,C_word t0,C_word t1) C_noret;
 490 C_noret_decl(f_2722)
 491 static void C_ccall f_2722(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
 492 C_noret_decl(f_2726)
 493 static void C_fcall f_2726(C_word t0,C_word t1) C_noret;
 494 C_noret_decl(f_2773)
 495 static void C_ccall f_2773(C_word c,C_word t0,C_word t1) C_noret;
 496 C_noret_decl(f_2769)
 497 static void C_ccall f_2769(C_word c,C_word t0,C_word t1) C_noret;
 498 C_noret_decl(f_2733)
 499 static void C_ccall f_2733(C_word c,C_word t0,C_word t1) C_noret;
 500 C_noret_decl(f_2753)
 501 static void C_ccall f_2753(C_word c,C_word t0,C_word t1) C_noret;
 502 C_noret_decl(f_2669)
 503 static void C_ccall f_2669(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 504 C_noret_decl(f_2673)
 505 static void C_ccall f_2673(C_word c,C_word t0,C_word t1) C_noret;
 506 C_noret_decl(f_2679)
 507 static void C_fcall f_2679(C_word t0,C_word t1) C_noret;
 508 C_noret_decl(f_2699)
 509 static void C_ccall f_2699(C_word c,C_word t0,C_word t1) C_noret;
 510 C_noret_decl(f_2682)
 511 static void C_ccall f_2682(C_word c,C_word t0,C_word t1) C_noret;
 512 C_noret_decl(f_2688)
 513 static void C_ccall f_2688(C_word c,C_word t0,C_word t1) C_noret;
 514 C_noret_decl(f_2692)
 515 static void C_ccall f_2692(C_word c,C_word t0,C_word t1) C_noret;
 516 C_noret_decl(f_2656)
 517 static void C_ccall f_2656(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 518 C_noret_decl(f_2662)
 519 static void C_ccall f_2662(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
 520 C_noret_decl(f_2632)
 521 static void C_ccall f_2632(C_word c,C_word t0,C_word t1) C_noret;
 522 C_noret_decl(f_2636)
 523 static void C_ccall f_2636(C_word c,C_word t0,C_word t1) C_noret;
 524 C_noret_decl(f_2639)
 525 static void C_ccall f_2639(C_word c,C_word t0,C_word t1) C_noret;
 526 C_noret_decl(f_2642)
 527 static void C_ccall f_2642(C_word c,C_word t0,C_word t1) C_noret;
 528 C_noret_decl(f_2645)
 529 static void C_ccall f_2645(C_word c,C_word t0,C_word t1) C_noret;
 530 C_noret_decl(f_2648)
 531 static void C_ccall f_2648(C_word c,C_word t0,C_word t1) C_noret;
 532 C_noret_decl(f_2651)
 533 static void C_ccall f_2651(C_word c,C_word t0,C_word t1) C_noret;
 534 C_noret_decl(f_2515)
 535 static void C_ccall f_2515(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret;
 536 C_noret_decl(f_2519)
 537 static void C_ccall f_2519(C_word c,C_word t0,C_word t1) C_noret;
 538 C_noret_decl(f_2522)
 539 static void C_ccall f_2522(C_word c,C_word t0,C_word t1) C_noret;
 540 C_noret_decl(f_2525)
 541 static void C_ccall f_2525(C_word c,C_word t0,C_word t1) C_noret;
 542 C_noret_decl(f_2528)
 543 static void C_ccall f_2528(C_word c,C_word t0,C_word t1) C_noret;
 544 C_noret_decl(f_2531)
 545 static void C_ccall f_2531(C_word c,C_word t0,C_word t1) C_noret;
 546 C_noret_decl(f_2534)
 547 static void C_ccall f_2534(C_word c,C_word t0,C_word t1) C_noret;
 548 C_noret_decl(f_2537)
 549 static void C_ccall f_2537(C_word c,C_word t0,C_word t1) C_noret;
 550 C_noret_decl(f_2540)
 551 static void C_ccall f_2540(C_word c,C_word t0,C_word t1) C_noret;
 552 C_noret_decl(f_2554)
 553 static void C_fcall f_2554(C_word t0,C_word t1,C_word t2) C_noret;
 554 C_noret_decl(f_2564)
 555 static void C_ccall f_2564(C_word c,C_word t0,C_word t1) C_noret;
 556 C_noret_decl(f_2543)
 557 static void C_ccall f_2543(C_word c,C_word t0,C_word t1) C_noret;
 558 C_noret_decl(f_2546)
 559 static void C_ccall f_2546(C_word c,C_word t0,C_word t1) C_noret;
 560 C_noret_decl(f_2549)
 561 static void C_ccall f_2549(C_word c,C_word t0,C_word t1) C_noret;
 562 C_noret_decl(f_2480)
 563 static void C_ccall f_2480(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
 564 C_noret_decl(f_2484)
 565 static void C_ccall f_2484(C_word c,C_word t0,C_word t1) C_noret;
 566 C_noret_decl(f_2487)
 567 static void C_ccall f_2487(C_word c,C_word t0,C_word t1) C_noret;
 568 C_noret_decl(f_2490)
 569 static void C_ccall f_2490(C_word c,C_word t0,C_word t1) C_noret;
 570 C_noret_decl(f_2496)
 571 static void C_ccall f_2496(C_word c,C_word t0,C_word t1) C_noret;
 572 C_noret_decl(f_2499)
 573 static void C_ccall f_2499(C_word c,C_word t0,C_word t1) C_noret;
 574 C_noret_decl(f_2502)
 575 static void C_ccall f_2502(C_word c,C_word t0,C_word t1) C_noret;
 576 C_noret_decl(f_2462)
 577 static void C_ccall f_2462(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
 578 C_noret_decl(f_2466)
 579 static void C_ccall f_2466(C_word c,C_word t0,C_word t1) C_noret;
 580 C_noret_decl(f_2469)
 581 static void C_ccall f_2469(C_word c,C_word t0,C_word t1) C_noret;
 582 C_noret_decl(f_2472)
 583 static void C_ccall f_2472(C_word c,C_word t0,C_word t1) C_noret;
 584 C_noret_decl(f_2475)
 585 static void C_ccall f_2475(C_word c,C_word t0,C_word t1) C_noret;
 586 C_noret_decl(f_2420)
 587 static void C_ccall f_2420(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 588 C_noret_decl(f_2424)
 589 static void C_ccall f_2424(C_word c,C_word t0,C_word t1) C_noret;
 590 C_noret_decl(f_2427)
 591 static void C_ccall f_2427(C_word c,C_word t0,C_word t1) C_noret;
 592 C_noret_decl(f_2430)
 593 static void C_ccall f_2430(C_word c,C_word t0,C_word t1) C_noret;
 594 C_noret_decl(f_2438)
 595 static void C_ccall f_2438(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 596 C_noret_decl(f_2442)
 597 static void C_ccall f_2442(C_word c,C_word t0,C_word t1) C_noret;
 598 C_noret_decl(f_2445)
 599 static void C_ccall f_2445(C_word c,C_word t0,C_word t1) C_noret;
 600 C_noret_decl(f_2433)
 601 static void C_ccall f_2433(C_word c,C_word t0,C_word t1) C_noret;
 602 C_noret_decl(f_2400)
 603 static void C_ccall f_2400(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 604 C_noret_decl(f_2418)
 605 static void C_ccall f_2418(C_word c,C_word t0,C_word t1) C_noret;
 606 C_noret_decl(f_2404)
 607 static void C_ccall f_2404(C_word c,C_word t0,C_word t1) C_noret;
 608 C_noret_decl(f_2407)
 609 static void C_ccall f_2407(C_word c,C_word t0,C_word t1) C_noret;
 610 C_noret_decl(f_2414)
 611 static void C_ccall f_2414(C_word c,C_word t0,C_word t1) C_noret;
 612 C_noret_decl(f_2394)
 613 static void C_ccall f_2394(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
 614 C_noret_decl(f_2369)
 615 static void C_ccall f_2369(C_word c,C_word t0,C_word t1) C_noret;
 616 C_noret_decl(f_2373)
 617 static void C_ccall f_2373(C_word c,C_word t0,C_word t1) C_noret;
 618 C_noret_decl(f_2378)
 619 static void C_ccall f_2378(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 620 C_noret_decl(f_2386)
 621 static void C_ccall f_2386(C_word c,C_word t0,C_word t1) C_noret;
 622 C_noret_decl(f_2340)
 623 static void C_ccall f_2340(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 624 C_noret_decl(f_2363)
 625 static void C_ccall f_2363(C_word c,C_word t0,C_word t1) C_noret;
 626 C_noret_decl(f_2344)
 627 static void C_ccall f_2344(C_word c,C_word t0,C_word t1) C_noret;
 628 C_noret_decl(f_2284)
 629 static void C_ccall f_2284(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 630 C_noret_decl(f_2291)
 631 static void C_fcall f_2291(C_word t0,C_word t1) C_noret;
 632 C_noret_decl(f_2299)
 633 static void C_ccall f_2299(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 634 C_noret_decl(f_2252)
 635 static void C_ccall f_2252(C_word c,C_word t0,C_word t1) C_noret;
 636 C_noret_decl(f_2258)
 637 static void C_ccall f_2258(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 638 C_noret_decl(f_2265)
 639 static void C_fcall f_2265(C_word t0,C_word t1) C_noret;
 640 C_noret_decl(f_2240)
 641 static void C_ccall f_2240(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret;
 642 C_noret_decl(f_2226)
 643 static void C_ccall f_2226(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 644 C_noret_decl(f_2212)
 645 static void C_ccall f_2212(C_word c,C_word t0,C_word t1,...) C_noret;
 646 C_noret_decl(f_2212)
 647 static void C_ccall f_2212r(C_word t0,C_word t1,C_word t3) C_noret;
 648 C_noret_decl(f_2220)
 649 static void C_ccall f_2220(C_word c,C_word t0,C_word t1) C_noret;
 650 C_noret_decl(f_2197)
 651 static void C_ccall f_2197(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 652 C_noret_decl(f_2201)
 653 static void C_ccall f_2201(C_word c,C_word t0,C_word t1) C_noret;
 654 C_noret_decl(f_2206)
 655 static void C_ccall f_2206(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 656 C_noret_decl(f_2183)
 657 static void C_ccall f_2183(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 658 C_noret_decl(f_2195)
 659 static void C_ccall f_2195(C_word c,C_word t0,C_word t1) C_noret;
 660 C_noret_decl(f_2191)
 661 static void C_ccall f_2191(C_word c,C_word t0,C_word t1) C_noret;
 662 C_noret_decl(f_2177)
 663 static void C_ccall f_2177(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 664 C_noret_decl(f_2171)
 665 static void C_ccall f_2171(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
 666
 667 C_noret_decl(trf_3507)
 668 static void C_fcall trf_3507(void *dummy) C_regparm C_noret;
 669 C_regparm static void C_fcall trf_3507(void *dummy){
 670 C_word t1=C_pick(0);
 671 C_word t0=C_pick(1);
 672 C_adjust_stack(-2);
 673 f_3507(t0,t1);}
 674
 675 C_noret_decl(trf_3076)
 676 static void C_fcall trf_3076(void *dummy) C_regparm C_noret;
 677 C_regparm static void C_fcall trf_3076(void *dummy){
 678 C_word t1=C_pick(0);
 679 C_word t0=C_pick(1);
 680 C_adjust_stack(-2);
 681 f_3076(t0,t1);}
 682
 683 C_noret_decl(trf_3052)
 684 static void C_fcall trf_3052(void *dummy) C_regparm C_noret;
 685 C_regparm static void C_fcall trf_3052(void *dummy){
 686 C_word t1=C_pick(0);
 687 C_word t0=C_pick(1);
 688 C_adjust_stack(-2);
 689 f_3052(t0,t1);}
 690
 691 C_noret_decl(trf_2998)
 692 static void C_fcall trf_2998(void *dummy) C_regparm C_noret;
 693 C_regparm static void C_fcall trf_2998(void *dummy){
 694 C_word t1=C_pick(0);
 695 C_word t0=C_pick(1);
 696 C_adjust_stack(-2);
 697 f_2998(t0,t1);}
 698
 699 C_noret_decl(trf_2804)
 700 static void C_fcall trf_2804(void *dummy) C_regparm C_noret;
 701 C_regparm static void C_fcall trf_2804(void *dummy){
 702 C_word t1=C_pick(0);
 703 C_word t0=C_pick(1);
 704 C_adjust_stack(-2);
 705 f_2804(t0,t1);}
 706
 707 C_noret_decl(trf_2874)
 708 static void C_fcall trf_2874(void *dummy) C_regparm C_noret;
 709 C_regparm static void C_fcall trf_2874(void *dummy){
 710 C_word t1=C_pick(0);
 711 C_word t0=C_pick(1);
 712 C_adjust_stack(-2);
 713 f_2874(t0,t1);}
 714
 715 C_noret_decl(trf_2877)
 716 static void C_fcall trf_2877(void *dummy) C_regparm C_noret;
 717 C_regparm static void C_fcall trf_2877(void *dummy){
 718 C_word t1=C_pick(0);
 719 C_word t0=C_pick(1);
 720 C_adjust_stack(-2);
 721 f_2877(t0,t1);}
 722
 723 C_noret_decl(trf_2842)
 724 static void C_fcall trf_2842(void *dummy) C_regparm C_noret;
 725 C_regparm static void C_fcall trf_2842(void *dummy){
 726 C_word t1=C_pick(0);
 727 C_word t0=C_pick(1);
 728 C_adjust_stack(-2);
 729 f_2842(t0,t1);}
 730
 731 C_noret_decl(trf_2726)
 732 static void C_fcall trf_2726(void *dummy) C_regparm C_noret;
 733 C_regparm static void C_fcall trf_2726(void *dummy){
 734 C_word t1=C_pick(0);
 735 C_word t0=C_pick(1);
 736 C_adjust_stack(-2);
 737 f_2726(t0,t1);}
 738
 739 C_noret_decl(trf_2679)
 740 static void C_fcall trf_2679(void *dummy) C_regparm C_noret;
 741 C_regparm static void C_fcall trf_2679(void *dummy){
 742 C_word t1=C_pick(0);
 743 C_word t0=C_pick(1);
 744 C_adjust_stack(-2);
 745 f_2679(t0,t1);}
 746
 747 C_noret_decl(trf_2554)
 748 static void C_fcall trf_2554(void *dummy) C_regparm C_noret;
 749 C_regparm static void C_fcall trf_2554(void *dummy){
 750 C_word t2=C_pick(0);
 751 C_word t1=C_pick(1);
 752 C_word t0=C_pick(2);
 753 C_adjust_stack(-3);
 754 f_2554(t0,t1,t2);}
 755
 756 C_noret_decl(trf_2291)
 757 static void C_fcall trf_2291(void *dummy) C_regparm C_noret;
 758 C_regparm static void C_fcall trf_2291(void *dummy){
 759 C_word t1=C_pick(0);
 760 C_word t0=C_pick(1);
 761 C_adjust_stack(-2);
 762 f_2291(t0,t1);}
 763
 764 C_noret_decl(trf_2265)
 765 static void C_fcall trf_2265(void *dummy) C_regparm C_noret;
 766 C_regparm static void C_fcall trf_2265(void *dummy){
 767 C_word t1=C_pick(0);
 768 C_word t0=C_pick(1);
 769 C_adjust_stack(-2);
 770 f_2265(t0,t1);}
 771
 772 C_noret_decl(tr6)
 773 static void C_fcall tr6(C_proc6 k) C_regparm C_noret;
 774 C_regparm static void C_fcall tr6(C_proc6 k){
 775 C_word t5=C_pick(0);
 776 C_word t4=C_pick(1);
 777 C_word t3=C_pick(2);
 778 C_word t2=C_pick(3);
 779 C_word t1=C_pick(4);
 780 C_word t0=C_pick(5);
 781 C_adjust_stack(-6);
 782 (k)(6,t0,t1,t2,t3,t4,t5);}
 783
 784 C_noret_decl(tr5)
 785 static void C_fcall tr5(C_proc5 k) C_regparm C_noret;
 786 C_regparm static void C_fcall tr5(C_proc5 k){
 787 C_word t4=C_pick(0);
 788 C_word t3=C_pick(1);
 789 C_word t2=C_pick(2);
 790 C_word t1=C_pick(3);
 791 C_word t0=C_pick(4);
 792 C_adjust_stack(-5);
 793 (k)(5,t0,t1,t2,t3,t4);}
 794
 795 C_noret_decl(tr4)
 796 static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
 797 C_regparm static void C_fcall tr4(C_proc4 k){
 798 C_word t3=C_pick(0);
 799 C_word t2=C_pick(1);
 800 C_word t1=C_pick(2);
 801 C_word t0=C_pick(3);
 802 C_adjust_stack(-4);
 803 (k)(4,t0,t1,t2,t3);}
 804
 805 C_noret_decl(tr3)
 806 static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
 807 C_regparm static void C_fcall tr3(C_proc3 k){
 808 C_word t2=C_pick(0);
 809 C_word t1=C_pick(1);
 810 C_word t0=C_pick(2);
 811 C_adjust_stack(-3);
 812 (k)(3,t0,t1,t2);}
 813
 814 C_noret_decl(tr7)
 815 static void C_fcall tr7(C_proc7 k) C_regparm C_noret;
 816 C_regparm static void C_fcall tr7(C_proc7 k){
 817 C_word t6=C_pick(0);
 818 C_word t5=C_pick(1);
 819 C_word t4=C_pick(2);
 820 C_word t3=C_pick(3);
 821 C_word t2=C_pick(4);
 822 C_word t1=C_pick(5);
 823 C_word t0=C_pick(6);
 824 C_adjust_stack(-7);
 825 (k)(7,t0,t1,t2,t3,t4,t5,t6);}
 826
 827 C_noret_decl(tr2)
 828 static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
 829 C_regparm static void C_fcall tr2(C_proc2 k){
 830 C_word t1=C_pick(0);
 831 C_word t0=C_pick(1);
 832 C_adjust_stack(-2);
 833 (k)(2,t0,t1);}
 834
 835 C_noret_decl(tr2r)
 836 static void C_fcall tr2r(C_proc2 k) C_regparm C_noret;
 837 C_regparm static void C_fcall tr2r(C_proc2 k){
 838 int n;
 839 C_word *a,t2;
 840 C_word t1=C_pick(0);
 841 C_word t0=C_pick(1);
 842 C_adjust_stack(-2);
 843 n=C_rest_count(0);
 844 a=C_alloc(n*3);
 845 t2=C_restore_rest(a,n);
 846 (k)(t0,t1,t2);}
 847
 848 /* toplevel */
 849 static C_TLS int toplevel_initialized=0;
 850 C_main_entry_point
 851 C_noret_decl(toplevel_trampoline)
 852 static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
 853 C_regparm static void C_fcall toplevel_trampoline(void *dummy){
 854 C_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}
 855
 856 void C_ccall C_toplevel(C_word c,C_word t0,C_word t1){
 857 C_word tmp;
 858 C_word t2;
 859 C_word t3;
 860 C_word *a;
 861 if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
 862 else C_toplevel_entry(C_text("toplevel"));
 863 C_resize_stack(131072);
 864 C_check_nursery_minimum(3);
 865 if(!C_demand(3)){
 866 C_save(t1);
 867 C_reclaim((void*)toplevel_trampoline,NULL);}
 868 toplevel_initialized=1;
 869 if(!C_demand_2(1962)){
 870 C_save(t1);
 871 C_rereclaim2(1962*sizeof(C_word), 1);
 872 t1=C_restore;}
 873 a=C_alloc(3);
 874 C_initialize_lf(lf,248);
 875 lf[0]=C_h_intern(&lf[0],6,"square");
 876 lf[1]=C_h_intern(&lf[1],4,"cube");
 877 lf[2]=C_h_intern(&lf[2],9,"magnitude");
 878 lf[3]=C_h_intern(&lf[3],1,"+");
 879 lf[4]=C_h_intern(&lf[4],7,"\003sysmap");
 880 lf[5]=C_h_intern(&lf[5],9,"normalize");
 881 lf[6]=C_h_intern(&lf[6],3,"dot");
 882 lf[7]=C_h_intern(&lf[7],3,"map");
 883 lf[8]=C_h_intern(&lf[8],1,"*");
 884 lf[9]=C_h_intern(&lf[9],2,"pi");
 885 lf[10]=C_decode_literal(C_heaptop,"\376U3.14159265358979\000");
 886 lf[11]=C_h_intern(&lf[11],7,"deg2rad");
 887 lf[12]=C_h_intern(&lf[12],13,"horizdilution");
 888 lf[13]=C_decode_literal(C_heaptop,"\376U1.5\000");
 889 lf[14]=C_h_intern(&lf[14],6,"curpos");
 890 lf[15]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\000\376\377\016");
 891 lf[16]=C_h_intern(&lf[16],6,"points");
 892 lf[17]=C_h_intern(&lf[17],9,"triangles");
 893 lf[18]=C_h_intern(&lf[18],21,"trianglegrid-addpoint");
 894 lf[19]=C_h_intern(&lf[19],14,"colorspace-min");
 895 lf[20]=C_h_intern(&lf[20],14,"colorspace-max");
 896 lf[21]=C_h_intern(&lf[21],17,"recalc-colorspace");
 897 lf[22]=C_h_intern(&lf[22],19,"\003sysundefined-value");
 898 lf[23]=C_h_intern(&lf[23],12,"\003sysfor-each");
 899 lf[24]=C_h_intern(&lf[24],10,"colorspace");
 900 lf[25]=C_decode_literal(C_heaptop,"\376U0.5\000");
 901 lf[26]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376U0.5\000\376\003\000\000\002\376\377\001\000\000\000\001\376\377\016");
 902 lf[27]=C_decode_literal(C_heaptop,"\376U0.01\000");
 903 lf[28]=C_h_intern(&lf[28],13,"make-gl-point");
 904 lf[29]=C_h_intern(&lf[29],11,"gl:Vertex3f");
 905 lf[30]=C_h_intern(&lf[30],10,"gl:Color3f");
 906 lf[31]=C_h_intern(&lf[31],17,"trianglegrid-draw");
 907 lf[32]=C_h_intern(&lf[32],8,"pos-draw");
 908 lf[33]=C_decode_literal(C_heaptop,"\376U0.1\000");
 909 lf[34]=C_h_intern(&lf[34],9,"point-pos");
 910 lf[35]=C_h_intern(&lf[35],3,"car");
 911 lf[36]=C_h_intern(&lf[36],11,"point-color");
 912 lf[37]=C_h_intern(&lf[37],4,"cadr");
 913 lf[38]=C_h_intern(&lf[38],9,"new-point");
 914 lf[39]=C_h_intern(&lf[39],10,"draw-point");
 915 lf[40]=C_h_intern(&lf[40],12,"gl:Vertex3fv");
 916 lf[41]=C_h_intern(&lf[41],14,"draw-triangles");
 917 lf[42]=C_h_intern(&lf[42],6,"gl:End");
 918 lf[43]=C_h_intern(&lf[43],5,"point");
 919 lf[44]=C_h_intern(&lf[44],8,"gl:Begin");
 920 lf[45]=C_h_intern(&lf[45],12,"gl:TRIANGLES");
 921 lf[46]=C_h_intern(&lf[46],3,"max");
 922 lf[47]=C_h_intern(&lf[47],3,"min");
 923 lf[48]=C_h_intern(&lf[48],11,"RotateAfter");
 924 lf[49]=C_h_intern(&lf[49],14,"gl:MultMatrixf");
 925 lf[50]=C_h_intern(&lf[50],10,"gl:Rotatef");
 926 lf[51]=C_h_intern(&lf[51],15,"gl:LoadIdentity");
 927 lf[52]=C_h_intern(&lf[52],12,"gl:GetFloatv");
 928 lf[53]=C_h_intern(&lf[53],19,"gl:MODELVIEW_MATRIX");
 929 lf[54]=C_h_intern(&lf[54],9,"f32vector");
 930 lf[55]=C_h_intern(&lf[55],7,"reshape");
 931 lf[56]=C_h_intern(&lf[56],13,"gl:Translatef");
 932 lf[57]=C_decode_literal(C_heaptop,"\376U0.0\000");
 933 lf[58]=C_decode_literal(C_heaptop,"\376U0.0\000");
 934 lf[59]=C_decode_literal(C_heaptop,"\376U-10.0\000");
 935 lf[60]=C_h_intern(&lf[60],13,"gl:MatrixMode");
 936 lf[61]=C_h_intern(&lf[61],12,"gl:MODELVIEW");
 937 lf[62]=C_decode_literal(C_heaptop,"\376U-0.1\000");
 938 lf[63]=C_decode_literal(C_heaptop,"\376U0.1\000");
 939 lf[64]=C_h_intern(&lf[64],10,"gl:Frustum");
 940 lf[65]=C_decode_literal(C_heaptop,"\376U-0.1\000");
 941 lf[66]=C_decode_literal(C_heaptop,"\376U0.1\000");
 942 lf[67]=C_decode_literal(C_heaptop,"\376U0.1\000");
 943 lf[68]=C_h_intern(&lf[68],13,"gl:PROJECTION");
 944 lf[69]=C_h_intern(&lf[69],11,"gl:Viewport");
 945 lf[70]=C_h_intern(&lf[70],10,"gl:Disable");
 946 lf[71]=C_h_intern(&lf[71],8,"gl:BLEND");
 947 lf[72]=C_h_intern(&lf[72],12,"gl:PopMatrix");
 948 lf[73]=C_decode_literal(C_heaptop,"\376U0.1\000");
 949 lf[74]=C_h_intern(&lf[74],10,"gl:Color4f");
 950 lf[75]=C_decode_literal(C_heaptop,"\376U0.5\000");
 951 lf[76]=C_decode_literal(C_heaptop,"\376U0.5\000");
 952 lf[77]=C_decode_literal(C_heaptop,"\376U0.5\000");
 953 lf[78]=C_h_intern(&lf[78],15,"gl:TRIANGLE_FAN");
 954 lf[79]=C_h_intern(&lf[79],13,"gl:PushMatrix");
 955 lf[80]=C_h_intern(&lf[80],9,"gl:Enable");
 956 lf[81]=C_h_intern(&lf[81],12,"gl:BlendFunc");
 957 lf[82]=C_h_intern(&lf[82],12,"gl:SRC_ALPHA");
 958 lf[83]=C_h_intern(&lf[83],22,"gl:ONE_MINUS_SRC_ALPHA");
 959 lf[84]=C_h_intern(&lf[84],10,"gl-display");
 960 lf[85]=C_h_intern(&lf[85],16,"glut:SwapBuffers");
 961 lf[86]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\001\000\000\000\001\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\000\376\377\016");
 962 lf[87]=C_h_intern(&lf[87],8,"gl:Clear");
 963 lf[88]=C_h_intern(&lf[88],19,"gl:COLOR_BUFFER_BIT");
 964 lf[89]=C_h_intern(&lf[89],10,"none-false");
 965 lf[90]=C_h_intern(&lf[90],4,"fold");
 966 lf[91]=C_h_intern(&lf[91],6,"magmag");
 967 lf[92]=C_h_intern(&lf[92],14,"parse-mag-line");
 968 lf[93]=C_h_intern(&lf[93],14,"string->number");
 969 lf[94]=C_h_intern(&lf[94],4,"take");
 970 lf[95]=C_decode_literal(C_heaptop,"\376B\000\000\004mag:");
 971 lf[96]=C_h_intern(&lf[96],12,"string-split");
 972 lf[97]=C_h_intern(&lf[97],16,"convert-position");
 973 lf[98]=C_h_intern(&lf[98],14,"parse-gps-line");
 974 lf[99]=C_h_intern(&lf[99],5,"print");
 975 lf[100]=C_decode_literal(C_heaptop,"\376B\000\000\022no gps fix, sats: ");
 976 lf[101]=C_h_intern(&lf[101],9,"remainder");
 977 lf[102]=C_h_intern(&lf[102],5,"floor");
 978 lf[103]=C_decode_literal(C_heaptop,"\376B\000\0001warning, only normal GPS not DGPS fix, discarding");
 979 lf[104]=C_h_intern(&lf[104],10,"reportdata");
 980 lf[105]=C_h_intern(&lf[105],6,"append");
 981 lf[106]=C_h_intern(&lf[106],7,"verbose");
 982 lf[107]=C_decode_literal(C_heaptop,"\376B\000\000\011 GPS fix ");
 983 lf[108]=C_decode_literal(C_heaptop,"\376B\000\000\011DGPS fix ");
 984 lf[109]=C_decode_literal(C_heaptop,"\376B\000\000\002N ");
 985 lf[110]=C_decode_literal(C_heaptop,"\376B\000\000\002E ");
 986 lf[111]=C_decode_literal(C_heaptop,"\376B\000\000\002M ");
 987 lf[112]=C_decode_literal(C_heaptop,"\376B\000\000\004 HD ");
 988 lf[113]=C_decode_literal(C_heaptop,"\376B\000\000\005 sats");
 989 lf[114]=C_decode_literal(C_heaptop,"\376B\000\000\001W");
 990 lf[115]=C_decode_literal(C_heaptop,"\376B\000\000\001S");
 991 lf[116]=C_decode_literal(C_heaptop,"\376B\000\000\006$GPGGA");
 992 lf[117]=C_decode_literal(C_heaptop,"\376B\000\000\001,");
 993 lf[118]=C_h_intern(&lf[118],16,"make-line-reader");
 994 lf[119]=C_decode_literal(C_heaptop,"\376B\000\000\000");
 995 lf[120]=C_decode_literal(C_heaptop,"\376B\000\000\000");
 996 lf[121]=C_h_intern(&lf[121],11,"string-copy");
 997 lf[122]=C_h_intern(&lf[122],13,"string-append");
 998 lf[123]=C_h_intern(&lf[123],18,"\003sysread-char/port");
 999 lf[124]=C_h_intern(&lf[124],11,"char-ready\077");
1000 lf[125]=C_h_intern(&lf[125],4,"idle");
1001 lf[126]=C_h_intern(&lf[126],13,"thread-sleep!");
1002 lf[127]=C_decode_literal(C_heaptop,"\376U0.001\000");
1003 lf[128]=C_h_intern(&lf[128],10,"gps-device");
1004 lf[129]=C_h_intern(&lf[129],10,"mag-device");
1005 lf[130]=C_h_intern(&lf[130],10,"attributes");
1006 lf[131]=C_h_intern(&lf[131],9,"attr-set!");
1007 lf[132]=C_h_intern(&lf[132],15,"hash-table-set!");
1008 lf[133]=C_h_intern(&lf[133],8,"attr-get");
1009 lf[134]=C_h_intern(&lf[134],14,"hash-table-ref");
1010 lf[135]=C_h_intern(&lf[135],17,"glut-HasModifiers");
1011 lf[136]=C_h_intern(&lf[136],17,"glut:GetModifiers");
1012 lf[137]=C_h_intern(&lf[137],11,"bitwise-ior");
1013 lf[138]=C_h_intern(&lf[138],8,"keyboard");
1014 lf[139]=C_h_intern(&lf[139],18,"glut:PostRedisplay");
1015 lf[140]=C_h_intern(&lf[140],4,"exit");
1016 lf[141]=C_h_intern(&lf[141],7,"gl:LINE");
1017 lf[142]=C_h_intern(&lf[142],7,"gl:FILL");
1018 lf[143]=C_h_intern(&lf[143],14,"gl:PolygonMode");
1019 lf[144]=C_h_intern(&lf[144],17,"gl:FRONT_AND_BACK");
1020 lf[145]=C_decode_literal(C_heaptop,"\376B\000\000\010linemode");
1021 lf[146]=C_decode_literal(C_heaptop,"\376B\000\000\010linemode");
1022 lf[147]=C_decode_literal(C_heaptop,"\376B\000\000\010linemode");
1023 lf[148]=C_h_intern(&lf[148],15,"glut:FullScreen");
1024 lf[149]=C_h_intern(&lf[149],7,"special");
1025 lf[150]=C_h_intern(&lf[150],13,"glut:KEY_LEFT");
1026 lf[151]=C_h_intern(&lf[151],14,"glut:KEY_RIGHT");
1027 lf[152]=C_h_intern(&lf[152],11,"glut:KEY_UP");
1028 lf[153]=C_h_intern(&lf[153],13,"glut:KEY_DOWN");
1029 lf[154]=C_h_intern(&lf[154],16,"glut:KEY_PAGE_UP");
1030 lf[155]=C_h_intern(&lf[155],18,"glut:KEY_PAGE_DOWN");
1031 lf[156]=C_decode_literal(C_heaptop,"\376B\000\000\013rotatespeed");
1032 lf[157]=C_decode_literal(C_heaptop,"\376B\000\000\016translatespeed");
1033 lf[158]=C_h_intern(&lf[158],17,"glut:ACTIVE_SHIFT");
1034 lf[159]=C_h_intern(&lf[159],5,"usage");
1035 lf[160]=C_decode_literal(C_heaptop,"\376B\000\000%Report bugs to geckosenator at gmail.");
1036 lf[161]=C_h_intern(&lf[161],10,"args:usage");
1037 lf[162]=C_h_intern(&lf[162],4,"opts");
1038 lf[163]=C_h_intern(&lf[163],7,"newline");
1039 lf[164]=C_decode_literal(C_heaptop,"\376B\000\000\007Usage: ");
1040 lf[165]=C_decode_literal(C_heaptop,"\376B\000\000\030 [options...] [files...]");
1041 lf[166]=C_h_intern(&lf[166],4,"argv");
1042 lf[167]=C_h_intern(&lf[167],11,"output-file");
1043 lf[168]=C_h_intern(&lf[168],6,"noshow");
1044 lf[169]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
1045 lf[170]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
1046 lf[171]=C_decode_literal(C_heaptop,"\376B\000\000\001 ");
1047 lf[172]=C_h_intern(&lf[172],19,"with-output-to-port");
1048 lf[173]=C_h_intern(&lf[173],9,"load-data");
1049 lf[174]=C_h_intern(&lf[174],4,"read");
1050 lf[175]=C_h_intern(&lf[175],16,"handle-open-file");
1051 lf[176]=C_h_intern(&lf[176],25,"\003sysimplicit-exit-handler");
1052 lf[177]=C_h_intern(&lf[177],13,"glut:MainLoop");
1053 lf[178]=C_h_intern(&lf[178],10,"args:parse");
1054 lf[179]=C_h_intern(&lf[179],22,"command-line-arguments");
1055 lf[180]=C_h_intern(&lf[180],16,"make-args:option");
1056 lf[181]=C_decode_literal(C_heaptop,"\376B\000\000\006DEVICE");
1057 lf[182]=C_decode_literal(C_heaptop,"\376B\000\000\034device for magnetometer data");
1058 lf[183]=C_h_intern(&lf[183],7,"fprintf");
1059 lf[184]=C_decode_literal(C_heaptop,"\376B\000\000#~A: option ~A requires an argument\012");
1060 lf[185]=C_h_intern(&lf[185],18,"current-error-port");
1061 lf[186]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001m\376\003\000\000\002\376\001\000\000\003mag\376\377\016");
1062 lf[187]=C_h_intern(&lf[187],15,"open-input-file");
1063 lf[188]=C_h_intern(&lf[188],6,"option");
1064 lf[189]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000m\376\003\000\000\002\376B\000\000\003mag\376\377\016");
1065 lf[190]=C_decode_literal(C_heaptop,"\376B\000\000\006DEVICE");
1066 lf[191]=C_decode_literal(C_heaptop,"\376B\000\000\023device for gps data");
1067 lf[192]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001g\376\003\000\000\002\376\001\000\000\003gps\376\377\016");
1068 lf[193]=C_h_intern(&lf[193],6,"system");
1069 lf[194]=C_decode_literal(C_heaptop,"\376B\000\000\010stty -F ");
1070 lf[195]=C_decode_literal(C_heaptop,"\376B\000\000\006 19200");
1071 lf[196]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000g\376\003\000\000\002\376B\000\000\003gps\376\377\016");
1072 lf[197]=C_decode_literal(C_heaptop,"\376B\000\000\003ARG");
1073 lf[198]=C_decode_literal(C_heaptop,"\376B\000\000\026Don\047t display anything");
1074 lf[199]=C_h_intern(&lf[199],5,"\000node");
1075 lf[200]=C_h_intern(&lf[200],9,"\000required");
1076 lf[201]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001v\376\003\000\000\002\376\001\000\000\007verbose\376\377\016");
1077 lf[202]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000v\376\003\000\000\002\376B\000\000\007verbose\376\377\016");
1078 lf[203]=C_decode_literal(C_heaptop,"\376B\000\000\026Don\047t display anything");
1079 lf[204]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001n\376\003\000\000\002\376\001\000\000\006noshow\376\377\016");
1080 lf[205]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000n\376\003\000\000\002\376B\000\000\006noshow\376\377\016");
1081 lf[206]=C_decode_literal(C_heaptop,"\376B\000\000\010FILENAME");
1082 lf[207]=C_decode_literal(C_heaptop,"\376B\000\000\026write output to a file");
1083 lf[208]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001o\376\003\000\000\002\376\001\000\000\006output\376\377\016");
1084 lf[209]=C_decode_literal(C_heaptop,"\376B\000\000\001-");
1085 lf[210]=C_h_intern(&lf[210],19,"current-output-port");
1086 lf[211]=C_h_intern(&lf[211],16,"open-output-file");
1087 lf[212]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000o\376\003\000\000\002\376B\000\000\006output\376\377\016");
1088 lf[213]=C_decode_literal(C_heaptop,"\376B\000\000\010FILENAME");
1089 lf[214]=C_decode_literal(C_heaptop,"\376B\000\000\026read input from a file");
1090 lf[215]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001f\376\003\000\000\002\376\001\000\000\004file\376\377\016");
1091 lf[216]=C_h_intern(&lf[216],20,"with-input-from-port");
1092 lf[217]=C_decode_literal(C_heaptop,"\376B\000\000\001-");
1093 lf[218]=C_h_intern(&lf[218],18,"current-input-port");
1094 lf[219]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000f\376\003\000\000\002\376B\000\000\004file\376\377\016");
1095 lf[220]=C_decode_literal(C_heaptop,"\376B\000\000\021Display this text");
1096 lf[221]=C_h_intern(&lf[221],5,"\000none");
1097 lf[222]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\001\000\000\001h\376\003\000\000\002\376\001\000\000\004help\376\377\016");
1098 lf[223]=C_decode_literal(C_heaptop,"\376\003\000\000\002\376\377\012\000\000h\376\003\000\000\002\376B\000\000\004help\376\377\016");
1099 lf[224]=C_h_intern(&lf[224],11,"\003sysrequire");
1100 lf[225]=C_h_intern(&lf[225],12,"args-support");
1101 lf[226]=C_h_intern(&lf[226],13,"gl:ClearColor");
1102 lf[227]=C_decode_literal(C_heaptop,"\376U0.0\000");
1103 lf[228]=C_decode_literal(C_heaptop,"\376U0.0\000");
1104 lf[229]=C_decode_literal(C_heaptop,"\376U0.0\000");
1105 lf[230]=C_h_intern(&lf[230],16,"glut:SpecialFunc");
1106 lf[231]=C_h_intern(&lf[231],17,"glut:KeyboardFunc");
1107 lf[232]=C_h_intern(&lf[232],13,"glut:IdleFunc");
1108 lf[233]=C_h_intern(&lf[233],16,"glut:DisplayFunc");
1109 lf[234]=C_h_intern(&lf[234],16,"glut:ReshapeFunc");
1110 lf[235]=C_h_intern(&lf[235],17,"glut:CreateWindow");
1111 lf[236]=C_decode_literal(C_heaptop,"\376B\000\000\007magplot");
1112 lf[237]=C_h_intern(&lf[237],20,"glut:InitDisplayMode");
1113 lf[238]=C_h_intern(&lf[238],11,"glut:DOUBLE");
1114 lf[239]=C_h_intern(&lf[239],8,"glut:RGB");
1115 lf[240]=C_h_intern(&lf[240],10,"glut:ALPHA");
1116 lf[241]=C_decode_literal(C_heaptop,"\376B\000\000\016translatespeed");
1117 lf[242]=C_decode_literal(C_heaptop,"\376B\000\000\013rotatespeed");
1118 lf[243]=C_decode_literal(C_heaptop,"\376B\000\000\010linemode");
1119 lf[244]=C_h_intern(&lf[244],15,"make-hash-table");
1120 lf[245]=C_h_intern(&lf[245],11,"pos-support");
1121 lf[246]=C_h_intern(&lf[246],4,"glut");
1122 lf[247]=C_h_intern(&lf[247],2,"gl");
1123 C_register_lf2(lf,248,create_ptable());
1124 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2130,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
1125 C_library_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1126
1127 /* k2128 */
1128 static void C_ccall f_2130(C_word c,C_word t0,C_word t1){
1129 C_word tmp;
1130 C_word t2;
1131 C_word t3;
1132 C_word ab[3],*a=ab;
1133 C_check_for_interrupt;
1134 if(!C_stack_probe(&a)){
1135 C_save_and_reclaim((void*)tr2,(void*)f_2130,2,t0,t1);}
1136 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2133,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1137 C_eval_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1138
1139 /* k2131 in k2128 */
1140 static void C_ccall f_2133(C_word c,C_word t0,C_word t1){
1141 C_word tmp;
1142 C_word t2;
1143 C_word t3;
1144 C_word ab[3],*a=ab;
1145 C_check_for_interrupt;
1146 if(!C_stack_probe(&a)){
1147 C_save_and_reclaim((void*)tr2,(void*)f_2133,2,t0,t1);}
1148 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1149 C_data_structures_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1150
1151 /* k2134 in k2131 in k2128 */
1152 static void C_ccall f_2136(C_word c,C_word t0,C_word t1){
1153 C_word tmp;
1154 C_word t2;
1155 C_word t3;
1156 C_word ab[3],*a=ab;
1157 C_check_for_interrupt;
1158 if(!C_stack_probe(&a)){
1159 C_save_and_reclaim((void*)tr2,(void*)f_2136,2,t0,t1);}
1160 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2139,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1161 C_ports_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1162
1163 /* k2137 in k2134 in k2131 in k2128 */
1164 static void C_ccall f_2139(C_word c,C_word t0,C_word t1){
1165 C_word tmp;
1166 C_word t2;
1167 C_word t3;
1168 C_word ab[3],*a=ab;
1169 C_check_for_interrupt;
1170 if(!C_stack_probe(&a)){
1171 C_save_and_reclaim((void*)tr2,(void*)f_2139,2,t0,t1);}
1172 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2142,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1173 C_extras_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1174
1175 /* k2140 in k2137 in k2134 in k2131 in k2128 */
1176 static void C_ccall f_2142(C_word c,C_word t0,C_word t1){
1177 C_word tmp;
1178 C_word t2;
1179 C_word t3;
1180 C_word ab[3],*a=ab;
1181 C_check_for_interrupt;
1182 if(!C_stack_probe(&a)){
1183 C_save_and_reclaim((void*)tr2,(void*)f_2142,2,t0,t1);}
1184 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2145,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1185 C_srfi_69_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1186
1187 /* k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1188 static void C_ccall f_2145(C_word c,C_word t0,C_word t1){
1189 C_word tmp;
1190 C_word t2;
1191 C_word t3;
1192 C_word ab[3],*a=ab;
1193 C_check_for_interrupt;
1194 if(!C_stack_probe(&a)){
1195 C_save_and_reclaim((void*)tr2,(void*)f_2145,2,t0,t1);}
1196 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2148,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1197 C_srfi_1_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1198
1199 /* k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1200 static void C_ccall f_2148(C_word c,C_word t0,C_word t1){
1201 C_word tmp;
1202 C_word t2;
1203 C_word t3;
1204 C_word ab[3],*a=ab;
1205 C_check_for_interrupt;
1206 if(!C_stack_probe(&a)){
1207 C_save_and_reclaim((void*)tr2,(void*)f_2148,2,t0,t1);}
1208 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2151,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1209 C_srfi_4_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1210
1211 /* k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1212 static void C_ccall f_2151(C_word c,C_word t0,C_word t1){
1213 C_word tmp;
1214 C_word t2;
1215 C_word t3;
1216 C_word ab[3],*a=ab;
1217 C_check_for_interrupt;
1218 if(!C_stack_probe(&a)){
1219 C_save_and_reclaim((void*)tr2,(void*)f_2151,2,t0,t1);}
1220 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2154,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1221 C_posix_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1222
1223 /* k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1224 static void C_ccall f_2154(C_word c,C_word t0,C_word t1){
1225 C_word tmp;
1226 C_word t2;
1227 C_word t3;
1228 C_word ab[3],*a=ab;
1229 C_check_for_interrupt;
1230 if(!C_stack_probe(&a)){
1231 C_save_and_reclaim((void*)tr2,(void*)f_2154,2,t0,t1);}
1232 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2157,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1233 C_srfi_18_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1234
1235 /* k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1236 static void C_ccall f_2157(C_word c,C_word t0,C_word t1){
1237 C_word tmp;
1238 C_word t2;
1239 C_word t3;
1240 C_word ab[3],*a=ab;
1241 C_check_for_interrupt;
1242 if(!C_stack_probe(&a)){
1243 C_save_and_reclaim((void*)tr2,(void*)f_2157,2,t0,t1);}
1244 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2160,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1245 C_srfi_69_toplevel(2,C_SCHEME_UNDEFINED,t2);}
1246
1247 /* k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1248 static void C_ccall f_2160(C_word c,C_word t0,C_word t1){
1249 C_word tmp;
1250 C_word t2;
1251 C_word t3;
1252 C_word ab[3],*a=ab;
1253 C_check_for_interrupt;
1254 if(!C_stack_probe(&a)){
1255 C_save_and_reclaim((void*)tr2,(void*)f_2160,2,t0,t1);}
1256 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2163,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1257 C_trace("##sys#require");
1258 t3=C_retrieve(lf[224]);
1259 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[247]);}
1260
1261 /* k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1262 static void C_ccall f_2163(C_word c,C_word t0,C_word t1){
1263 C_word tmp;
1264 C_word t2;
1265 C_word t3;
1266 C_word ab[3],*a=ab;
1267 C_check_for_interrupt;
1268 if(!C_stack_probe(&a)){
1269 C_save_and_reclaim((void*)tr2,(void*)f_2163,2,t0,t1);}
1270 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2166,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1271 C_trace("##sys#require");
1272 t3=C_retrieve(lf[224]);
1273 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[246]);}
1274
1275 /* k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1276 static void C_ccall f_2166(C_word c,C_word t0,C_word t1){
1277 C_word tmp;
1278 C_word t2;
1279 C_word t3;
1280 C_word ab[3],*a=ab;
1281 C_check_for_interrupt;
1282 if(!C_stack_probe(&a)){
1283 C_save_and_reclaim((void*)tr2,(void*)f_2166,2,t0,t1);}
1284 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2169,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1285 C_trace("##sys#require");
1286 t3=C_retrieve(lf[224]);
1287 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[245]);}
1288
1289 /* k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1290 static void C_ccall f_2169(C_word c,C_word t0,C_word t1){
1291 C_word tmp;
1292 C_word t2;
1293 C_word t3;
1294 C_word t4;
1295 C_word t5;
1296 C_word t6;
1297 C_word t7;
1298 C_word t8;
1299 C_word t9;
1300 C_word t10;
1301 C_word t11;
1302 C_word t12;
1303 C_word t13;
1304 C_word t14;
1305 C_word t15;
1306 C_word t16;
1307 C_word t17;
1308 C_word t18;
1309 C_word t19;
1310 C_word t20;
1311 C_word t21;
1312 C_word t22;
1313 C_word t23;
1314 C_word t24;
1315 C_word t25;
1316 C_word t26;
1317 C_word t27;
1318 C_word t28;
1319 C_word t29;
1320 C_word t30;
1321 C_word t31;
1322 C_word t32;
1323 C_word t33;
1324 C_word t34;
1325 C_word t35;
1326 C_word t36;
1327 C_word t37;
1328 C_word t38;
1329 C_word t39;
1330 C_word t40;
1331 C_word t41;
1332 C_word t42;
1333 C_word ab[81],*a=ab;
1334 C_check_for_interrupt;
1335 if(!C_stack_probe(&a)){
1336 C_save_and_reclaim((void*)tr2,(void*)f_2169,2,t0,t1);}
1337 t2=C_mutate((C_word*)lf[0]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2171,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp));
1338 t3=C_mutate((C_word*)lf[1]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2177,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp));
1339 t4=C_mutate((C_word*)lf[2]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2183,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp));
1340 t5=C_mutate((C_word*)lf[5]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2197,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp));
1341 t6=C_mutate((C_word*)lf[6]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2212,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp));
1342 t7=C_mutate((C_word*)lf[9]+1,lf[10]);
1343 t8=C_mutate((C_word*)lf[11]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2226,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp));
1344 t9=C_mutate((C_word*)lf[12]+1,lf[13]);
1345 t10=C_mutate((C_word*)lf[14]+1,lf[15]);
1346 t11=C_set_block_item(lf[16],0,C_SCHEME_END_OF_LIST);
1347 t12=C_set_block_item(lf[17],0,C_SCHEME_END_OF_LIST);
1348 t13=C_mutate((C_word*)lf[18]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2240,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp));
1349 t14=C_set_block_item(lf[19],0,C_fix(1));
1350 t15=C_set_block_item(lf[20],0,C_fix(0));
1351 t16=C_mutate((C_word*)lf[21]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2252,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp));
1352 t17=C_mutate((C_word*)lf[24]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2284,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp));
1353 t18=C_mutate((C_word*)lf[28]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2340,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp));
1354 t19=C_mutate((C_word*)lf[31]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2369,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp));
1355 t20=C_mutate((C_word*)lf[34]+1,*((C_word*)lf[35]+1));
1356 t21=C_mutate((C_word*)lf[36]+1,*((C_word*)lf[37]+1));
1357 t22=C_mutate((C_word*)lf[38]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2394,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp));
1358 t23=C_mutate((C_word*)lf[39]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2400,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp));
1359 t24=C_mutate((C_word*)lf[41]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2420,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp));
1360 t25=C_mutate((C_word*)lf[48]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2462,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp));
1361 t26=C_mutate((C_word*)lf[55]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2480,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp));
1362 t27=C_mutate((C_word*)lf[32]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2515,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp));
1363 t28=C_mutate((C_word*)lf[84]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2632,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp));
1364 t29=C_mutate((C_word*)lf[89]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2656,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp));
1365 t30=C_set_block_item(lf[91],0,C_fix(0));
1366 t31=C_mutate((C_word*)lf[92]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2669,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp));
1367 t32=C_fix(100);
1368 t33=(*a=C_VECTOR_TYPE|1,a[1]=t32,tmp=(C_word)a,a+=2,tmp);
1369 t34=C_fix(100);
1370 t35=(*a=C_VECTOR_TYPE|1,a[1]=t34,tmp=(C_word)a,a+=2,tmp);
1371 t36=C_fix(100);
1372 t37=(*a=C_VECTOR_TYPE|1,a[1]=t36,tmp=(C_word)a,a+=2,tmp);
1373 t38=C_mutate((C_word*)lf[97]+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2722,a[2]=t35,a[3]=t33,a[4]=t37,a[5]=((C_word)li27),tmp=(C_word)a,a+=6,tmp));
1374 t39=C_mutate((C_word*)lf[98]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2788,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp));
1375 t40=C_mutate((C_word*)lf[118]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2984,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp));
1376 t41=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3033,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1377 C_trace("make-line-reader");
1378 t42=C_retrieve(lf[118]);
1379 ((C_proc2)C_retrieve_proc(t42))(2,t42,t41);}
1380
1381 /* k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1382 static void C_ccall f_3033(C_word c,C_word t0,C_word t1){
1383 C_word tmp;
1384 C_word t2;
1385 C_word t3;
1386 C_word ab[4],*a=ab;
1387 C_check_for_interrupt;
1388 if(!C_stack_probe(&a)){
1389 C_save_and_reclaim((void*)tr2,(void*)f_3033,2,t0,t1);}
1390 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3036,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
1391 C_trace("make-line-reader");
1392 t3=C_retrieve(lf[118]);
1393 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
1394
1395 /* k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1396 static void C_ccall f_3036(C_word c,C_word t0,C_word t1){
1397 C_word tmp;
1398 C_word t2;
1399 C_word t3;
1400 C_word t4;
1401 C_word ab[8],*a=ab;
1402 C_check_for_interrupt;
1403 if(!C_stack_probe(&a)){
1404 C_save_and_reclaim((void*)tr2,(void*)f_3036,2,t0,t1);}
1405 t2=C_mutate((C_word*)lf[125]+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3037,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp));
1406 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3099,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1407 C_trace("make-hash-table");
1408 t4=C_retrieve(lf[244]);
1409 ((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
1410
1411 /* k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1412 static void C_ccall f_3099(C_word c,C_word t0,C_word t1){
1413 C_word tmp;
1414 C_word t2;
1415 C_word t3;
1416 C_word t4;
1417 C_word t5;
1418 C_word t6;
1419 C_word ab[9],*a=ab;
1420 C_check_for_interrupt;
1421 if(!C_stack_probe(&a)){
1422 C_save_and_reclaim((void*)tr2,(void*)f_3099,2,t0,t1);}
1423 t2=C_mutate((C_word*)lf[130]+1,t1);
1424 t3=C_mutate((C_word*)lf[131]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3101,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp));
1425 t4=C_mutate((C_word*)lf[133]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3107,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp));
1426 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1427 C_trace("attr-set!");
1428 t6=C_retrieve(lf[131]);
1429 ((C_proc4)C_retrieve_proc(t6))(4,t6,t5,lf[243],C_SCHEME_FALSE);}
1430
1431 /* k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1432 static void C_ccall f_3114(C_word c,C_word t0,C_word t1){
1433 C_word tmp;
1434 C_word t2;
1435 C_word t3;
1436 C_word ab[3],*a=ab;
1437 C_check_for_interrupt;
1438 if(!C_stack_probe(&a)){
1439 C_save_and_reclaim((void*)tr2,(void*)f_3114,2,t0,t1);}
1440 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3117,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1441 C_trace("attr-set!");
1442 t3=C_retrieve(lf[131]);
1443 ((C_proc4)C_retrieve_proc(t3))(4,t3,t2,lf[242],C_fix(5));}
1444
1445 /* k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1446 static void C_ccall f_3117(C_word c,C_word t0,C_word t1){
1447 C_word tmp;
1448 C_word t2;
1449 C_word t3;
1450 C_word ab[3],*a=ab;
1451 C_check_for_interrupt;
1452 if(!C_stack_probe(&a)){
1453 C_save_and_reclaim((void*)tr2,(void*)f_3117,2,t0,t1);}
1454 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3120,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1455 C_trace("attr-set!");
1456 t3=C_retrieve(lf[131]);
1457 ((C_proc4)C_retrieve_proc(t3))(4,t3,t2,lf[241],C_fix(1));}
1458
1459 /* k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1460 static void C_ccall f_3120(C_word c,C_word t0,C_word t1){
1461 C_word tmp;
1462 C_word t2;
1463 C_word t3;
1464 C_word t4;
1465 C_word t5;
1466 C_word t6;
1467 C_word t7;
1468 C_word ab[15],*a=ab;
1469 C_check_for_interrupt;
1470 if(!C_stack_probe(&a)){
1471 C_save_and_reclaim((void*)tr2,(void*)f_3120,2,t0,t1);}
1472 t2=C_mutate((C_word*)lf[135]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3122,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp));
1473 t3=C_mutate((C_word*)lf[138]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3139,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp));
1474 t4=C_mutate((C_word*)lf[149]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3193,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp));
1475 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3338,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1476 t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4005,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
1477 C_trace("+");
1478 C_plus(5,0,t6,C_retrieve(lf[238]),C_retrieve(lf[239]),C_retrieve(lf[240]));}
1479
1480 /* k4003 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1481 static void C_ccall f_4005(C_word c,C_word t0,C_word t1){
1482 C_word tmp;
1483 C_word t2;
1484 C_word *a;
1485 C_trace("glut:InitDisplayMode");
1486 t2=C_retrieve(lf[237]);
1487 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
1488
1489 /* k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1490 static void C_ccall f_3338(C_word c,C_word t0,C_word t1){
1491 C_word tmp;
1492 C_word t2;
1493 C_word t3;
1494 C_word ab[3],*a=ab;
1495 C_check_for_interrupt;
1496 if(!C_stack_probe(&a)){
1497 C_save_and_reclaim((void*)tr2,(void*)f_3338,2,t0,t1);}
1498 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3341,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1499 C_trace("glut:CreateWindow");
1500 t3=C_retrieve(lf[235]);
1501 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[236]);}
1502
1503 /* k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1504 static void C_ccall f_3341(C_word c,C_word t0,C_word t1){
1505 C_word tmp;
1506 C_word t2;
1507 C_word t3;
1508 C_word ab[3],*a=ab;
1509 C_check_for_interrupt;
1510 if(!C_stack_probe(&a)){
1511 C_save_and_reclaim((void*)tr2,(void*)f_3341,2,t0,t1);}
1512 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3344,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1513 C_trace("glut:ReshapeFunc");
1514 t3=C_retrieve(lf[234]);
1515 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[55]));}
1516
1517 /* k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1518 static void C_ccall f_3344(C_word c,C_word t0,C_word t1){
1519 C_word tmp;
1520 C_word t2;
1521 C_word t3;
1522 C_word ab[3],*a=ab;
1523 C_check_for_interrupt;
1524 if(!C_stack_probe(&a)){
1525 C_save_and_reclaim((void*)tr2,(void*)f_3344,2,t0,t1);}
1526 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3347,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1527 C_trace("glut:DisplayFunc");
1528 t3=C_retrieve(lf[233]);
1529 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[84]));}
1530
1531 /* k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1532 static void C_ccall f_3347(C_word c,C_word t0,C_word t1){
1533 C_word tmp;
1534 C_word t2;
1535 C_word t3;
1536 C_word ab[3],*a=ab;
1537 C_check_for_interrupt;
1538 if(!C_stack_probe(&a)){
1539 C_save_and_reclaim((void*)tr2,(void*)f_3347,2,t0,t1);}
1540 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3350,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1541 C_trace("glut:IdleFunc");
1542 t3=C_retrieve(lf[232]);
1543 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[125]));}
1544
1545 /* k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1546 static void C_ccall f_3350(C_word c,C_word t0,C_word t1){
1547 C_word tmp;
1548 C_word t2;
1549 C_word t3;
1550 C_word ab[3],*a=ab;
1551 C_check_for_interrupt;
1552 if(!C_stack_probe(&a)){
1553 C_save_and_reclaim((void*)tr2,(void*)f_3350,2,t0,t1);}
1554 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1555 C_trace("glut:KeyboardFunc");
1556 t3=C_retrieve(lf[231]);
1557 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[138]));}
1558
1559 /* k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1560 static void C_ccall f_3353(C_word c,C_word t0,C_word t1){
1561 C_word tmp;
1562 C_word t2;
1563 C_word t3;
1564 C_word ab[3],*a=ab;
1565 C_check_for_interrupt;
1566 if(!C_stack_probe(&a)){
1567 C_save_and_reclaim((void*)tr2,(void*)f_3353,2,t0,t1);}
1568 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3356,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1569 C_trace("glut:SpecialFunc");
1570 t3=C_retrieve(lf[230]);
1571 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[149]));}
1572
1573 /* k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1574 static void C_ccall f_3356(C_word c,C_word t0,C_word t1){
1575 C_word tmp;
1576 C_word t2;
1577 C_word t3;
1578 C_word ab[3],*a=ab;
1579 C_check_for_interrupt;
1580 if(!C_stack_probe(&a)){
1581 C_save_and_reclaim((void*)tr2,(void*)f_3356,2,t0,t1);}
1582 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3359,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1583 C_trace("gl:ClearColor");
1584 t3=C_retrieve(lf[226]);
1585 ((C_proc6)C_retrieve_proc(t3))(6,t3,t2,lf[227],lf[228],lf[229],C_fix(0));}
1586
1587 /* k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1588 static void C_ccall f_3359(C_word c,C_word t0,C_word t1){
1589 C_word tmp;
1590 C_word t2;
1591 C_word t3;
1592 C_word ab[3],*a=ab;
1593 C_check_for_interrupt;
1594 if(!C_stack_probe(&a)){
1595 C_save_and_reclaim((void*)tr2,(void*)f_3359,2,t0,t1);}
1596 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3362,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1597 C_trace("##sys#require");
1598 t3=C_retrieve(lf[224]);
1599 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[225]);}
1600
1601 /* k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1602 static void C_ccall f_3362(C_word c,C_word t0,C_word t1){
1603 C_word tmp;
1604 C_word t2;
1605 C_word t3;
1606 C_word t4;
1607 C_word t5;
1608 C_word t6;
1609 C_word t7;
1610 C_word t8;
1611 C_word t9;
1612 C_word t10;
1613 C_word t11;
1614 C_word t12;
1615 C_word t13;
1616 C_word t14;
1617 C_word ab[21],*a=ab;
1618 C_check_for_interrupt;
1619 if(!C_stack_probe(&a)){
1620 C_save_and_reclaim((void*)tr2,(void*)f_3362,2,t0,t1);}
1621 t2=C_mutate((C_word*)lf[159]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3364,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp));
1622 t3=C_set_block_item(lf[167],0,C_SCHEME_FALSE);
1623 t4=C_set_block_item(lf[168],0,C_SCHEME_FALSE);
1624 t5=C_set_block_item(lf[106],0,C_SCHEME_FALSE);
1625 t6=C_set_block_item(lf[128],0,C_SCHEME_FALSE);
1626 t7=C_set_block_item(lf[129],0,C_SCHEME_FALSE);
1627 t8=C_mutate((C_word*)lf[104]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3399,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp));
1628 t9=C_mutate((C_word*)lf[173]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3444,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp));
1629 t10=C_mutate((C_word*)lf[175]+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3482,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp));
1630 t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3525,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
1631 t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3948,a[2]=t11,tmp=(C_word)a,a+=3,tmp);
1632 t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3950,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp);
1633 C_trace("option");
1634 t14=C_retrieve(lf[188]);
1635 ((C_proc6)C_retrieve_proc(t14))(6,t14,t12,lf[223],C_SCHEME_FALSE,C_SCHEME_FALSE,t13);}
1636
1637 /* a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1638 static void C_ccall f_3950(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
1639 C_word tmp;
1640 C_word t7;
1641 C_word t8;
1642 C_word t9;
1643 C_word t10;
1644 C_word t11;
1645 C_word t12;
1646 C_word ab[15],*a=ab;
1647 if(c!=7) C_bad_argc_2(c,7,t0);
1648 C_check_for_interrupt;
1649 if(!C_stack_probe(&a)){
1650 C_save_and_reclaim((void*)tr7,(void*)f_3950,7,t0,t1,t2,t3,t4,t5,t6);}
1651 t7=t4;
1652 t8=(C_truep(t7)?C_SCHEME_FALSE:(C_word)C_eqp(lf[221],lf[200]));
1653 if(C_truep(t8)){
1654 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3960,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
1655 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3967,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
1656 C_trace("current-error-port");
1657 t11=C_retrieve(lf[185]);
1658 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
1659 else{
1660 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3978,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
1661 C_trace("usage");
1662 t10=C_retrieve(lf[159]);
1663 ((C_proc2)C_retrieve_proc(t10))(2,t10,t9);}}
1664
1665 /* k3976 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1666 static void C_ccall f_3978(C_word c,C_word t0,C_word t1){
1667 C_word tmp;
1668 C_word t2;
1669 C_word t3;
1670 C_word t4;
1671 C_word t5;
1672 C_word ab[12],*a=ab;
1673 C_check_for_interrupt;
1674 if(!C_stack_probe(&a)){
1675 C_save_and_reclaim((void*)tr2,(void*)f_3978,2,t0,t1);}
1676 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3985,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
1677 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3989,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
1678 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3991,a[2]=((C_word*)t0)[2],a[3]=((C_word)li63),tmp=(C_word)a,a+=4,tmp);
1679 C_trace("map");
1680 t5=*((C_word*)lf[4]+1);
1681 ((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,lf[222]);}
1682
1683 /* a3990 in k3976 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1684 static void C_ccall f_3991(C_word c,C_word t0,C_word t1,C_word t2){
1685 C_word tmp;
1686 C_word t3;
1687 C_word ab[3],*a=ab;
1688 if(c!=3) C_bad_argc_2(c,3,t0);
1689 C_check_for_interrupt;
1690 if(!C_stack_probe(&a)){
1691 C_save_and_reclaim((void*)tr3,(void*)f_3991,3,t0,t1,t2);}
1692 t3=t1;
1693 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
1694
1695 /* k3987 in k3976 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1696 static void C_ccall f_3989(C_word c,C_word t0,C_word t1){
1697 C_word tmp;
1698 C_word t2;
1699 C_word *a;
1700 C_trace("append");
1701 t2=*((C_word*)lf[105]+1);
1702 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
1703
1704 /* k3983 in k3976 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1705 static void C_ccall f_3985(C_word c,C_word t0,C_word t1){
1706 C_word tmp;
1707 C_word t2;
1708 C_word *a;
1709 C_trace("values");
1710 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
1711
1712 /* k3965 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1713 static void C_ccall f_3967(C_word c,C_word t0,C_word t1){
1714 C_word tmp;
1715 C_word t2;
1716 C_word t3;
1717 C_word ab[5],*a=ab;
1718 C_check_for_interrupt;
1719 if(!C_stack_probe(&a)){
1720 C_save_and_reclaim((void*)tr2,(void*)f_3967,2,t0,t1);}
1721 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3975,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1722 C_trace("argv");
1723 t3=C_retrieve(lf[166]);
1724 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
1725
1726 /* k3973 in k3965 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1727 static void C_ccall f_3975(C_word c,C_word t0,C_word t1){
1728 C_word tmp;
1729 C_word t2;
1730 C_word t3;
1731 C_word *a;
1732 t2=(C_word)C_i_car(t1);
1733 C_trace("fprintf");
1734 t3=C_retrieve(lf[183]);
1735 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
1736
1737 /* k3958 in a3949 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1738 static void C_ccall f_3960(C_word c,C_word t0,C_word t1){
1739 C_word tmp;
1740 C_word t2;
1741 C_word *a;
1742 C_trace("values");
1743 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
1744
1745 /* k3946 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1746 static void C_ccall f_3948(C_word c,C_word t0,C_word t1){
1747 C_word tmp;
1748 C_word t2;
1749 C_word *a;
1750 C_trace("make-args:option");
1751 t2=C_retrieve(lf[180]);
1752 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[197],lf[220]);}
1753
1754 /* k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1755 static void C_ccall f_3525(C_word c,C_word t0,C_word t1){
1756 C_word tmp;
1757 C_word t2;
1758 C_word t3;
1759 C_word t4;
1760 C_word t5;
1761 C_word ab[10],*a=ab;
1762 C_check_for_interrupt;
1763 if(!C_stack_probe(&a)){
1764 C_save_and_reclaim((void*)tr2,(void*)f_3525,2,t0,t1);}
1765 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3529,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
1766 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3872,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
1767 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3874,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp);
1768 C_trace("option");
1769 t5=C_retrieve(lf[188]);
1770 ((C_proc6)C_retrieve_proc(t5))(6,t5,t3,lf[219],C_SCHEME_TRUE,C_SCHEME_FALSE,t4);}
1771
1772 /* a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1773 static void C_ccall f_3874(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
1774 C_word tmp;
1775 C_word t7;
1776 C_word t8;
1777 C_word t9;
1778 C_word t10;
1779 C_word t11;
1780 C_word t12;
1781 C_word t13;
1782 C_word ab[19],*a=ab;
1783 if(c!=7) C_bad_argc_2(c,7,t0);
1784 C_check_for_interrupt;
1785 if(!C_stack_probe(&a)){
1786 C_save_and_reclaim((void*)tr7,(void*)f_3874,7,t0,t1,t2,t3,t4,t5,t6);}
1787 t7=t4;
1788 t8=(C_truep(t7)?C_SCHEME_FALSE:C_SCHEME_TRUE);
1789 if(C_truep(t8)){
1790 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3884,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
1791 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3891,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
1792 C_trace("current-error-port");
1793 t11=C_retrieve(lf[185]);
1794 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
1795 else{
1796 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3902,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
1797 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3921,a[2]=t4,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp);
1798 C_trace("handle-open-file");
1799 t11=C_retrieve(lf[175]);
1800 ((C_proc4)C_retrieve_proc(t11))(4,t11,t9,t4,t10);}}
1801
1802 /* a3920 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1803 static void C_ccall f_3921(C_word c,C_word t0,C_word t1){
1804 C_word tmp;
1805 C_word t2;
1806 C_word t3;
1807 C_word ab[3],*a=ab;
1808 if(c!=2) C_bad_argc_2(c,2,t0);
1809 C_check_for_interrupt;
1810 if(!C_stack_probe(&a)){
1811 C_save_and_reclaim((void*)tr2,(void*)f_3921,2,t0,t1);}
1812 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3929,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
1813 if(C_truep((C_word)C_i_equalp(lf[217],((C_word*)t0)[2]))){
1814 C_trace("current-input-port");
1815 t3=*((C_word*)lf[218]+1);
1816 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
1817 else{
1818 C_trace("open-input-file");
1819 t3=*((C_word*)lf[187]+1);
1820 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)t0)[2]);}}
1821
1822 /* k3927 in a3920 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1823 static void C_ccall f_3929(C_word c,C_word t0,C_word t1){
1824 C_word tmp;
1825 C_word t2;
1826 C_word *a;
1827 C_trace("with-input-from-port");
1828 t2=C_retrieve(lf[216]);
1829 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[2],t1,C_retrieve(lf[173]));}
1830
1831 /* k3900 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1832 static void C_ccall f_3902(C_word c,C_word t0,C_word t1){
1833 C_word tmp;
1834 C_word t2;
1835 C_word t3;
1836 C_word t4;
1837 C_word t5;
1838 C_word ab[12],*a=ab;
1839 C_check_for_interrupt;
1840 if(!C_stack_probe(&a)){
1841 C_save_and_reclaim((void*)tr2,(void*)f_3902,2,t0,t1);}
1842 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3909,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
1843 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3913,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
1844 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3915,a[2]=((C_word*)t0)[2],a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp);
1845 C_trace("map");
1846 t5=*((C_word*)lf[4]+1);
1847 ((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,lf[215]);}
1848
1849 /* a3914 in k3900 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1850 static void C_ccall f_3915(C_word c,C_word t0,C_word t1,C_word t2){
1851 C_word tmp;
1852 C_word t3;
1853 C_word ab[3],*a=ab;
1854 if(c!=3) C_bad_argc_2(c,3,t0);
1855 C_check_for_interrupt;
1856 if(!C_stack_probe(&a)){
1857 C_save_and_reclaim((void*)tr3,(void*)f_3915,3,t0,t1,t2);}
1858 t3=t1;
1859 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
1860
1861 /* k3911 in k3900 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1862 static void C_ccall f_3913(C_word c,C_word t0,C_word t1){
1863 C_word tmp;
1864 C_word t2;
1865 C_word *a;
1866 C_trace("append");
1867 t2=*((C_word*)lf[105]+1);
1868 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
1869
1870 /* k3907 in k3900 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1871 static void C_ccall f_3909(C_word c,C_word t0,C_word t1){
1872 C_word tmp;
1873 C_word t2;
1874 C_word *a;
1875 C_trace("values");
1876 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
1877
1878 /* k3889 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1879 static void C_ccall f_3891(C_word c,C_word t0,C_word t1){
1880 C_word tmp;
1881 C_word t2;
1882 C_word t3;
1883 C_word ab[5],*a=ab;
1884 C_check_for_interrupt;
1885 if(!C_stack_probe(&a)){
1886 C_save_and_reclaim((void*)tr2,(void*)f_3891,2,t0,t1);}
1887 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3899,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1888 C_trace("argv");
1889 t3=C_retrieve(lf[166]);
1890 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
1891
1892 /* k3897 in k3889 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1893 static void C_ccall f_3899(C_word c,C_word t0,C_word t1){
1894 C_word tmp;
1895 C_word t2;
1896 C_word t3;
1897 C_word *a;
1898 t2=(C_word)C_i_car(t1);
1899 C_trace("fprintf");
1900 t3=C_retrieve(lf[183]);
1901 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
1902
1903 /* k3882 in a3873 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1904 static void C_ccall f_3884(C_word c,C_word t0,C_word t1){
1905 C_word tmp;
1906 C_word t2;
1907 C_word *a;
1908 C_trace("values");
1909 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
1910
1911 /* k3870 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1912 static void C_ccall f_3872(C_word c,C_word t0,C_word t1){
1913 C_word tmp;
1914 C_word t2;
1915 C_word *a;
1916 C_trace("make-args:option");
1917 t2=C_retrieve(lf[180]);
1918 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[213],lf[214]);}
1919
1920 /* k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1921 static void C_ccall f_3529(C_word c,C_word t0,C_word t1){
1922 C_word tmp;
1923 C_word t2;
1924 C_word t3;
1925 C_word t4;
1926 C_word t5;
1927 C_word ab[11],*a=ab;
1928 C_check_for_interrupt;
1929 if(!C_stack_probe(&a)){
1930 C_save_and_reclaim((void*)tr2,(void*)f_3529,2,t0,t1);}
1931 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3533,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
1932 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3798,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
1933 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3800,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp);
1934 C_trace("option");
1935 t5=C_retrieve(lf[188]);
1936 ((C_proc6)C_retrieve_proc(t5))(6,t5,t3,lf[212],C_SCHEME_TRUE,C_SCHEME_FALSE,t4);}
1937
1938 /* a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1939 static void C_ccall f_3800(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
1940 C_word tmp;
1941 C_word t7;
1942 C_word t8;
1943 C_word t9;
1944 C_word t10;
1945 C_word t11;
1946 C_word t12;
1947 C_word t13;
1948 C_word t14;
1949 C_word ab[22],*a=ab;
1950 if(c!=7) C_bad_argc_2(c,7,t0);
1951 C_check_for_interrupt;
1952 if(!C_stack_probe(&a)){
1953 C_save_and_reclaim((void*)tr7,(void*)f_3800,7,t0,t1,t2,t3,t4,t5,t6);}
1954 t7=t4;
1955 t8=(C_truep(t7)?C_SCHEME_FALSE:C_SCHEME_TRUE);
1956 if(C_truep(t8)){
1957 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3810,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
1958 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3817,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
1959 C_trace("current-error-port");
1960 t11=C_retrieve(lf[185]);
1961 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
1962 else{
1963 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3828,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
1964 if(C_truep((C_word)C_i_equalp(lf[209],t4))){
1965 t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3852,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
1966 C_trace("current-output-port");
1967 t11=*((C_word*)lf[210]+1);
1968 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
1969 else{
1970 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3857,a[2]=t4,a[3]=((C_word)li58),tmp=(C_word)a,a+=4,tmp);
1971 C_trace("handle-open-file");
1972 t11=C_retrieve(lf[175]);
1973 ((C_proc4)C_retrieve_proc(t11))(4,t11,t9,t4,t10);}}}
1974
1975 /* a3856 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1976 static void C_ccall f_3857(C_word c,C_word t0,C_word t1){
1977 C_word tmp;
1978 C_word t2;
1979 C_word t3;
1980 C_word ab[3],*a=ab;
1981 if(c!=2) C_bad_argc_2(c,2,t0);
1982 C_check_for_interrupt;
1983 if(!C_stack_probe(&a)){
1984 C_save_and_reclaim((void*)tr2,(void*)f_3857,2,t0,t1);}
1985 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3862,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
1986 C_trace("open-output-file");
1987 t3=*((C_word*)lf[211]+1);
1988 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)t0)[2]);}
1989
1990 /* k3860 in a3856 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
1991 static void C_ccall f_3862(C_word c,C_word t0,C_word t1){
1992 C_word tmp;
1993 C_word t2;
1994 C_word t3;
1995 C_word *a;
1996 t2=C_mutate((C_word*)lf[167]+1,t1);
1997 t3=((C_word*)t0)[2];
1998 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
1999
2000 /* k3850 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2001 static void C_ccall f_3852(C_word c,C_word t0,C_word t1){
2002 C_word tmp;
2003 C_word t2;
2004 C_word t3;
2005 C_word *a;
2006 t2=C_mutate((C_word*)lf[167]+1,t1);
2007 t3=((C_word*)t0)[2];
2008 f_3828(2,t3,t2);}
2009
2010 /* k3826 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2011 static void C_ccall f_3828(C_word c,C_word t0,C_word t1){
2012 C_word tmp;
2013 C_word t2;
2014 C_word t3;
2015 C_word t4;
2016 C_word t5;
2017 C_word ab[12],*a=ab;
2018 C_check_for_interrupt;
2019 if(!C_stack_probe(&a)){
2020 C_save_and_reclaim((void*)tr2,(void*)f_3828,2,t0,t1);}
2021 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3835,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
2022 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3839,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2023 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3841,a[2]=((C_word*)t0)[2],a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp);
2024 C_trace("map");
2025 t5=*((C_word*)lf[4]+1);
2026 ((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,lf[208]);}
2027
2028 /* a3840 in k3826 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2029 static void C_ccall f_3841(C_word c,C_word t0,C_word t1,C_word t2){
2030 C_word tmp;
2031 C_word t3;
2032 C_word ab[3],*a=ab;
2033 if(c!=3) C_bad_argc_2(c,3,t0);
2034 C_check_for_interrupt;
2035 if(!C_stack_probe(&a)){
2036 C_save_and_reclaim((void*)tr3,(void*)f_3841,3,t0,t1,t2);}
2037 t3=t1;
2038 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
2039
2040 /* k3837 in k3826 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2041 static void C_ccall f_3839(C_word c,C_word t0,C_word t1){
2042 C_word tmp;
2043 C_word t2;
2044 C_word *a;
2045 C_trace("append");
2046 t2=*((C_word*)lf[105]+1);
2047 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2048
2049 /* k3833 in k3826 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2050 static void C_ccall f_3835(C_word c,C_word t0,C_word t1){
2051 C_word tmp;
2052 C_word t2;
2053 C_word *a;
2054 C_trace("values");
2055 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2056
2057 /* k3815 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2058 static void C_ccall f_3817(C_word c,C_word t0,C_word t1){
2059 C_word tmp;
2060 C_word t2;
2061 C_word t3;
2062 C_word ab[5],*a=ab;
2063 C_check_for_interrupt;
2064 if(!C_stack_probe(&a)){
2065 C_save_and_reclaim((void*)tr2,(void*)f_3817,2,t0,t1);}
2066 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3825,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2067 C_trace("argv");
2068 t3=C_retrieve(lf[166]);
2069 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2070
2071 /* k3823 in k3815 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2072 static void C_ccall f_3825(C_word c,C_word t0,C_word t1){
2073 C_word tmp;
2074 C_word t2;
2075 C_word t3;
2076 C_word *a;
2077 t2=(C_word)C_i_car(t1);
2078 C_trace("fprintf");
2079 t3=C_retrieve(lf[183]);
2080 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
2081
2082 /* k3808 in a3799 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2083 static void C_ccall f_3810(C_word c,C_word t0,C_word t1){
2084 C_word tmp;
2085 C_word t2;
2086 C_word *a;
2087 C_trace("values");
2088 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
2089
2090 /* k3796 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2091 static void C_ccall f_3798(C_word c,C_word t0,C_word t1){
2092 C_word tmp;
2093 C_word t2;
2094 C_word *a;
2095 C_trace("make-args:option");
2096 t2=C_retrieve(lf[180]);
2097 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[206],lf[207]);}
2098
2099 /* k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2100 static void C_ccall f_3533(C_word c,C_word t0,C_word t1){
2101 C_word tmp;
2102 C_word t2;
2103 C_word t3;
2104 C_word t4;
2105 C_word t5;
2106 C_word ab[12],*a=ab;
2107 C_check_for_interrupt;
2108 if(!C_stack_probe(&a)){
2109 C_save_and_reclaim((void*)tr2,(void*)f_3533,2,t0,t1);}
2110 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3537,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
2111 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3743,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2112 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3745,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp);
2113 C_trace("option");
2114 t5=C_retrieve(lf[188]);
2115 ((C_proc6)C_retrieve_proc(t5))(6,t5,t3,lf[205],C_SCHEME_FALSE,C_SCHEME_FALSE,t4);}
2116
2117 /* a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2118 static void C_ccall f_3745(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
2119 C_word tmp;
2120 C_word t7;
2121 C_word t8;
2122 C_word t9;
2123 C_word t10;
2124 C_word t11;
2125 C_word t12;
2126 C_word t13;
2127 C_word t14;
2128 C_word t15;
2129 C_word ab[21],*a=ab;
2130 if(c!=7) C_bad_argc_2(c,7,t0);
2131 C_check_for_interrupt;
2132 if(!C_stack_probe(&a)){
2133 C_save_and_reclaim((void*)tr7,(void*)f_3745,7,t0,t1,t2,t3,t4,t5,t6);}
2134 t7=t4;
2135 t8=(C_truep(t7)?C_SCHEME_FALSE:(C_word)C_eqp(lf[199],lf[200]));
2136 if(C_truep(t8)){
2137 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3755,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
2138 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3762,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
2139 C_trace("current-error-port");
2140 t11=C_retrieve(lf[185]);
2141 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
2142 else{
2143 t9=C_set_block_item(lf[168],0,C_SCHEME_TRUE);
2144 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3778,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
2145 t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3782,a[2]=t5,a[3]=t10,tmp=(C_word)a,a+=4,tmp);
2146 t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3784,a[2]=t4,a[3]=((C_word)li55),tmp=(C_word)a,a+=4,tmp);
2147 C_trace("map");
2148 t13=*((C_word*)lf[4]+1);
2149 ((C_proc4)(void*)(*((C_word*)t13+1)))(4,t13,t11,t12,lf[204]);}}
2150
2151 /* a3783 in a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2152 static void C_ccall f_3784(C_word c,C_word t0,C_word t1,C_word t2){
2153 C_word tmp;
2154 C_word t3;
2155 C_word ab[3],*a=ab;
2156 if(c!=3) C_bad_argc_2(c,3,t0);
2157 C_check_for_interrupt;
2158 if(!C_stack_probe(&a)){
2159 C_save_and_reclaim((void*)tr3,(void*)f_3784,3,t0,t1,t2);}
2160 t3=t1;
2161 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
2162
2163 /* k3780 in a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2164 static void C_ccall f_3782(C_word c,C_word t0,C_word t1){
2165 C_word tmp;
2166 C_word t2;
2167 C_word *a;
2168 C_trace("append");
2169 t2=*((C_word*)lf[105]+1);
2170 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2171
2172 /* k3776 in a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2173 static void C_ccall f_3778(C_word c,C_word t0,C_word t1){
2174 C_word tmp;
2175 C_word t2;
2176 C_word *a;
2177 C_trace("values");
2178 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2179
2180 /* k3760 in a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2181 static void C_ccall f_3762(C_word c,C_word t0,C_word t1){
2182 C_word tmp;
2183 C_word t2;
2184 C_word t3;
2185 C_word ab[5],*a=ab;
2186 C_check_for_interrupt;
2187 if(!C_stack_probe(&a)){
2188 C_save_and_reclaim((void*)tr2,(void*)f_3762,2,t0,t1);}
2189 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3770,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2190 C_trace("argv");
2191 t3=C_retrieve(lf[166]);
2192 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2193
2194 /* k3768 in k3760 in a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2195 static void C_ccall f_3770(C_word c,C_word t0,C_word t1){
2196 C_word tmp;
2197 C_word t2;
2198 C_word t3;
2199 C_word *a;
2200 t2=(C_word)C_i_car(t1);
2201 C_trace("fprintf");
2202 t3=C_retrieve(lf[183]);
2203 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
2204
2205 /* k3753 in a3744 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2206 static void C_ccall f_3755(C_word c,C_word t0,C_word t1){
2207 C_word tmp;
2208 C_word t2;
2209 C_word *a;
2210 C_trace("values");
2211 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
2212
2213 /* k3741 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2214 static void C_ccall f_3743(C_word c,C_word t0,C_word t1){
2215 C_word tmp;
2216 C_word t2;
2217 C_word *a;
2218 C_trace("make-args:option");
2219 t2=C_retrieve(lf[180]);
2220 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[197],lf[203]);}
2221
2222 /* k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2223 static void C_ccall f_3537(C_word c,C_word t0,C_word t1){
2224 C_word tmp;
2225 C_word t2;
2226 C_word t3;
2227 C_word t4;
2228 C_word t5;
2229 C_word ab[13],*a=ab;
2230 C_check_for_interrupt;
2231 if(!C_stack_probe(&a)){
2232 C_save_and_reclaim((void*)tr2,(void*)f_3537,2,t0,t1);}
2233 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3541,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp);
2234 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3688,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2235 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3690,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp);
2236 C_trace("option");
2237 t5=C_retrieve(lf[188]);
2238 ((C_proc6)C_retrieve_proc(t5))(6,t5,t3,lf[202],C_SCHEME_FALSE,C_SCHEME_FALSE,t4);}
2239
2240 /* a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2241 static void C_ccall f_3690(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
2242 C_word tmp;
2243 C_word t7;
2244 C_word t8;
2245 C_word t9;
2246 C_word t10;
2247 C_word t11;
2248 C_word t12;
2249 C_word t13;
2250 C_word t14;
2251 C_word t15;
2252 C_word ab[21],*a=ab;
2253 if(c!=7) C_bad_argc_2(c,7,t0);
2254 C_check_for_interrupt;
2255 if(!C_stack_probe(&a)){
2256 C_save_and_reclaim((void*)tr7,(void*)f_3690,7,t0,t1,t2,t3,t4,t5,t6);}
2257 t7=t4;
2258 t8=(C_truep(t7)?C_SCHEME_FALSE:(C_word)C_eqp(lf[199],lf[200]));
2259 if(C_truep(t8)){
2260 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3700,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
2261 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3707,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
2262 C_trace("current-error-port");
2263 t11=C_retrieve(lf[185]);
2264 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
2265 else{
2266 t9=C_set_block_item(lf[106],0,C_SCHEME_TRUE);
2267 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3723,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
2268 t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3727,a[2]=t5,a[3]=t10,tmp=(C_word)a,a+=4,tmp);
2269 t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3729,a[2]=t4,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp);
2270 C_trace("map");
2271 t13=*((C_word*)lf[4]+1);
2272 ((C_proc4)(void*)(*((C_word*)t13+1)))(4,t13,t11,t12,lf[201]);}}
2273
2274 /* a3728 in a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2275 static void C_ccall f_3729(C_word c,C_word t0,C_word t1,C_word t2){
2276 C_word tmp;
2277 C_word t3;
2278 C_word ab[3],*a=ab;
2279 if(c!=3) C_bad_argc_2(c,3,t0);
2280 C_check_for_interrupt;
2281 if(!C_stack_probe(&a)){
2282 C_save_and_reclaim((void*)tr3,(void*)f_3729,3,t0,t1,t2);}
2283 t3=t1;
2284 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
2285
2286 /* k3725 in a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2287 static void C_ccall f_3727(C_word c,C_word t0,C_word t1){
2288 C_word tmp;
2289 C_word t2;
2290 C_word *a;
2291 C_trace("append");
2292 t2=*((C_word*)lf[105]+1);
2293 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2294
2295 /* k3721 in a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2296 static void C_ccall f_3723(C_word c,C_word t0,C_word t1){
2297 C_word tmp;
2298 C_word t2;
2299 C_word *a;
2300 C_trace("values");
2301 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2302
2303 /* k3705 in a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2304 static void C_ccall f_3707(C_word c,C_word t0,C_word t1){
2305 C_word tmp;
2306 C_word t2;
2307 C_word t3;
2308 C_word ab[5],*a=ab;
2309 C_check_for_interrupt;
2310 if(!C_stack_probe(&a)){
2311 C_save_and_reclaim((void*)tr2,(void*)f_3707,2,t0,t1);}
2312 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3715,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2313 C_trace("argv");
2314 t3=C_retrieve(lf[166]);
2315 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2316
2317 /* k3713 in k3705 in a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2318 static void C_ccall f_3715(C_word c,C_word t0,C_word t1){
2319 C_word tmp;
2320 C_word t2;
2321 C_word t3;
2322 C_word *a;
2323 t2=(C_word)C_i_car(t1);
2324 C_trace("fprintf");
2325 t3=C_retrieve(lf[183]);
2326 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
2327
2328 /* k3698 in a3689 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2329 static void C_ccall f_3700(C_word c,C_word t0,C_word t1){
2330 C_word tmp;
2331 C_word t2;
2332 C_word *a;
2333 C_trace("values");
2334 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
2335
2336 /* k3686 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2337 static void C_ccall f_3688(C_word c,C_word t0,C_word t1){
2338 C_word tmp;
2339 C_word t2;
2340 C_word *a;
2341 C_trace("make-args:option");
2342 t2=C_retrieve(lf[180]);
2343 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[197],lf[198]);}
2344
2345 /* k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2346 static void C_ccall f_3541(C_word c,C_word t0,C_word t1){
2347 C_word tmp;
2348 C_word t2;
2349 C_word t3;
2350 C_word t4;
2351 C_word t5;
2352 C_word ab[14],*a=ab;
2353 C_check_for_interrupt;
2354 if(!C_stack_probe(&a)){
2355 C_save_and_reclaim((void*)tr2,(void*)f_3541,2,t0,t1);}
2356 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_3545,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
2357 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3617,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2358 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3619,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp);
2359 C_trace("option");
2360 t5=C_retrieve(lf[188]);
2361 ((C_proc6)C_retrieve_proc(t5))(6,t5,t3,lf[196],C_SCHEME_TRUE,C_SCHEME_FALSE,t4);}
2362
2363 /* a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2364 static void C_ccall f_3619(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
2365 C_word tmp;
2366 C_word t7;
2367 C_word t8;
2368 C_word t9;
2369 C_word t10;
2370 C_word t11;
2371 C_word t12;
2372 C_word t13;
2373 C_word ab[18],*a=ab;
2374 if(c!=7) C_bad_argc_2(c,7,t0);
2375 C_check_for_interrupt;
2376 if(!C_stack_probe(&a)){
2377 C_save_and_reclaim((void*)tr7,(void*)f_3619,7,t0,t1,t2,t3,t4,t5,t6);}
2378 t7=t4;
2379 t8=(C_truep(t7)?C_SCHEME_FALSE:C_SCHEME_TRUE);
2380 if(C_truep(t8)){
2381 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3629,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
2382 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3636,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
2383 C_trace("current-error-port");
2384 t11=C_retrieve(lf[185]);
2385 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
2386 else{
2387 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3647,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
2388 t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3678,a[2]=t9,tmp=(C_word)a,a+=3,tmp);
2389 C_trace("string-append");
2390 t11=*((C_word*)lf[122]+1);
2391 ((C_proc5)C_retrieve_proc(t11))(5,t11,t10,lf[194],t4,lf[195]);}}
2392
2393 /* k3676 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2394 static void C_ccall f_3678(C_word c,C_word t0,C_word t1){
2395 C_word tmp;
2396 C_word t2;
2397 C_word *a;
2398 C_trace("system");
2399 t2=C_retrieve(lf[193]);
2400 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
2401
2402 /* k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2403 static void C_ccall f_3647(C_word c,C_word t0,C_word t1){
2404 C_word tmp;
2405 C_word t2;
2406 C_word t3;
2407 C_word t4;
2408 C_word ab[10],*a=ab;
2409 C_check_for_interrupt;
2410 if(!C_stack_probe(&a)){
2411 C_save_and_reclaim((void*)tr2,(void*)f_3647,2,t0,t1);}
2412 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3650,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
2413 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3669,a[2]=((C_word*)t0)[2],a[3]=((C_word)li51),tmp=(C_word)a,a+=4,tmp);
2414 C_trace("handle-open-file");
2415 t4=C_retrieve(lf[175]);
2416 ((C_proc4)C_retrieve_proc(t4))(4,t4,t2,((C_word*)t0)[2],t3);}
2417
2418 /* a3668 in k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2419 static void C_ccall f_3669(C_word c,C_word t0,C_word t1){
2420 C_word tmp;
2421 C_word t2;
2422 C_word t3;
2423 C_word ab[3],*a=ab;
2424 if(c!=2) C_bad_argc_2(c,2,t0);
2425 C_check_for_interrupt;
2426 if(!C_stack_probe(&a)){
2427 C_save_and_reclaim((void*)tr2,(void*)f_3669,2,t0,t1);}
2428 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3674,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2429 C_trace("open-input-file");
2430 t3=*((C_word*)lf[187]+1);
2431 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)t0)[2]);}
2432
2433 /* k3672 in a3668 in k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2434 static void C_ccall f_3674(C_word c,C_word t0,C_word t1){
2435 C_word tmp;
2436 C_word t2;
2437 C_word t3;
2438 C_word *a;
2439 t2=C_mutate((C_word*)lf[128]+1,t1);
2440 t3=((C_word*)t0)[2];
2441 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
2442
2443 /* k3648 in k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2444 static void C_ccall f_3650(C_word c,C_word t0,C_word t1){
2445 C_word tmp;
2446 C_word t2;
2447 C_word t3;
2448 C_word t4;
2449 C_word t5;
2450 C_word ab[12],*a=ab;
2451 C_check_for_interrupt;
2452 if(!C_stack_probe(&a)){
2453 C_save_and_reclaim((void*)tr2,(void*)f_3650,2,t0,t1);}
2454 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3657,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
2455 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3661,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2456 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3663,a[2]=((C_word*)t0)[2],a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp);
2457 C_trace("map");
2458 t5=*((C_word*)lf[4]+1);
2459 ((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,lf[192]);}
2460
2461 /* a3662 in k3648 in k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2462 static void C_ccall f_3663(C_word c,C_word t0,C_word t1,C_word t2){
2463 C_word tmp;
2464 C_word t3;
2465 C_word ab[3],*a=ab;
2466 if(c!=3) C_bad_argc_2(c,3,t0);
2467 C_check_for_interrupt;
2468 if(!C_stack_probe(&a)){
2469 C_save_and_reclaim((void*)tr3,(void*)f_3663,3,t0,t1,t2);}
2470 t3=t1;
2471 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
2472
2473 /* k3659 in k3648 in k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2474 static void C_ccall f_3661(C_word c,C_word t0,C_word t1){
2475 C_word tmp;
2476 C_word t2;
2477 C_word *a;
2478 C_trace("append");
2479 t2=*((C_word*)lf[105]+1);
2480 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2481
2482 /* k3655 in k3648 in k3645 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2483 static void C_ccall f_3657(C_word c,C_word t0,C_word t1){
2484 C_word tmp;
2485 C_word t2;
2486 C_word *a;
2487 C_trace("values");
2488 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2489
2490 /* k3634 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2491 static void C_ccall f_3636(C_word c,C_word t0,C_word t1){
2492 C_word tmp;
2493 C_word t2;
2494 C_word t3;
2495 C_word ab[5],*a=ab;
2496 C_check_for_interrupt;
2497 if(!C_stack_probe(&a)){
2498 C_save_and_reclaim((void*)tr2,(void*)f_3636,2,t0,t1);}
2499 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3644,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2500 C_trace("argv");
2501 t3=C_retrieve(lf[166]);
2502 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2503
2504 /* k3642 in k3634 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2505 static void C_ccall f_3644(C_word c,C_word t0,C_word t1){
2506 C_word tmp;
2507 C_word t2;
2508 C_word t3;
2509 C_word *a;
2510 t2=(C_word)C_i_car(t1);
2511 C_trace("fprintf");
2512 t3=C_retrieve(lf[183]);
2513 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
2514
2515 /* k3627 in a3618 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2516 static void C_ccall f_3629(C_word c,C_word t0,C_word t1){
2517 C_word tmp;
2518 C_word t2;
2519 C_word *a;
2520 C_trace("values");
2521 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
2522
2523 /* k3615 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2524 static void C_ccall f_3617(C_word c,C_word t0,C_word t1){
2525 C_word tmp;
2526 C_word t2;
2527 C_word *a;
2528 C_trace("make-args:option");
2529 t2=C_retrieve(lf[180]);
2530 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[190],lf[191]);}
2531
2532 /* k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2533 static void C_ccall f_3545(C_word c,C_word t0,C_word t1){
2534 C_word tmp;
2535 C_word t2;
2536 C_word t3;
2537 C_word t4;
2538 C_word t5;
2539 C_word ab[15],*a=ab;
2540 C_check_for_interrupt;
2541 if(!C_stack_probe(&a)){
2542 C_save_and_reclaim((void*)tr2,(void*)f_3545,2,t0,t1);}
2543 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3549,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp);
2544 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3553,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2545 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3555,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp);
2546 C_trace("option");
2547 t5=C_retrieve(lf[188]);
2548 ((C_proc6)C_retrieve_proc(t5))(6,t5,t3,lf[189],C_SCHEME_TRUE,C_SCHEME_FALSE,t4);}
2549
2550 /* a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2551 static void C_ccall f_3555(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6){
2552 C_word tmp;
2553 C_word t7;
2554 C_word t8;
2555 C_word t9;
2556 C_word t10;
2557 C_word t11;
2558 C_word t12;
2559 C_word t13;
2560 C_word ab[19],*a=ab;
2561 if(c!=7) C_bad_argc_2(c,7,t0);
2562 C_check_for_interrupt;
2563 if(!C_stack_probe(&a)){
2564 C_save_and_reclaim((void*)tr7,(void*)f_3555,7,t0,t1,t2,t3,t4,t5,t6);}
2565 t7=t4;
2566 t8=(C_truep(t7)?C_SCHEME_FALSE:C_SCHEME_TRUE);
2567 if(C_truep(t8)){
2568 t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3565,a[2]=t6,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
2569 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3572,a[2]=t3,a[3]=t9,tmp=(C_word)a,a+=4,tmp);
2570 C_trace("current-error-port");
2571 t11=C_retrieve(lf[185]);
2572 ((C_proc2)C_retrieve_proc(t11))(2,t11,t10);}
2573 else{
2574 t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3583,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
2575 t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3602,a[2]=t4,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp);
2576 C_trace("handle-open-file");
2577 t11=C_retrieve(lf[175]);
2578 ((C_proc4)C_retrieve_proc(t11))(4,t11,t9,t4,t10);}}
2579
2580 /* a3601 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2581 static void C_ccall f_3602(C_word c,C_word t0,C_word t1){
2582 C_word tmp;
2583 C_word t2;
2584 C_word t3;
2585 C_word ab[3],*a=ab;
2586 if(c!=2) C_bad_argc_2(c,2,t0);
2587 C_check_for_interrupt;
2588 if(!C_stack_probe(&a)){
2589 C_save_and_reclaim((void*)tr2,(void*)f_3602,2,t0,t1);}
2590 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3607,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2591 C_trace("open-input-file");
2592 t3=*((C_word*)lf[187]+1);
2593 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)t0)[2]);}
2594
2595 /* k3605 in a3601 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2596 static void C_ccall f_3607(C_word c,C_word t0,C_word t1){
2597 C_word tmp;
2598 C_word t2;
2599 C_word t3;
2600 C_word *a;
2601 t2=C_mutate((C_word*)lf[129]+1,t1);
2602 t3=((C_word*)t0)[2];
2603 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
2604
2605 /* k3581 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2606 static void C_ccall f_3583(C_word c,C_word t0,C_word t1){
2607 C_word tmp;
2608 C_word t2;
2609 C_word t3;
2610 C_word t4;
2611 C_word t5;
2612 C_word ab[12],*a=ab;
2613 C_check_for_interrupt;
2614 if(!C_stack_probe(&a)){
2615 C_save_and_reclaim((void*)tr2,(void*)f_3583,2,t0,t1);}
2616 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3590,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
2617 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3594,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
2618 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3596,a[2]=((C_word*)t0)[2],a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp);
2619 C_trace("map");
2620 t5=*((C_word*)lf[4]+1);
2621 ((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t3,t4,lf[186]);}
2622
2623 /* a3595 in k3581 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2624 static void C_ccall f_3596(C_word c,C_word t0,C_word t1,C_word t2){
2625 C_word tmp;
2626 C_word t3;
2627 C_word ab[3],*a=ab;
2628 if(c!=3) C_bad_argc_2(c,3,t0);
2629 C_check_for_interrupt;
2630 if(!C_stack_probe(&a)){
2631 C_save_and_reclaim((void*)tr3,(void*)f_3596,3,t0,t1,t2);}
2632 t3=t1;
2633 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_cons(&a,2,t2,((C_word*)t0)[2]));}
2634
2635 /* k3592 in k3581 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2636 static void C_ccall f_3594(C_word c,C_word t0,C_word t1){
2637 C_word tmp;
2638 C_word t2;
2639 C_word *a;
2640 C_trace("append");
2641 t2=*((C_word*)lf[105]+1);
2642 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2643
2644 /* k3588 in k3581 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2645 static void C_ccall f_3590(C_word c,C_word t0,C_word t1){
2646 C_word tmp;
2647 C_word t2;
2648 C_word *a;
2649 C_trace("values");
2650 C_values(4,0,((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
2651
2652 /* k3570 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2653 static void C_ccall f_3572(C_word c,C_word t0,C_word t1){
2654 C_word tmp;
2655 C_word t2;
2656 C_word t3;
2657 C_word ab[5],*a=ab;
2658 C_check_for_interrupt;
2659 if(!C_stack_probe(&a)){
2660 C_save_and_reclaim((void*)tr2,(void*)f_3572,2,t0,t1);}
2661 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3580,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2662 C_trace("argv");
2663 t3=C_retrieve(lf[166]);
2664 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2665
2666 /* k3578 in k3570 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2667 static void C_ccall f_3580(C_word c,C_word t0,C_word t1){
2668 C_word tmp;
2669 C_word t2;
2670 C_word t3;
2671 C_word *a;
2672 t2=(C_word)C_i_car(t1);
2673 C_trace("fprintf");
2674 t3=C_retrieve(lf[183]);
2675 ((C_proc6)C_retrieve_proc(t3))(6,t3,((C_word*)t0)[4],((C_word*)t0)[3],lf[184],t2,((C_word*)t0)[2]);}
2676
2677 /* k3563 in a3554 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2678 static void C_ccall f_3565(C_word c,C_word t0,C_word t1){
2679 C_word tmp;
2680 C_word t2;
2681 C_word *a;
2682 C_trace("values");
2683 C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
2684
2685 /* k3551 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2686 static void C_ccall f_3553(C_word c,C_word t0,C_word t1){
2687 C_word tmp;
2688 C_word t2;
2689 C_word *a;
2690 C_trace("make-args:option");
2691 t2=C_retrieve(lf[180]);
2692 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,lf[181],lf[182]);}
2693
2694 /* k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2695 static void C_ccall f_3549(C_word c,C_word t0,C_word t1){
2696 C_word tmp;
2697 C_word t2;
2698 C_word t3;
2699 C_word t4;
2700 C_word t5;
2701 C_word t6;
2702 C_word ab[27],*a=ab;
2703 C_check_for_interrupt;
2704 if(!C_stack_probe(&a)){
2705 C_save_and_reclaim((void*)tr2,(void*)f_3549,2,t0,t1);}
2706 t2=(C_word)C_a_i_list(&a,7,((C_word*)t0)[8],((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[5],((C_word*)t0)[4],((C_word*)t0)[3],t1);
2707 t3=C_mutate((C_word*)lf[162]+1,t2);
2708 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3493,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
2709 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3521,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
2710 C_trace("command-line-arguments");
2711 t6=C_retrieve(lf[179]);
2712 ((C_proc2)C_retrieve_proc(t6))(2,t6,t5);}
2713
2714 /* k3519 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2715 static void C_ccall f_3521(C_word c,C_word t0,C_word t1){
2716 C_word tmp;
2717 C_word t2;
2718 C_word *a;
2719 C_trace("args:parse");
2720 t2=C_retrieve(lf[178]);
2721 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[2],t1,C_retrieve(lf[162]));}
2722
2723 /* k3491 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2724 static void C_ccall f_3493(C_word c,C_word t0,C_word t1){
2725 C_word tmp;
2726 C_word t2;
2727 C_word t3;
2728 C_word t4;
2729 C_word t5;
2730 C_word t6;
2731 C_word ab[9],*a=ab;
2732 C_check_for_interrupt;
2733 if(!C_stack_probe(&a)){
2734 C_save_and_reclaim((void*)tr2,(void*)f_3493,2,t0,t1);}
2735 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3496,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
2736 if(C_truep(C_retrieve(lf[168]))){
2737 t3=C_SCHEME_UNDEFINED;
2738 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
2739 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3507,a[2]=t4,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp));
2740 t6=((C_word*)t4)[1];
2741 f_3507(t6,t2);}
2742 else{
2743 C_trace("glut:MainLoop");
2744 t3=C_retrieve(lf[177]);
2745 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}}
2746
2747 /* loop.2044 in k3491 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2748 static void C_fcall f_3507(C_word t0,C_word t1){
2749 C_word tmp;
2750 C_word t2;
2751 C_word t3;
2752 C_word ab[4],*a=ab;
2753 C_check_for_interrupt;
2754 if(!C_stack_probe(&a)){
2755 C_save_and_reclaim((void*)trf_3507,NULL,2,t0,t1);}
2756 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3511,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
2757 C_trace("idle");
2758 t3=C_retrieve(lf[125]);
2759 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2760
2761 /* k3509 in loop.2044 in k3491 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2762 static void C_ccall f_3511(C_word c,C_word t0,C_word t1){
2763 C_word tmp;
2764 C_word t2;
2765 C_word *a;
2766 C_trace("loop.20442045");
2767 t2=((C_word*)((C_word*)t0)[3])[1];
2768 f_3507(t2,((C_word*)t0)[2]);}
2769
2770 /* k3494 in k3491 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2771 static void C_ccall f_3496(C_word c,C_word t0,C_word t1){
2772 C_word tmp;
2773 C_word t2;
2774 C_word t3;
2775 C_word t4;
2776 C_word ab[6],*a=ab;
2777 C_check_for_interrupt;
2778 if(!C_stack_probe(&a)){
2779 C_save_and_reclaim((void*)tr2,(void*)f_3496,2,t0,t1);}
2780 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3499,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
2781 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3502,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2782 C_trace("##sys#implicit-exit-handler");
2783 t4=C_retrieve(lf[176]);
2784 ((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
2785
2786 /* k3500 in k3494 in k3491 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2787 static void C_ccall f_3502(C_word c,C_word t0,C_word t1){
2788 C_word tmp;
2789 C_word t2;
2790 C_word *a;
2791 t2=t1;
2792 ((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}
2793
2794 /* k3497 in k3494 in k3491 in k3547 in k3543 in k3539 in k3535 in k3531 in k3527 in k3523 in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2795 static void C_ccall f_3499(C_word c,C_word t0,C_word t1){
2796 C_word tmp;
2797 C_word t2;
2798 C_word *a;
2799 t2=((C_word*)t0)[2];
2800 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
2801
2802 /* handle-open-file in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2803 static void C_ccall f_3482(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
2804 C_word tmp;
2805 C_word t4;
2806 C_word *a;
2807 if(c!=4) C_bad_argc_2(c,4,t0);
2808 C_check_for_interrupt;
2809 if(!C_stack_probe(&a)){
2810 C_save_and_reclaim((void*)tr4,(void*)f_3482,4,t0,t1,t2,t3);}
2811 C_trace("thunk.19421944");
2812 t4=t3;
2813 ((C_proc2)C_retrieve_proc(t4))(2,t4,t1);}
2814
2815 /* load-data in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2816 static void C_ccall f_3444(C_word c,C_word t0,C_word t1){
2817 C_word tmp;
2818 C_word t2;
2819 C_word t3;
2820 C_word ab[3],*a=ab;
2821 if(c!=2) C_bad_argc_2(c,2,t0);
2822 C_check_for_interrupt;
2823 if(!C_stack_probe(&a)){
2824 C_save_and_reclaim((void*)tr2,(void*)f_3444,2,t0,t1);}
2825 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3448,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2826 C_trace("read");
2827 t3=*((C_word*)lf[174]+1);
2828 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2829
2830 /* k3446 in load-data in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2831 static void C_ccall f_3448(C_word c,C_word t0,C_word t1){
2832 C_word tmp;
2833 C_word t2;
2834 C_word t3;
2835 C_word ab[4],*a=ab;
2836 C_check_for_interrupt;
2837 if(!C_stack_probe(&a)){
2838 C_save_and_reclaim((void*)tr2,(void*)f_3448,2,t0,t1);}
2839 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3451,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
2840 C_trace("read");
2841 t3=*((C_word*)lf[174]+1);
2842 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2843
2844 /* k3449 in k3446 in load-data in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2845 static void C_ccall f_3451(C_word c,C_word t0,C_word t1){
2846 C_word tmp;
2847 C_word t2;
2848 C_word t3;
2849 C_word ab[5],*a=ab;
2850 C_check_for_interrupt;
2851 if(!C_stack_probe(&a)){
2852 C_save_and_reclaim((void*)tr2,(void*)f_3451,2,t0,t1);}
2853 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3454,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
2854 C_trace("read");
2855 t3=*((C_word*)lf[174]+1);
2856 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2857
2858 /* k3452 in k3449 in k3446 in load-data in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2859 static void C_ccall f_3454(C_word c,C_word t0,C_word t1){
2860 C_word tmp;
2861 C_word t2;
2862 C_word t3;
2863 C_word ab[6],*a=ab;
2864 C_check_for_interrupt;
2865 if(!C_stack_probe(&a)){
2866 C_save_and_reclaim((void*)tr2,(void*)f_3454,2,t0,t1);}
2867 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3457,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
2868 C_trace("read");
2869 t3=*((C_word*)lf[174]+1);
2870 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
2871
2872 /* k3455 in k3452 in k3449 in k3446 in load-data in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2873 static void C_ccall f_3457(C_word c,C_word t0,C_word t1){
2874 C_word tmp;
2875 C_word t2;
2876 C_word t3;
2877 C_word t4;
2878 C_word ab[15],*a=ab;
2879 C_check_for_interrupt;
2880 if(!C_stack_probe(&a)){
2881 C_save_and_reclaim((void*)tr2,(void*)f_3457,2,t0,t1);}
2882 if(C_truep((C_word)C_eofp(t1))){
2883 t2=((C_word*)t0)[5];
2884 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}
2885 else{
2886 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3466,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp);
2887 t3=(C_word)C_a_i_list(&a,4,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2],t1);
2888 C_trace("reportdata");
2889 t4=C_retrieve(lf[104]);
2890 ((C_proc3)C_retrieve_proc(t4))(3,t4,t2,t3);}}
2891
2892 /* k3464 in k3455 in k3452 in k3449 in k3446 in load-data in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2893 static void C_ccall f_3466(C_word c,C_word t0,C_word t1){
2894 C_word tmp;
2895 C_word t2;
2896 C_word *a;
2897 C_trace("load-data");
2898 t2=C_retrieve(lf[173]);
2899 ((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}
2900
2901 /* reportdata in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2902 static void C_ccall f_3399(C_word c,C_word t0,C_word t1,C_word t2){
2903 C_word tmp;
2904 C_word t3;
2905 C_word t4;
2906 C_word t5;
2907 C_word t6;
2908 C_word t7;
2909 C_word t8;
2910 C_word t9;
2911 C_word ab[14],*a=ab;
2912 if(c!=3) C_bad_argc_2(c,3,t0);
2913 C_check_for_interrupt;
2914 if(!C_stack_probe(&a)){
2915 C_save_and_reclaim((void*)tr3,(void*)f_3399,3,t0,t1,t2);}
2916 t3=(C_word)C_i_car(t2);
2917 t4=(C_word)C_i_cadr(t2);
2918 t5=(C_word)C_i_caddr(t2);
2919 t6=(C_word)C_i_cadddr(t2);
2920 t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3415,a[2]=t6,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
2921 if(C_truep(C_retrieve(lf[167]))){
2922 t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3435,a[2]=t6,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=((C_word)li42),tmp=(C_word)a,a+=7,tmp);
2923 C_trace("with-output-to-port");
2924 t9=C_retrieve(lf[172]);
2925 ((C_proc4)C_retrieve_proc(t9))(4,t9,t7,C_retrieve(lf[167]),t8);}
2926 else{
2927 t8=t7;
2928 f_3415(2,t8,C_retrieve(lf[22]));}}
2929
2930 /* a3434 in reportdata in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2931 static void C_ccall f_3435(C_word c,C_word t0,C_word t1){
2932 C_word tmp;
2933 C_word t2;
2934 C_word *a;
2935 if(c!=2) C_bad_argc_2(c,2,t0);
2936 C_check_for_interrupt;
2937 if(!C_stack_probe(&a)){
2938 C_save_and_reclaim((void*)tr2,(void*)f_3435,2,t0,t1);}
2939 C_trace("print");
2940 t2=*((C_word*)lf[99]+1);
2941 ((C_proc9)C_retrieve_proc(t2))(9,t2,t1,((C_word*)t0)[5],lf[169],((C_word*)t0)[4],lf[170],((C_word*)t0)[3],lf[171],((C_word*)t0)[2]);}
2942
2943 /* k3413 in reportdata in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2944 static void C_ccall f_3415(C_word c,C_word t0,C_word t1){
2945 C_word tmp;
2946 C_word t2;
2947 C_word t3;
2948 C_word ab[3],*a=ab;
2949 C_check_for_interrupt;
2950 if(!C_stack_probe(&a)){
2951 C_save_and_reclaim((void*)tr2,(void*)f_3415,2,t0,t1);}
2952 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3418,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);
2953 C_trace("trianglegrid-addpoint");
2954 t3=C_retrieve(lf[18]);
2955 ((C_proc6)C_retrieve_proc(t3))(6,t3,t2,((C_word*)t0)[5],((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
2956
2957 /* k3416 in k3413 in reportdata in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2958 static void C_ccall f_3418(C_word c,C_word t0,C_word t1){
2959 C_word tmp;
2960 C_word t2;
2961 C_word t3;
2962 C_word *a;
2963 t2=C_retrieve(lf[168]);
2964 if(C_truep(t2)){
2965 t3=((C_word*)t0)[2];
2966 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_retrieve(lf[22]));}
2967 else{
2968 C_trace("glut:PostRedisplay");
2969 t3=C_retrieve(lf[139]);
2970 ((C_proc2)C_retrieve_proc(t3))(2,t3,((C_word*)t0)[2]);}}
2971
2972 /* usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2973 static void C_ccall f_3364(C_word c,C_word t0,C_word t1){
2974 C_word tmp;
2975 C_word t2;
2976 C_word t3;
2977 C_word t4;
2978 C_word ab[6],*a=ab;
2979 if(c!=2) C_bad_argc_2(c,2,t0);
2980 C_check_for_interrupt;
2981 if(!C_stack_probe(&a)){
2982 C_save_and_reclaim((void*)tr2,(void*)f_3364,2,t0,t1);}
2983 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3368,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
2984 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3392,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
2985 C_trace("argv");
2986 t4=C_retrieve(lf[166]);
2987 ((C_proc2)C_retrieve_proc(t4))(2,t4,t3);}
2988
2989 /* k3390 in usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
2990 static void C_ccall f_3392(C_word c,C_word t0,C_word t1){
2991 C_word tmp;
2992 C_word t2;
2993 C_word t3;
2994 C_word *a;
2995 t2=(C_word)C_i_car(t1);
2996 C_trace("print");
2997 t3=*((C_word*)lf[99]+1);
2998 ((C_proc5)C_retrieve_proc(t3))(5,t3,((C_word*)t0)[2],lf[164],t2,lf[165]);}
2999
3000 /* k3366 in usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3001 static void C_ccall f_3368(C_word c,C_word t0,C_word t1){
3002 C_word tmp;
3003 C_word t2;
3004 C_word t3;
3005 C_word ab[3],*a=ab;
3006 C_check_for_interrupt;
3007 if(!C_stack_probe(&a)){
3008 C_save_and_reclaim((void*)tr2,(void*)f_3368,2,t0,t1);}
3009 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3371,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3010 C_trace("newline");
3011 t3=*((C_word*)lf[163]+1);
3012 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
3013
3014 /* k3369 in k3366 in usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3015 static void C_ccall f_3371(C_word c,C_word t0,C_word t1){
3016 C_word tmp;
3017 C_word t2;
3018 C_word t3;
3019 C_word t4;
3020 C_word ab[6],*a=ab;
3021 C_check_for_interrupt;
3022 if(!C_stack_probe(&a)){
3023 C_save_and_reclaim((void*)tr2,(void*)f_3371,2,t0,t1);}
3024 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3374,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3025 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3384,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
3026 C_trace("args:usage");
3027 t4=C_retrieve(lf[161]);
3028 ((C_proc3)C_retrieve_proc(t4))(3,t4,t3,C_retrieve(lf[162]));}
3029
3030 /* k3382 in k3369 in k3366 in usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3031 static void C_ccall f_3384(C_word c,C_word t0,C_word t1){
3032 C_word tmp;
3033 C_word t2;
3034 C_word *a;
3035 C_trace("print");
3036 t2=*((C_word*)lf[99]+1);
3037 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
3038
3039 /* k3372 in k3369 in k3366 in usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3040 static void C_ccall f_3374(C_word c,C_word t0,C_word t1){
3041 C_word tmp;
3042 C_word t2;
3043 C_word t3;
3044 C_word ab[3],*a=ab;
3045 C_check_for_interrupt;
3046 if(!C_stack_probe(&a)){
3047 C_save_and_reclaim((void*)tr2,(void*)f_3374,2,t0,t1);}
3048 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3377,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3049 C_trace("print");
3050 t3=*((C_word*)lf[99]+1);
3051 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[160]);}
3052
3053 /* k3375 in k3372 in k3369 in k3366 in usage in k3360 in k3357 in k3354 in k3351 in k3348 in k3345 in k3342 in k3339 in k3336 in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3054 static void C_ccall f_3377(C_word c,C_word t0,C_word t1){
3055 C_word tmp;
3056 C_word t2;
3057 C_word *a;
3058 C_trace("exit");
3059 t2=C_retrieve(lf[140]);
3060 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],C_fix(1));}
3061
3062 /* special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3063 static void C_ccall f_3193(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
3064 C_word tmp;
3065 C_word t5;
3066 C_word t6;
3067 C_word t7;
3068 C_word ab[7],*a=ab;
3069 if(c!=5) C_bad_argc_2(c,5,t0);
3070 C_check_for_interrupt;
3071 if(!C_stack_probe(&a)){
3072 C_save_and_reclaim((void*)tr5,(void*)f_3193,5,t0,t1,t2,t3,t4);}
3073 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3197,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
3074 t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3203,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
3075 C_trace("glut-HasModifiers");
3076 t7=C_retrieve(lf[135]);
3077 ((C_proc3)C_retrieve_proc(t7))(3,t7,t6,C_retrieve(lf[158]));}
3078
3079 /* k3201 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3080 static void C_ccall f_3203(C_word c,C_word t0,C_word t1){
3081 C_word tmp;
3082 C_word t2;
3083 C_word t3;
3084 C_word t4;
3085 C_word ab[8],*a=ab;
3086 C_check_for_interrupt;
3087 if(!C_stack_probe(&a)){
3088 C_save_and_reclaim((void*)tr2,(void*)f_3203,2,t0,t1);}
3089 if(C_truep(t1)){
3090 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3091 C_trace("attr-get");
3092 t3=C_retrieve(lf[133]);
3093 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[156]);}
3094 else{
3095 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3266,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3096 C_trace("attr-get");
3097 t3=C_retrieve(lf[133]);
3098 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[157]);}}
3099
3100 /* k3264 in k3201 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3101 static void C_ccall f_3266(C_word c,C_word t0,C_word t1){
3102 C_word tmp;
3103 C_word t2;
3104 C_word t3;
3105 C_word t4;
3106 C_word t5;
3107 C_word ab[9],*a=ab;
3108 C_check_for_interrupt;
3109 if(!C_stack_probe(&a)){
3110 C_save_and_reclaim((void*)tr2,(void*)f_3266,2,t0,t1);}
3111 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[150])))){
3112 C_trace("gl:Translatef");
3113 t2=C_retrieve(lf[56]);
3114 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,C_fix(0),C_fix(0));}
3115 else{
3116 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[151])))){
3117 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3288,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3118 C_trace("-");
3119 C_minus(3,0,t2,t1);}
3120 else{
3121 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[152])))){
3122 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3301,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3123 C_trace("-");
3124 C_minus(3,0,t2,t1);}
3125 else{
3126 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[153])))){
3127 C_trace("gl:Translatef");
3128 t2=C_retrieve(lf[56]);
3129 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],C_fix(0),t1,C_fix(0));}
3130 else{
3131 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[154])))){
3132 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3323,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3133 C_trace("-");
3134 C_minus(3,0,t2,t1);}
3135 else{
3136 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[155])))){
3137 C_trace("gl:Translatef");
3138 t2=C_retrieve(lf[56]);
3139 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],C_fix(0),C_fix(0),t1);}
3140 else{
3141 t2=((C_word*)t0)[2];
3142 f_3197(2,t2,C_retrieve(lf[22]));}}}}}}}
3143
3144 /* k3321 in k3264 in k3201 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3145 static void C_ccall f_3323(C_word c,C_word t0,C_word t1){
3146 C_word tmp;
3147 C_word t2;
3148 C_word *a;
3149 C_trace("gl:Translatef");
3150 t2=C_retrieve(lf[56]);
3151 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],C_fix(0),C_fix(0),t1);}
3152
3153 /* k3299 in k3264 in k3201 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3154 static void C_ccall f_3301(C_word c,C_word t0,C_word t1){
3155 C_word tmp;
3156 C_word t2;
3157 C_word *a;
3158 C_trace("gl:Translatef");
3159 t2=C_retrieve(lf[56]);
3160 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],C_fix(0),t1,C_fix(0));}
3161
3162 /* k3286 in k3264 in k3201 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3163 static void C_ccall f_3288(C_word c,C_word t0,C_word t1){
3164 C_word tmp;
3165 C_word t2;
3166 C_word *a;
3167 C_trace("gl:Translatef");
3168 t2=C_retrieve(lf[56]);
3169 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],t1,C_fix(0),C_fix(0));}
3170
3171 /* k3204 in k3201 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3172 static void C_ccall f_3206(C_word c,C_word t0,C_word t1){
3173 C_word tmp;
3174 C_word t2;
3175 C_word *a;
3176 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[150])))){
3177 C_trace("RotateAfter");
3178 t2=C_retrieve(lf[48]);
3179 ((C_proc6)C_retrieve_proc(t2))(6,t2,((C_word*)t0)[2],t1,C_fix(0),C_fix(1),C_fix(0));}
3180 else{
3181 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[151])))){
3182 C_trace("RotateAfter");
3183 t2=C_retrieve(lf[48]);
3184 ((C_proc6)C_retrieve_proc(t2))(6,t2,((C_word*)t0)[2],t1,C_fix(0),C_fix(-1),C_fix(0));}
3185 else{
3186 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[152])))){
3187 C_trace("RotateAfter");
3188 t2=C_retrieve(lf[48]);
3189 ((C_proc6)C_retrieve_proc(t2))(6,t2,((C_word*)t0)[2],t1,C_fix(1),C_fix(0),C_fix(0));}
3190 else{
3191 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[153])))){
3192 C_trace("RotateAfter");
3193 t2=C_retrieve(lf[48]);
3194 ((C_proc6)C_retrieve_proc(t2))(6,t2,((C_word*)t0)[2],t1,C_fix(-1),C_fix(0),C_fix(0));}
3195 else{
3196 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[154])))){
3197 C_trace("RotateAfter");
3198 t2=C_retrieve(lf[48]);
3199 ((C_proc6)C_retrieve_proc(t2))(6,t2,((C_word*)t0)[2],t1,C_fix(0),C_fix(0),C_fix(1));}
3200 else{
3201 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[3],C_retrieve(lf[155])))){
3202 C_trace("RotateAfter");
3203 t2=C_retrieve(lf[48]);
3204 ((C_proc6)C_retrieve_proc(t2))(6,t2,((C_word*)t0)[2],t1,C_fix(0),C_fix(0),C_fix(-1));}
3205 else{
3206 t2=((C_word*)t0)[2];
3207 f_3197(2,t2,C_retrieve(lf[22]));}}}}}}}
3208
3209 /* k3195 in special in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3210 static void C_ccall f_3197(C_word c,C_word t0,C_word t1){
3211 C_word tmp;
3212 C_word t2;
3213 C_word *a;
3214 C_trace("glut:PostRedisplay");
3215 t2=C_retrieve(lf[139]);
3216 ((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}
3217
3218 /* keyboard in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3219 static void C_ccall f_3139(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
3220 C_word tmp;
3221 C_word t5;
3222 C_word t6;
3223 C_word t7;
3224 C_word t8;
3225 C_word t9;
3226 C_word t10;
3227 C_word t11;
3228 C_word ab[9],*a=ab;
3229 if(c!=5) C_bad_argc_2(c,5,t0);
3230 C_check_for_interrupt;
3231 if(!C_stack_probe(&a)){
3232 C_save_and_reclaim((void*)tr5,(void*)f_3139,5,t0,t1,t2,t3,t4);}
3233 t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3143,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
3234 t6=t2;
3235 if(C_truep((C_truep((C_word)C_i_eqvp(t6,C_make_character(27)))?C_SCHEME_TRUE:(C_truep((C_word)C_i_eqvp(t6,C_make_character(113)))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){
3236 C_trace("exit");
3237 t7=C_retrieve(lf[140]);
3238 ((C_proc2)C_retrieve_proc(t7))(2,t7,t5);}
3239 else{
3240 t7=t2;
3241 if(C_truep((C_truep((C_word)C_i_eqvp(t7,C_make_character(119)))?C_SCHEME_TRUE:C_SCHEME_FALSE))){
3242 t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3161,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
3243 t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3179,a[2]=t8,tmp=(C_word)a,a+=3,tmp);
3244 C_trace("attr-get");
3245 t10=C_retrieve(lf[133]);
3246 ((C_proc3)C_retrieve_proc(t10))(3,t10,t9,lf[147]);}
3247 else{
3248 t8=t2;
3249 if(C_truep((C_truep((C_word)C_i_eqvp(t8,C_make_character(102)))?C_SCHEME_TRUE:C_SCHEME_FALSE))){
3250 C_trace("glut:FullScreen");
3251 t9=C_retrieve(lf[148]);
3252 ((C_proc2)C_retrieve_proc(t9))(2,t9,t5);}
3253 else{
3254 t9=t5;
3255 f_3143(2,t9,C_retrieve(lf[22]));}}}}
3256
3257 /* k3177 in keyboard in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3258 static void C_ccall f_3179(C_word c,C_word t0,C_word t1){
3259 C_word tmp;
3260 C_word t2;
3261 C_word t3;
3262 C_word *a;
3263 t2=(C_word)C_i_not(t1);
3264 C_trace("attr-set!");
3265 t3=C_retrieve(lf[131]);
3266 ((C_proc4)C_retrieve_proc(t3))(4,t3,((C_word*)t0)[2],lf[146],t2);}
3267
3268 /* k3159 in keyboard in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3269 static void C_ccall f_3161(C_word c,C_word t0,C_word t1){
3270 C_word tmp;
3271 C_word t2;
3272 C_word t3;
3273 C_word ab[3],*a=ab;
3274 C_check_for_interrupt;
3275 if(!C_stack_probe(&a)){
3276 C_save_and_reclaim((void*)tr2,(void*)f_3161,2,t0,t1);}
3277 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3171,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
3278 C_trace("attr-get");
3279 t3=C_retrieve(lf[133]);
3280 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,lf[145]);}
3281
3282 /* k3169 in k3159 in keyboard in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3283 static void C_ccall f_3171(C_word c,C_word t0,C_word t1){
3284 C_word tmp;
3285 C_word t2;
3286 C_word t3;
3287 C_word *a;
3288 t2=(C_truep(t1)?C_retrieve(lf[141]):C_retrieve(lf[142]));
3289 C_trace("gl:PolygonMode");
3290 t3=C_retrieve(lf[143]);
3291 ((C_proc4)C_retrieve_proc(t3))(4,t3,((C_word*)t0)[2],C_retrieve(lf[144]),t2);}
3292
3293 /* k3141 in keyboard in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3294 static void C_ccall f_3143(C_word c,C_word t0,C_word t1){
3295 C_word tmp;
3296 C_word t2;
3297 C_word *a;
3298 C_trace("glut:PostRedisplay");
3299 t2=C_retrieve(lf[139]);
3300 ((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}
3301
3302 /* glut-HasModifiers in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3303 static void C_ccall f_3122(C_word c,C_word t0,C_word t1,...){
3304 C_word tmp;
3305 C_word t2;
3306 va_list v;
3307 C_word *a,c2=c;
3308 C_save_rest(t1,c2,2);
3309 C_check_for_interrupt;
3310 if(!C_demand(c*C_SIZEOF_PAIR+3)){
3311 C_save_and_reclaim((void*)tr2r,(void*)f_3122r,2,t0,t1);}
3312 else{
3313 a=C_alloc((c-2)*3);
3314 t2=C_restore_rest(a,C_rest_count(0));
3315 f_3122r(t0,t1,t2);}}
3316
3317 static void C_ccall f_3122r(C_word t0,C_word t1,C_word t2){
3318 C_word tmp;
3319 C_word t3;
3320 C_word t4;
3321 C_word *a=C_alloc(3);
3322 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3126,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
3323 C_apply(4,0,t3,*((C_word*)lf[137]+1),t2);}
3324
3325 /* k3124 in glut-HasModifiers in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3326 static void C_ccall f_3126(C_word c,C_word t0,C_word t1){
3327 C_word tmp;
3328 C_word t2;
3329 C_word t3;
3330 C_word ab[4],*a=ab;
3331 C_check_for_interrupt;
3332 if(!C_stack_probe(&a)){
3333 C_save_and_reclaim((void*)tr2,(void*)f_3126,2,t0,t1);}
3334 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3137,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3335 C_trace("glut:GetModifiers");
3336 t3=C_retrieve(lf[136]);
3337 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
3338
3339 /* k3135 in k3124 in glut-HasModifiers in k3118 in k3115 in k3112 in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3340 static void C_ccall f_3137(C_word c,C_word t0,C_word t1){
3341 C_word tmp;
3342 C_word t2;
3343 C_word t3;
3344 C_word ab[4],*a=ab;
3345 C_check_for_interrupt;
3346 if(!C_stack_probe(&a)){
3347 C_save_and_reclaim((void*)tr2,(void*)f_3137,2,t0,t1);}
3348 t2=(C_word)C_a_i_bitwise_and(&a,2,((C_word*)t0)[3],t1);
3349 t3=((C_word*)t0)[2];
3350 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_i_nequalp(((C_word*)t0)[3],t2));}
3351
3352 /* attr-get in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3353 static void C_ccall f_3107(C_word c,C_word t0,C_word t1,C_word t2){
3354 C_word tmp;
3355 C_word t3;
3356 C_word *a;
3357 if(c!=3) C_bad_argc_2(c,3,t0);
3358 C_check_for_interrupt;
3359 if(!C_stack_probe(&a)){
3360 C_save_and_reclaim((void*)tr3,(void*)f_3107,3,t0,t1,t2);}
3361 C_trace("hash-table-ref");
3362 t3=*((C_word*)lf[134]+1);
3363 ((C_proc4)C_retrieve_proc(t3))(4,t3,t1,C_retrieve(lf[130]),t2);}
3364
3365 /* attr-set! in k3097 in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3366 static void C_ccall f_3101(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
3367 C_word tmp;
3368 C_word t4;
3369 C_word *a;
3370 if(c!=4) C_bad_argc_2(c,4,t0);
3371 C_check_for_interrupt;
3372 if(!C_stack_probe(&a)){
3373 C_save_and_reclaim((void*)tr4,(void*)f_3101,4,t0,t1,t2,t3);}
3374 C_trace("hash-table-set!");
3375 t4=C_retrieve(lf[132]);
3376 ((C_proc5)C_retrieve_proc(t4))(5,t4,t1,C_retrieve(lf[130]),t2,t3);}
3377
3378 /* idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3379 static void C_ccall f_3037(C_word c,C_word t0,C_word t1){
3380 C_word tmp;
3381 C_word t2;
3382 C_word t3;
3383 C_word t4;
3384 C_word t5;
3385 C_word t6;
3386 C_word ab[11],*a=ab;
3387 if(c!=2) C_bad_argc_2(c,2,t0);
3388 C_check_for_interrupt;
3389 if(!C_stack_probe(&a)){
3390 C_save_and_reclaim((void*)tr2,(void*)f_3037,2,t0,t1);}
3391 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3041,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3392 if(C_truep(C_retrieve(lf[129]))){
3393 t3=C_SCHEME_UNDEFINED;
3394 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
3395 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3076,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp));
3396 t6=((C_word*)t4)[1];
3397 f_3076(t6,t2);}
3398 else{
3399 t3=t2;
3400 f_3041(2,t3,C_retrieve(lf[22]));}}
3401
3402 /* each-mag-line.1848 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3403 static void C_fcall f_3076(C_word t0,C_word t1){
3404 C_word tmp;
3405 C_word t2;
3406 C_word t3;
3407 C_word ab[4],*a=ab;
3408 C_check_for_interrupt;
3409 if(!C_stack_probe(&a)){
3410 C_save_and_reclaim((void*)trf_3076,NULL,2,t0,t1);}
3411 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3080,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3412 C_trace("mag-line.18461852");
3413 t3=((C_word*)t0)[2];
3414 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[129]));}
3415
3416 /* k3078 in each-mag-line.1848 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3417 static void C_ccall f_3080(C_word c,C_word t0,C_word t1){
3418 C_word tmp;
3419 C_word t2;
3420 C_word t3;
3421 C_word ab[4],*a=ab;
3422 C_check_for_interrupt;
3423 if(!C_stack_probe(&a)){
3424 C_save_and_reclaim((void*)tr2,(void*)f_3080,2,t0,t1);}
3425 if(C_truep(t1)){
3426 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3086,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3427 C_trace("parse-mag-line");
3428 t3=C_retrieve(lf[92]);
3429 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,t1);}
3430 else{
3431 t2=((C_word*)t0)[2];
3432 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}}
3433
3434 /* k3084 in k3078 in each-mag-line.1848 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3435 static void C_ccall f_3086(C_word c,C_word t0,C_word t1){
3436 C_word tmp;
3437 C_word t2;
3438 C_word *a;
3439 C_trace("each-mag-line.18481854");
3440 t2=((C_word*)((C_word*)t0)[3])[1];
3441 f_3076(t2,((C_word*)t0)[2]);}
3442
3443 /* k3039 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3444 static void C_ccall f_3041(C_word c,C_word t0,C_word t1){
3445 C_word tmp;
3446 C_word t2;
3447 C_word t3;
3448 C_word t4;
3449 C_word t5;
3450 C_word t6;
3451 C_word ab[10],*a=ab;
3452 C_check_for_interrupt;
3453 if(!C_stack_probe(&a)){
3454 C_save_and_reclaim((void*)tr2,(void*)f_3041,2,t0,t1);}
3455 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3044,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
3456 if(C_truep(C_retrieve(lf[128]))){
3457 t3=C_SCHEME_UNDEFINED;
3458 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
3459 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3052,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word)li33),tmp=(C_word)a,a+=5,tmp));
3460 t6=((C_word*)t4)[1];
3461 f_3052(t6,t2);}
3462 else{
3463 t3=t2;
3464 f_3044(2,t3,C_retrieve(lf[22]));}}
3465
3466 /* each-gps-line.1850 in k3039 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3467 static void C_fcall f_3052(C_word t0,C_word t1){
3468 C_word tmp;
3469 C_word t2;
3470 C_word t3;
3471 C_word ab[4],*a=ab;
3472 C_check_for_interrupt;
3473 if(!C_stack_probe(&a)){
3474 C_save_and_reclaim((void*)trf_3052,NULL,2,t0,t1);}
3475 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3056,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3476 C_trace("gps-line.18471853");
3477 t3=((C_word*)t0)[2];
3478 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[128]));}
3479
3480 /* k3054 in each-gps-line.1850 in k3039 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3481 static void C_ccall f_3056(C_word c,C_word t0,C_word t1){
3482 C_word tmp;
3483 C_word t2;
3484 C_word t3;
3485 C_word ab[4],*a=ab;
3486 C_check_for_interrupt;
3487 if(!C_stack_probe(&a)){
3488 C_save_and_reclaim((void*)tr2,(void*)f_3056,2,t0,t1);}
3489 if(C_truep(t1)){
3490 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3062,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3491 C_trace("parse-gps-line");
3492 t3=C_retrieve(lf[98]);
3493 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,t1);}
3494 else{
3495 t2=((C_word*)t0)[2];
3496 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}}
3497
3498 /* k3060 in k3054 in each-gps-line.1850 in k3039 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3499 static void C_ccall f_3062(C_word c,C_word t0,C_word t1){
3500 C_word tmp;
3501 C_word t2;
3502 C_word *a;
3503 C_trace("each-gps-line.18501858");
3504 t2=((C_word*)((C_word*)t0)[3])[1];
3505 f_3052(t2,((C_word*)t0)[2]);}
3506
3507 /* k3042 in k3039 in idle in k3034 in k3031 in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3508 static void C_ccall f_3044(C_word c,C_word t0,C_word t1){
3509 C_word tmp;
3510 C_word t2;
3511 C_word *a;
3512 C_trace("thread-sleep!");
3513 t2=C_retrieve(lf[126]);
3514 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],lf[127]);}
3515
3516 /* make-line-reader in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3517 static void C_ccall f_2984(C_word c,C_word t0,C_word t1){
3518 C_word tmp;
3519 C_word t2;
3520 C_word t3;
3521 C_word t4;
3522 C_word ab[6],*a=ab;
3523 if(c!=2) C_bad_argc_2(c,2,t0);
3524 C_check_for_interrupt;
3525 if(!C_stack_probe(&a)){
3526 C_save_and_reclaim((void*)tr2,(void*)f_2984,2,t0,t1);}
3527 t2=lf[119];
3528 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3529 t4=t1;
3530 ((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2986,a[2]=t3,a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp));}
3531
3532 /* f_2986 in make-line-reader in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3533 static void C_ccall f_2986(C_word c,C_word t0,C_word t1,C_word t2){
3534 C_word tmp;
3535 C_word t3;
3536 C_word t4;
3537 C_word ab[5],*a=ab;
3538 if(c!=3) C_bad_argc_2(c,3,t0);
3539 C_check_for_interrupt;
3540 if(!C_stack_probe(&a)){
3541 C_save_and_reclaim((void*)tr3,(void*)f_2986,3,t0,t1,t2);}
3542 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2993,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);
3543 C_trace("char-ready?");
3544 t4=*((C_word*)lf[124]+1);
3545 ((C_proc3)C_retrieve_proc(t4))(3,t4,t3,t2);}
3546
3547 /* k2991 */
3548 static void C_ccall f_2993(C_word c,C_word t0,C_word t1){
3549 C_word tmp;
3550 C_word t2;
3551 C_word t3;
3552 C_word t4;
3553 C_word t5;
3554 C_word ab[8],*a=ab;
3555 C_check_for_interrupt;
3556 if(!C_stack_probe(&a)){
3557 C_save_and_reclaim((void*)tr2,(void*)f_2993,2,t0,t1);}
3558 if(C_truep(t1)){
3559 t2=C_SCHEME_UNDEFINED;
3560 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3561 t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2998,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=((C_word)li30),tmp=(C_word)a,a+=6,tmp));
3562 t5=((C_word*)t3)[1];
3563 f_2998(t5,((C_word*)t0)[2]);}
3564 else{
3565 t2=((C_word*)t0)[2];
3566 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_FALSE);}}
3567
3568 /* loop.1835 in k2991 */
3569 static void C_fcall f_2998(C_word t0,C_word t1){
3570 C_word tmp;
3571 C_word t2;
3572 C_word t3;
3573 C_word ab[5],*a=ab;
3574 C_check_for_interrupt;
3575 if(!C_stack_probe(&a)){
3576 C_save_and_reclaim((void*)trf_2998,NULL,2,t0,t1);}
3577 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3002,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
3578 C_trace("read-char/port");
3579 t3=C_retrieve(lf[123]);
3580 ((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,((C_word*)t0)[2]);}
3581
3582 /* k3000 in loop.1835 in k2991 */
3583 static void C_ccall f_3002(C_word c,C_word t0,C_word t1){
3584 C_word tmp;
3585 C_word t2;
3586 C_word t3;
3587 C_word t4;
3588 C_word t5;
3589 C_word t6;
3590 C_word ab[11],*a=ab;
3591 C_check_for_interrupt;
3592 if(!C_stack_probe(&a)){
3593 C_save_and_reclaim((void*)tr2,(void*)f_3002,2,t0,t1);}
3594 if(C_truep((C_word)C_eofp(t1))){
3595 t2=((C_word*)t0)[4];
3596 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_FALSE);}
3597 else{
3598 t2=(C_word)C_eqp(t1,C_make_character(10));
3599 if(C_truep(t2)){
3600 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3017,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3601 C_trace("string-copy");
3602 t4=C_retrieve(lf[121]);
3603 ((C_proc3)C_retrieve_proc(t4))(3,t4,t3,((C_word*)((C_word*)t0)[3])[1]);}
3604 else{
3605 t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3022,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
3606 t4=(C_word)C_a_i_string(&a,1,t1);
3607 C_trace("string-append");
3608 t5=*((C_word*)lf[122]+1);
3609 ((C_proc4)C_retrieve_proc(t5))(4,t5,t3,((C_word*)((C_word*)t0)[3])[1],t4);}}}
3610
3611 /* k3020 in k3000 in loop.1835 in k2991 */
3612 static void C_ccall f_3022(C_word c,C_word t0,C_word t1){
3613 C_word tmp;
3614 C_word t2;
3615 C_word t3;
3616 C_word *a;
3617 t2=C_mutate(((C_word *)((C_word*)t0)[4])+1,t1);
3618 C_trace("loop.18351840");
3619 t3=((C_word*)((C_word*)t0)[3])[1];
3620 f_2998(t3,((C_word*)t0)[2]);}
3621
3622 /* k3015 in k3000 in loop.1835 in k2991 */
3623 static void C_ccall f_3017(C_word c,C_word t0,C_word t1){
3624 C_word tmp;
3625 C_word t2;
3626 C_word t3;
3627 C_word *a;
3628 t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[120]);
3629 t3=((C_word*)t0)[2];
3630 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t1);}
3631
3632 /* parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3633 static void C_ccall f_2788(C_word c,C_word t0,C_word t1,C_word t2){
3634 C_word tmp;
3635 C_word t3;
3636 C_word t4;
3637 C_word ab[3],*a=ab;
3638 if(c!=3) C_bad_argc_2(c,3,t0);
3639 C_check_for_interrupt;
3640 if(!C_stack_probe(&a)){
3641 C_save_and_reclaim((void*)tr3,(void*)f_2788,3,t0,t1,t2);}
3642 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2792,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
3643 C_trace("string-split");
3644 t4=C_retrieve(lf[96]);
3645 ((C_proc4)C_retrieve_proc(t4))(4,t4,t3,t2,lf[117]);}
3646
3647 /* k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3648 static void C_ccall f_2792(C_word c,C_word t0,C_word t1){
3649 C_word tmp;
3650 C_word t2;
3651 C_word t3;
3652 C_word t4;
3653 C_word t5;
3654 C_word ab[4],*a=ab;
3655 C_check_for_interrupt;
3656 if(!C_stack_probe(&a)){
3657 C_save_and_reclaim((void*)tr2,(void*)f_2792,2,t0,t1);}
3658 if(C_truep((C_word)C_i_nullp(t1))){
3659 t2=((C_word*)t0)[2];
3660 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_END_OF_LIST);}
3661 else{
3662 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2804,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3663 t3=(C_word)C_i_length(t1);
3664 if(C_truep((C_word)C_i_greaterp(t3,C_fix(9)))){
3665 t4=(C_word)C_i_car(t1);
3666 t5=t2;
3667 f_2804(t5,(C_word)C_i_equalp(t4,lf[116]));}
3668 else{
3669 t4=t2;
3670 f_2804(t4,C_SCHEME_FALSE);}}}
3671
3672 /* k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3673 static void C_fcall f_2804(C_word t0,C_word t1){
3674 C_word tmp;
3675 C_word t2;
3676 C_word t3;
3677 C_word t4;
3678 C_word ab[4],*a=ab;
3679 C_check_for_interrupt;
3680 if(!C_stack_probe(&a)){
3681 C_save_and_reclaim((void*)trf_2804,NULL,2,t0,t1);}
3682 if(C_truep(t1)){
3683 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3684 t3=(C_word)C_i_list_ref(((C_word*)t0)[3],C_fix(1));
3685 C_trace("string->number");
3686 C_string_to_number(3,0,t2,t3);}
3687 else{
3688 t2=((C_word*)t0)[2];
3689 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}}
3690
3691 /* k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3692 static void C_ccall f_2807(C_word c,C_word t0,C_word t1){
3693 C_word tmp;
3694 C_word t2;
3695 C_word t3;
3696 C_word t4;
3697 C_word ab[4],*a=ab;
3698 C_check_for_interrupt;
3699 if(!C_stack_probe(&a)){
3700 C_save_and_reclaim((void*)tr2,(void*)f_2807,2,t0,t1);}
3701 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2810,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3702 t3=(C_word)C_i_list_ref(((C_word*)t0)[3],C_fix(2));
3703 C_trace("string->number");
3704 C_string_to_number(3,0,t2,t3);}
3705
3706 /* k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3707 static void C_ccall f_2810(C_word c,C_word t0,C_word t1){
3708 C_word tmp;
3709 C_word t2;
3710 C_word t3;
3711 C_word t4;
3712 C_word t5;
3713 C_word t6;
3714 C_word t7;
3715 C_word ab[8],*a=ab;
3716 C_check_for_interrupt;
3717 if(!C_stack_probe(&a)){
3718 C_save_and_reclaim((void*)tr2,(void*)f_2810,2,t0,t1);}
3719 t2=t1;
3720 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3721 t4=(C_word)C_i_list_ref(((C_word*)t0)[3],C_fix(3));
3722 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2816,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
3723 t6=(C_word)C_i_list_ref(((C_word*)t0)[3],C_fix(4));
3724 C_trace("string->number");
3725 C_string_to_number(3,0,t5,t6);}
3726
3727 /* k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3728 static void C_ccall f_2816(C_word c,C_word t0,C_word t1){
3729 C_word tmp;
3730 C_word t2;
3731 C_word t3;
3732 C_word t4;
3733 C_word t5;
3734 C_word t6;
3735 C_word t7;
3736 C_word ab[10],*a=ab;
3737 C_check_for_interrupt;
3738 if(!C_stack_probe(&a)){
3739 C_save_and_reclaim((void*)tr2,(void*)f_2816,2,t0,t1);}
3740 t2=t1;
3741 t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
3742 t4=(C_word)C_i_list_ref(((C_word*)t0)[5],C_fix(5));
3743 t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2822,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp);
3744 t6=(C_word)C_i_list_ref(((C_word*)t0)[5],C_fix(6));
3745 C_trace("string->number");
3746 C_string_to_number(3,0,t5,t6);}
3747
3748 /* k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3749 static void C_ccall f_2822(C_word c,C_word t0,C_word t1){
3750 C_word tmp;
3751 C_word t2;
3752 C_word t3;
3753 C_word t4;
3754 C_word ab[9],*a=ab;
3755 C_check_for_interrupt;
3756 if(!C_stack_probe(&a)){
3757 C_save_and_reclaim((void*)tr2,(void*)f_2822,2,t0,t1);}
3758 t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2825,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],a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp);
3759 t3=(C_word)C_i_list_ref(((C_word*)t0)[2],C_fix(7));
3760 C_trace("string->number");
3761 C_string_to_number(3,0,t2,t3);}
3762
3763 /* k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3764 static void C_ccall f_2825(C_word c,C_word t0,C_word t1){
3765 C_word tmp;
3766 C_word t2;
3767 C_word t3;
3768 C_word t4;
3769 C_word ab[10],*a=ab;
3770 C_check_for_interrupt;
3771 if(!C_stack_probe(&a)){
3772 C_save_and_reclaim((void*)tr2,(void*)f_2825,2,t0,t1);}
3773 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2828,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],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp);
3774 t3=(C_word)C_i_list_ref(((C_word*)t0)[2],C_fix(8));
3775 C_trace("string->number");
3776 C_string_to_number(3,0,t2,t3);}
3777
3778 /* k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3779 static void C_ccall f_2828(C_word c,C_word t0,C_word t1){
3780 C_word tmp;
3781 C_word t2;
3782 C_word t3;
3783 C_word t4;
3784 C_word ab[10],*a=ab;
3785 C_check_for_interrupt;
3786 if(!C_stack_probe(&a)){
3787 C_save_and_reclaim((void*)tr2,(void*)f_2828,2,t0,t1);}
3788 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2831,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp);
3789 t3=(C_word)C_i_list_ref(((C_word*)t0)[2],C_fix(9));
3790 C_trace("string->number");
3791 C_string_to_number(3,0,t2,t3);}
3792
3793 /* k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3794 static void C_ccall f_2831(C_word c,C_word t0,C_word t1){
3795 C_word tmp;
3796 C_word t2;
3797 C_word t3;
3798 C_word t4;
3799 C_word t5;
3800 C_word ab[18],*a=ab;
3801 C_check_for_interrupt;
3802 if(!C_stack_probe(&a)){
3803 C_save_and_reclaim((void*)tr2,(void*)f_2831,2,t0,t1);}
3804 if(C_truep((C_word)C_i_nequalp(((C_word*)t0)[9],C_fix(0)))){
3805 C_trace("print");
3806 t2=*((C_word*)lf[99]+1);
3807 ((C_proc4)C_retrieve_proc(t2))(4,t2,((C_word*)t0)[8],lf[100],((C_word*)t0)[7]);}
3808 else{
3809 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2842,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp);
3810 if(C_truep((C_word)C_i_lessp(((C_word*)t0)[9],C_fix(1)))){
3811 C_trace("print");
3812 t3=*((C_word*)lf[99]+1);
3813 ((C_proc3)C_retrieve_proc(t3))(3,t3,((C_word*)t0)[8],lf[103]);}
3814 else{
3815 t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2874,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t2,a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp);
3816 if(C_truep((C_word)C_i_equalp(lf[115],((C_word*)t0)[2]))){
3817 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2934,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
3818 C_trace("-");
3819 C_minus(3,0,t4,((C_word*)((C_word*)t0)[4])[1]);}
3820 else{
3821 t4=t3;
3822 f_2874(t4,C_retrieve(lf[22]));}}}}
3823
3824 /* k2932 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3825 static void C_ccall f_2934(C_word c,C_word t0,C_word t1){
3826 C_word tmp;
3827 C_word t2;
3828 C_word t3;
3829 C_word *a;
3830 t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,t1);
3831 t3=((C_word*)t0)[2];
3832 f_2874(t3,t2);}
3833
3834 /* k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3835 static void C_fcall f_2874(C_word t0,C_word t1){
3836 C_word tmp;
3837 C_word t2;
3838 C_word t3;
3839 C_word t4;
3840 C_word ab[14],*a=ab;
3841 C_check_for_interrupt;
3842 if(!C_stack_probe(&a)){
3843 C_save_and_reclaim((void*)trf_2874,NULL,2,t0,t1);}
3844 t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2877,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp);
3845 if(C_truep((C_word)C_i_equalp(lf[114],((C_word*)t0)[2]))){
3846 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2924,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
3847 C_trace("-");
3848 C_minus(3,0,t3,((C_word*)((C_word*)t0)[6])[1]);}
3849 else{
3850 t3=t2;
3851 f_2877(t3,C_retrieve(lf[22]));}}
3852
3853 /* k2922 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3854 static void C_ccall f_2924(C_word c,C_word t0,C_word t1){
3855 C_word tmp;
3856 C_word t2;
3857 C_word t3;
3858 C_word *a;
3859 t2=C_mutate(((C_word *)((C_word*)t0)[3])+1,t1);
3860 t3=((C_word*)t0)[2];
3861 f_2877(t3,t2);}
3862
3863 /* k2875 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3864 static void C_fcall f_2877(C_word t0,C_word t1){
3865 C_word tmp;
3866 C_word t2;
3867 C_word t3;
3868 C_word t4;
3869 C_word t5;
3870 C_word ab[8],*a=ab;
3871 C_check_for_interrupt;
3872 if(!C_stack_probe(&a)){
3873 C_save_and_reclaim((void*)trf_2877,NULL,2,t0,t1);}
3874 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2880,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp);
3875 if(C_truep(C_retrieve(lf[106]))){
3876 t3=(C_word)C_i_nequalp(C_fix(1),((C_word*)t0)[3]);
3877 t4=(C_truep(t3)?lf[107]:lf[108]);
3878 C_trace("print");
3879 t5=*((C_word*)lf[99]+1);
3880 ((C_proc13)C_retrieve_proc(t5))(13,t5,t2,((C_word*)((C_word*)t0)[4])[1],lf[109],((C_word*)((C_word*)t0)[5])[1],lf[110],((C_word*)t0)[7],lf[111],((C_word*)t0)[9],lf[112],t4,((C_word*)t0)[2],lf[113]);}
3881 else{
3882 t3=t2;
3883 f_2880(2,t3,C_retrieve(lf[22]));}}
3884
3885 /* k2878 in k2875 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3886 static void C_ccall f_2880(C_word c,C_word t0,C_word t1){
3887 C_word tmp;
3888 C_word t2;
3889 C_word t3;
3890 C_word t4;
3891 C_word t5;
3892 C_word ab[13],*a=ab;
3893 C_check_for_interrupt;
3894 if(!C_stack_probe(&a)){
3895 C_save_and_reclaim((void*)tr2,(void*)f_2880,2,t0,t1);}
3896 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2884,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
3897 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2892,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
3898 t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2900,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp);
3899 C_trace("convert-deg.18121825");
3900 f_2842(t4,((C_word*)((C_word*)t0)[2])[1]);}
3901
3902 /* k2898 in k2878 in k2875 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3903 static void C_ccall f_2900(C_word c,C_word t0,C_word t1){
3904 C_word tmp;
3905 C_word t2;
3906 C_word t3;
3907 C_word ab[5],*a=ab;
3908 C_check_for_interrupt;
3909 if(!C_stack_probe(&a)){
3910 C_save_and_reclaim((void*)tr2,(void*)f_2900,2,t0,t1);}
3911 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2904,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
3912 C_trace("convert-deg.18121825");
3913 f_2842(t2,((C_word*)((C_word*)t0)[2])[1]);}
3914
3915 /* k2902 in k2898 in k2878 in k2875 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3916 static void C_ccall f_2904(C_word c,C_word t0,C_word t1){
3917 C_word tmp;
3918 C_word t2;
3919 C_word *a;
3920 C_trace("convert-position");
3921 t2=C_retrieve(lf[97]);
3922 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[4],((C_word*)t0)[3],t1,((C_word*)t0)[2]);}
3923
3924 /* k2890 in k2878 in k2875 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3925 static void C_ccall f_2892(C_word c,C_word t0,C_word t1){
3926 C_word tmp;
3927 C_word t2;
3928 C_word t3;
3929 C_word ab[3],*a=ab;
3930 C_check_for_interrupt;
3931 if(!C_stack_probe(&a)){
3932 C_save_and_reclaim((void*)tr2,(void*)f_2892,2,t0,t1);}
3933 t2=(C_word)C_a_i_list(&a,1,C_retrieve(lf[91]));
3934 C_trace("append");
3935 t3=*((C_word*)lf[105]+1);
3936 ((C_proc4)C_retrieve_proc(t3))(4,t3,((C_word*)t0)[2],t1,t2);}
3937
3938 /* k2882 in k2878 in k2875 in k2872 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3939 static void C_ccall f_2884(C_word c,C_word t0,C_word t1){
3940 C_word tmp;
3941 C_word t2;
3942 C_word t3;
3943 C_word t4;
3944 C_word *a;
3945 t2=C_mutate((C_word*)lf[14]+1,t1);
3946 t3=C_mutate((C_word*)lf[12]+1,((C_word*)t0)[3]);
3947 C_trace("reportdata");
3948 t4=C_retrieve(lf[104]);
3949 ((C_proc3)C_retrieve_proc(t4))(3,t4,((C_word*)t0)[2],C_retrieve(lf[14]));}
3950
3951 /* convert-deg.1812 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3952 static void C_fcall f_2842(C_word t1,C_word t2){
3953 C_word tmp;
3954 C_word t3;
3955 C_word t4;
3956 C_word t5;
3957 C_word ab[8],*a=ab;
3958 C_check_for_interrupt;
3959 if(!C_stack_probe(&a)){
3960 C_save_and_reclaim((void*)trf_2842,NULL,2,t1,t2);}
3961 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2850,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
3962 t4=(C_word)C_a_i_divide(&a,2,t2,C_fix(100));
3963 C_trace("floor");
3964 t5=*((C_word*)lf[102]+1);
3965 ((C_proc3)C_retrieve_proc(t5))(3,t5,t3,t4);}
3966
3967 /* k2848 in convert-deg.1812 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3968 static void C_ccall f_2850(C_word c,C_word t0,C_word t1){
3969 C_word tmp;
3970 C_word t2;
3971 C_word t3;
3972 C_word ab[4],*a=ab;
3973 C_check_for_interrupt;
3974 if(!C_stack_probe(&a)){
3975 C_save_and_reclaim((void*)tr2,(void*)f_2850,2,t0,t1);}
3976 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2858,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
3977 C_trace("remainder");
3978 t3=*((C_word*)lf[101]+1);
3979 ((C_proc4)C_retrieve_proc(t3))(4,t3,t2,((C_word*)t0)[2],C_fix(100));}
3980
3981 /* k2856 in k2848 in convert-deg.1812 in k2829 in k2826 in k2823 in k2820 in k2814 in k2808 in k2805 in k2802 in k2790 in parse-gps-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3982 static void C_ccall f_2858(C_word c,C_word t0,C_word t1){
3983 C_word tmp;
3984 C_word t2;
3985 C_word t3;
3986 C_word ab[8],*a=ab;
3987 C_check_for_interrupt;
3988 if(!C_stack_probe(&a)){
3989 C_save_and_reclaim((void*)tr2,(void*)f_2858,2,t0,t1);}
3990 t2=(C_word)C_a_i_divide(&a,2,t1,C_fix(60));
3991 t3=((C_word*)t0)[3];
3992 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_plus(&a,2,((C_word*)t0)[2],t2));}
3993
3994 /* convert-position in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
3995 static void C_ccall f_2722(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
3996 C_word tmp;
3997 C_word t5;
3998 C_word t6;
3999 C_word t7;
4000 C_word t8;
4001 C_word t9;
4002 C_word ab[9],*a=ab;
4003 if(c!=5) C_bad_argc_2(c,5,t0);
4004 C_check_for_interrupt;
4005 if(!C_stack_probe(&a)){
4006 C_save_and_reclaim((void*)tr5,(void*)f_2722,5,t0,t1,t2,t3,t4);}
4007 t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2726,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=t4,tmp=(C_word)a,a+=9,tmp);
4008 if(C_truep((C_word)C_i_nequalp(((C_word*)((C_word*)t0)[3])[1],C_fix(100)))){
4009 t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
4010 t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
4011 t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4);
4012 t9=t5;
4013 f_2726(t9,t8);}
4014 else{
4015 t6=t5;
4016 f_2726(t6,C_retrieve(lf[22]));}}
4017
4018 /* k2724 in convert-position in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4019 static void C_fcall f_2726(C_word t0,C_word t1){
4020 C_word tmp;
4021 C_word t2;
4022 C_word t3;
4023 C_word t4;
4024 C_word t5;
4025 C_word ab[15],*a=ab;
4026 C_check_for_interrupt;
4027 if(!C_stack_probe(&a)){
4028 C_save_and_reclaim((void*)trf_2726,NULL,2,t0,t1);}
4029 t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2733,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp);
4030 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2773,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
4031 t4=(C_word)C_a_i_minus(&a,2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);
4032 C_trace("deg2rad");
4033 t5=C_retrieve(lf[11]);
4034 ((C_proc3)C_retrieve_proc(t5))(3,t5,t3,t4);}
4035
4036 /* k2771 in k2724 in convert-position in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4037 static void C_ccall f_2773(C_word c,C_word t0,C_word t1){
4038 C_word tmp;
4039 C_word t2;
4040 C_word t3;
4041 C_word t4;
4042 C_word ab[8],*a=ab;
4043 C_check_for_interrupt;
4044 if(!C_stack_probe(&a)){
4045 C_save_and_reclaim((void*)tr2,(void*)f_2773,2,t0,t1);}
4046 t2=(C_word)C_a_i_sin(&a,1,t1);
4047 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2769,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
4048 C_trace("deg2rad");
4049 t4=C_retrieve(lf[11]);
4050 ((C_proc3)C_retrieve_proc(t4))(3,t4,t3,((C_word*)t0)[2]);}
4051
4052 /* k2767 in k2771 in k2724 in convert-position in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4053 static void C_ccall f_2769(C_word c,C_word t0,C_word t1){
4054 C_word tmp;
4055 C_word t2;
4056 C_word t3;
4057 C_word ab[4],*a=ab;
4058 C_check_for_interrupt;
4059 if(!C_stack_probe(&a)){
4060 C_save_and_reclaim((void*)tr2,(void*)f_2769,2,t0,t1);}
4061 t2=(C_word)C_a_i_cos(&a,1,t1);
4062 C_trace("*");
4063 C_times(5,0,((C_word*)t0)[3],C_fix(6360000),((C_word*)t0)[2],t2);}
4064
4065 /* k2731 in k2724 in convert-position in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4066 static void C_ccall f_2733(C_word c,C_word t0,C_word t1){
4067 C_word tmp;
4068 C_word t2;
4069 C_word t3;
4070 C_word t4;
4071 C_word ab[10],*a=ab;
4072 C_check_for_interrupt;
4073 if(!C_stack_probe(&a)){
4074 C_save_and_reclaim((void*)tr2,(void*)f_2733,2,t0,t1);}
4075 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2753,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp);
4076 t3=(C_word)C_a_i_minus(&a,2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);
4077 C_trace("deg2rad");
4078 t4=C_retrieve(lf[11]);
4079 ((C_proc3)C_retrieve_proc(t4))(3,t4,t2,t3);}
4080
4081 /* k2751 in k2731 in k2724 in convert-position in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4082 static void C_ccall f_2753(C_word c,C_word t0,C_word t1){
4083 C_word tmp;
4084 C_word t2;
4085 C_word t3;
4086 C_word t4;
4087 C_word t5;
4088 C_word t6;
4089 C_word ab[25],*a=ab;
4090 C_check_for_interrupt;
4091 if(!C_stack_probe(&a)){
4092 C_save_and_reclaim((void*)tr2,(void*)f_2753,2,t0,t1);}
4093 t2=(C_word)C_a_i_sin(&a,1,t1);
4094 t3=(C_word)C_a_i_times(&a,2,C_fix(6360000),t2);
4095 t4=(C_word)C_a_i_minus(&a,2,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1]);
4096 t5=(C_word)C_a_i_divide(&a,2,t4,C_fix(10));
4097 t6=((C_word*)t0)[3];
4098 ((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,(C_word)C_a_i_list(&a,3,((C_word*)t0)[2],t3,t5));}
4099
4100 /* parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4101 static void C_ccall f_2669(C_word c,C_word t0,C_word t1,C_word t2){
4102 C_word tmp;
4103 C_word t3;
4104 C_word t4;
4105 C_word ab[3],*a=ab;
4106 if(c!=3) C_bad_argc_2(c,3,t0);
4107 C_check_for_interrupt;
4108 if(!C_stack_probe(&a)){
4109 C_save_and_reclaim((void*)tr3,(void*)f_2669,3,t0,t1,t2);}
4110 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2673,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
4111 C_trace("string-split");
4112 t4=C_retrieve(lf[96]);
4113 ((C_proc3)C_retrieve_proc(t4))(3,t4,t3,t2);}
4114
4115 /* k2671 in parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4116 static void C_ccall f_2673(C_word c,C_word t0,C_word t1){
4117 C_word tmp;
4118 C_word t2;
4119 C_word t3;
4120 C_word t4;
4121 C_word t5;
4122 C_word ab[4],*a=ab;
4123 C_check_for_interrupt;
4124 if(!C_stack_probe(&a)){
4125 C_save_and_reclaim((void*)tr2,(void*)f_2673,2,t0,t1);}
4126 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2679,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
4127 t3=(C_word)C_i_length(t1);
4128 if(C_truep((C_word)C_i_greater_or_equalp(t3,C_fix(3)))){
4129 t4=(C_word)C_i_car(t1);
4130 t5=t2;
4131 f_2679(t5,(C_word)C_i_equalp(t4,lf[95]));}
4132 else{
4133 t4=t2;
4134 f_2679(t4,C_SCHEME_FALSE);}}
4135
4136 /* k2677 in k2671 in parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4137 static void C_fcall f_2679(C_word t0,C_word t1){
4138 C_word tmp;
4139 C_word t2;
4140 C_word t3;
4141 C_word t4;
4142 C_word t5;
4143 C_word ab[6],*a=ab;
4144 C_check_for_interrupt;
4145 if(!C_stack_probe(&a)){
4146 C_save_and_reclaim((void*)trf_2679,NULL,2,t0,t1);}
4147 if(C_truep(t1)){
4148 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2682,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
4149 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2699,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
4150 t4=(C_word)C_i_cdr(((C_word*)t0)[2]);
4151 C_trace("take");
4152 t5=C_retrieve(lf[94]);
4153 ((C_proc4)C_retrieve_proc(t5))(4,t5,t3,t4,C_fix(3));}
4154 else{
4155 t2=((C_word*)t0)[3];
4156 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}}
4157
4158 /* k2697 in k2677 in k2671 in parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4159 static void C_ccall f_2699(C_word c,C_word t0,C_word t1){
4160 C_word tmp;
4161 C_word t2;
4162 C_word *a;
4163 C_trace("map");
4164 t2=*((C_word*)lf[4]+1);
4165 ((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[2],*((C_word*)lf[93]+1),t1);}
4166
4167 /* k2680 in k2677 in k2671 in parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4168 static void C_ccall f_2682(C_word c,C_word t0,C_word t1){
4169 C_word tmp;
4170 C_word t2;
4171 C_word t3;
4172 C_word ab[4],*a=ab;
4173 C_check_for_interrupt;
4174 if(!C_stack_probe(&a)){
4175 C_save_and_reclaim((void*)tr2,(void*)f_2682,2,t0,t1);}
4176 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2688,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
4177 C_trace("none-false");
4178 t3=C_retrieve(lf[89]);
4179 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,t1);}
4180
4181 /* k2686 in k2680 in k2677 in k2671 in parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4182 static void C_ccall f_2688(C_word c,C_word t0,C_word t1){
4183 C_word tmp;
4184 C_word t2;
4185 C_word t3;
4186 C_word ab[3],*a=ab;
4187 C_check_for_interrupt;
4188 if(!C_stack_probe(&a)){
4189 C_save_and_reclaim((void*)tr2,(void*)f_2688,2,t0,t1);}
4190 if(C_truep(t1)){
4191 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2692,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
4192 C_trace("magnitude");
4193 t3=C_retrieve(lf[2]);
4194 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)t0)[2]);}
4195 else{
4196 t2=((C_word*)t0)[3];
4197 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}}
4198
4199 /* k2690 in k2686 in k2680 in k2677 in k2671 in parse-mag-line in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4200 static void C_ccall f_2692(C_word c,C_word t0,C_word t1){
4201 C_word tmp;
4202 C_word t2;
4203 C_word t3;
4204 C_word *a;
4205 t2=C_mutate((C_word*)lf[91]+1,t1);
4206 t3=((C_word*)t0)[2];
4207 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
4208
4209 /* none-false in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4210 static void C_ccall f_2656(C_word c,C_word t0,C_word t1,C_word t2){
4211 C_word tmp;
4212 C_word t3;
4213 C_word t4;
4214 C_word ab[3],*a=ab;
4215 if(c!=3) C_bad_argc_2(c,3,t0);
4216 C_check_for_interrupt;
4217 if(!C_stack_probe(&a)){
4218 C_save_and_reclaim((void*)tr3,(void*)f_2656,3,t0,t1,t2);}
4219 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2662,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp);
4220 C_trace("fold");
4221 t4=C_retrieve(lf[90]);
4222 ((C_proc5)C_retrieve_proc(t4))(5,t4,t1,t3,C_SCHEME_TRUE,t2);}
4223
4224 /* a2661 in none-false in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4225 static void C_ccall f_2662(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
4226 C_word tmp;
4227 C_word t4;
4228 C_word *a;
4229 if(c!=4) C_bad_argc_2(c,4,t0);
4230 C_check_for_interrupt;
4231 if(!C_stack_probe(&a)){
4232 C_save_and_reclaim((void*)tr4,(void*)f_2662,4,t0,t1,t2,t3);}
4233 t4=t1;
4234 ((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_truep(t2)?t3:C_SCHEME_FALSE));}
4235
4236 /* gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4237 static void C_ccall f_2632(C_word c,C_word t0,C_word t1){
4238 C_word tmp;
4239 C_word t2;
4240 C_word t3;
4241 C_word ab[3],*a=ab;
4242 if(c!=2) C_bad_argc_2(c,2,t0);
4243 C_check_for_interrupt;
4244 if(!C_stack_probe(&a)){
4245 C_save_and_reclaim((void*)tr2,(void*)f_2632,2,t0,t1);}
4246 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2636,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
4247 C_trace("gl:Clear");
4248 t3=C_retrieve(lf[87]);
4249 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[88]));}
4250
4251 /* k2634 in gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4252 static void C_ccall f_2636(C_word c,C_word t0,C_word t1){
4253 C_word tmp;
4254 C_word t2;
4255 C_word t3;
4256 C_word ab[3],*a=ab;
4257 C_check_for_interrupt;
4258 if(!C_stack_probe(&a)){
4259 C_save_and_reclaim((void*)tr2,(void*)f_2636,2,t0,t1);}
4260 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2639,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4261 C_trace("gl:PushMatrix");
4262 t3=C_retrieve(lf[79]);
4263 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4264
4265 /* k2637 in k2634 in gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4266 static void C_ccall f_2639(C_word c,C_word t0,C_word t1){
4267 C_word tmp;
4268 C_word t2;
4269 C_word t3;
4270 C_word ab[3],*a=ab;
4271 C_check_for_interrupt;
4272 if(!C_stack_probe(&a)){
4273 C_save_and_reclaim((void*)tr2,(void*)f_2639,2,t0,t1);}
4274 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2642,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4275 C_trace("gl:Translatef");
4276 t3=C_retrieve(lf[56]);
4277 ((C_proc5)C_retrieve_proc(t3))(5,t3,t2,C_fix(0),C_fix(0),C_fix(-1));}
4278
4279 /* k2640 in k2637 in k2634 in gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4280 static void C_ccall f_2642(C_word c,C_word t0,C_word t1){
4281 C_word tmp;
4282 C_word t2;
4283 C_word t3;
4284 C_word ab[3],*a=ab;
4285 C_check_for_interrupt;
4286 if(!C_stack_probe(&a)){
4287 C_save_and_reclaim((void*)tr2,(void*)f_2642,2,t0,t1);}
4288 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2645,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4289 C_trace("trianglegrid-draw");
4290 t3=C_retrieve(lf[31]);
4291 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4292
4293 /* k2643 in k2640 in k2637 in k2634 in gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4294 static void C_ccall f_2645(C_word c,C_word t0,C_word t1){
4295 C_word tmp;
4296 C_word t2;
4297 C_word t3;
4298 C_word ab[3],*a=ab;
4299 C_check_for_interrupt;
4300 if(!C_stack_probe(&a)){
4301 C_save_and_reclaim((void*)tr2,(void*)f_2645,2,t0,t1);}
4302 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2648,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4303 C_trace("pos-draw");
4304 t3=C_retrieve(lf[32]);
4305 ((C_proc5)C_retrieve_proc(t3))(5,t3,t2,C_retrieve(lf[14]),C_retrieve(lf[12]),lf[86]);}
4306
4307 /* k2646 in k2643 in k2640 in k2637 in k2634 in gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4308 static void C_ccall f_2648(C_word c,C_word t0,C_word t1){
4309 C_word tmp;
4310 C_word t2;
4311 C_word t3;
4312 C_word ab[3],*a=ab;
4313 C_check_for_interrupt;
4314 if(!C_stack_probe(&a)){
4315 C_save_and_reclaim((void*)tr2,(void*)f_2648,2,t0,t1);}
4316 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2651,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4317 C_trace("gl:PopMatrix");
4318 t3=C_retrieve(lf[72]);
4319 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4320
4321 /* k2649 in k2646 in k2643 in k2640 in k2637 in k2634 in gl-display in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4322 static void C_ccall f_2651(C_word c,C_word t0,C_word t1){
4323 C_word tmp;
4324 C_word t2;
4325 C_word *a;
4326 C_trace("glut:SwapBuffers");
4327 t2=C_retrieve(lf[85]);
4328 ((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}
4329
4330 /* pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4331 static void C_ccall f_2515(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){
4332 C_word tmp;
4333 C_word t5;
4334 C_word t6;
4335 C_word ab[6],*a=ab;
4336 if(c!=5) C_bad_argc_2(c,5,t0);
4337 C_check_for_interrupt;
4338 if(!C_stack_probe(&a)){
4339 C_save_and_reclaim((void*)tr5,(void*)f_2515,5,t0,t1,t2,t3,t4);}
4340 t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2519,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp);
4341 C_trace("gl:BlendFunc");
4342 t6=C_retrieve(lf[81]);
4343 ((C_proc4)C_retrieve_proc(t6))(4,t6,t5,C_retrieve(lf[82]),C_retrieve(lf[83]));}
4344
4345 /* k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4346 static void C_ccall f_2519(C_word c,C_word t0,C_word t1){
4347 C_word tmp;
4348 C_word t2;
4349 C_word t3;
4350 C_word ab[6],*a=ab;
4351 C_check_for_interrupt;
4352 if(!C_stack_probe(&a)){
4353 C_save_and_reclaim((void*)tr2,(void*)f_2519,2,t0,t1);}
4354 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
4355 C_trace("gl:Enable");
4356 t3=C_retrieve(lf[80]);
4357 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[71]));}
4358
4359 /* k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4360 static void C_ccall f_2522(C_word c,C_word t0,C_word t1){
4361 C_word tmp;
4362 C_word t2;
4363 C_word t3;
4364 C_word ab[6],*a=ab;
4365 C_check_for_interrupt;
4366 if(!C_stack_probe(&a)){
4367 C_save_and_reclaim((void*)tr2,(void*)f_2522,2,t0,t1);}
4368 t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2525,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
4369 C_trace("gl:PushMatrix");
4370 t3=C_retrieve(lf[79]);
4371 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4372
4373 /* k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4374 static void C_ccall f_2525(C_word c,C_word t0,C_word t1){
4375 C_word tmp;
4376 C_word t2;
4377 C_word t3;
4378 C_word t4;
4379 C_word t5;
4380 C_word t6;
4381 C_word ab[5],*a=ab;
4382 C_check_for_interrupt;
4383 if(!C_stack_probe(&a)){
4384 C_save_and_reclaim((void*)tr2,(void*)f_2525,2,t0,t1);}
4385 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2528,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp);
4386 t3=(C_word)C_i_car(((C_word*)t0)[2]);
4387 t4=(C_word)C_i_cadr(((C_word*)t0)[2]);
4388 t5=(C_word)C_i_caddr(((C_word*)t0)[2]);
4389 C_trace("gl:Translatef");
4390 t6=C_retrieve(lf[56]);
4391 ((C_proc5)C_retrieve_proc(t6))(5,t6,t2,t3,t4,t5);}
4392
4393 /* k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4394 static void C_ccall f_2528(C_word c,C_word t0,C_word t1){
4395 C_word tmp;
4396 C_word t2;
4397 C_word t3;
4398 C_word ab[5],*a=ab;
4399 C_check_for_interrupt;
4400 if(!C_stack_probe(&a)){
4401 C_save_and_reclaim((void*)tr2,(void*)f_2528,2,t0,t1);}
4402 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2531,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);
4403 C_trace("gl:Begin");
4404 t3=C_retrieve(lf[44]);
4405 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[78]));}
4406
4407 /* k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4408 static void C_ccall f_2531(C_word c,C_word t0,C_word t1){
4409 C_word tmp;
4410 C_word t2;
4411 C_word t3;
4412 C_word ab[5],*a=ab;
4413 C_check_for_interrupt;
4414 if(!C_stack_probe(&a)){
4415 C_save_and_reclaim((void*)tr2,(void*)f_2531,2,t0,t1);}
4416 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2534,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);
4417 C_trace("gl:Color4f");
4418 t3=C_retrieve(lf[74]);
4419 ((C_proc6)C_retrieve_proc(t3))(6,t3,t2,lf[75],lf[76],lf[77],C_fix(1));}
4420
4421 /* k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4422 static void C_ccall f_2534(C_word c,C_word t0,C_word t1){
4423 C_word tmp;
4424 C_word t2;
4425 C_word t3;
4426 C_word ab[5],*a=ab;
4427 C_check_for_interrupt;
4428 if(!C_stack_probe(&a)){
4429 C_save_and_reclaim((void*)tr2,(void*)f_2534,2,t0,t1);}
4430 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2537,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);
4431 C_trace("gl:Vertex3f");
4432 t3=C_retrieve(lf[29]);
4433 ((C_proc5)C_retrieve_proc(t3))(5,t3,t2,C_fix(0),C_fix(0),C_fix(0));}
4434
4435 /* k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4436 static void C_ccall f_2537(C_word c,C_word t0,C_word t1){
4437 C_word tmp;
4438 C_word t2;
4439 C_word t3;
4440 C_word t4;
4441 C_word t5;
4442 C_word t6;
4443 C_word ab[4],*a=ab;
4444 C_check_for_interrupt;
4445 if(!C_stack_probe(&a)){
4446 C_save_and_reclaim((void*)tr2,(void*)f_2537,2,t0,t1);}
4447 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2540,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
4448 t3=(C_word)C_i_car(((C_word*)t0)[2]);
4449 t4=(C_word)C_i_cadr(((C_word*)t0)[2]);
4450 t5=(C_word)C_i_caddr(((C_word*)t0)[2]);
4451 C_trace("gl:Color4f");
4452 t6=C_retrieve(lf[74]);
4453 ((C_proc6)C_retrieve_proc(t6))(6,t6,t2,t3,t4,t5,C_fix(0));}
4454
4455 /* k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4456 static void C_ccall f_2540(C_word c,C_word t0,C_word t1){
4457 C_word tmp;
4458 C_word t2;
4459 C_word t3;
4460 C_word t4;
4461 C_word t5;
4462 C_word t6;
4463 C_word ab[10],*a=ab;
4464 C_check_for_interrupt;
4465 if(!C_stack_probe(&a)){
4466 C_save_and_reclaim((void*)tr2,(void*)f_2540,2,t0,t1);}
4467 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2543,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
4468 t3=C_SCHEME_UNDEFINED;
4469 t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
4470 t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2554,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp));
4471 t6=((C_word*)t4)[1];
4472 f_2554(t6,t2,C_fix(0));}
4473
4474 /* doloop.1746 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4475 static void C_fcall f_2554(C_word t0,C_word t1,C_word t2){
4476 C_word tmp;
4477 C_word t3;
4478 C_word t4;
4479 C_word t5;
4480 C_word t6;
4481 C_word t7;
4482 C_word t8;
4483 C_word t9;
4484 C_word t10;
4485 C_word ab[29],*a=ab;
4486 C_check_for_interrupt;
4487 if(!C_stack_probe(&a)){
4488 C_save_and_reclaim((void*)trf_2554,NULL,3,t0,t1,t2);}
4489 t3=(C_word)C_a_i_times(&a,2,C_fix(2),C_retrieve(lf[9]));
4490 t4=(C_word)C_a_i_plus(&a,2,t3,lf[73]);
4491 if(C_truep((C_word)C_i_greaterp(t2,t4))){
4492 t5=t1;
4493 ((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,C_retrieve(lf[22]));}
4494 else{
4495 t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2564,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4496 t6=(C_word)C_a_i_cos(&a,1,t2);
4497 t7=(C_word)C_a_i_times(&a,2,((C_word*)t0)[2],t6);
4498 t8=(C_word)C_a_i_sin(&a,1,t2);
4499 t9=(C_word)C_a_i_times(&a,2,((C_word*)t0)[2],t8);
4500 C_trace("gl:Vertex3f");
4501 t10=C_retrieve(lf[29]);
4502 ((C_proc5)C_retrieve_proc(t10))(5,t10,t5,t7,t9,C_fix(0));}}
4503
4504 /* k2562 in doloop.1746 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4505 static void C_ccall f_2564(C_word c,C_word t0,C_word t1){
4506 C_word tmp;
4507 C_word t2;
4508 C_word t3;
4509 C_word t4;
4510 C_word ab[8],*a=ab;
4511 C_check_for_interrupt;
4512 if(!C_stack_probe(&a)){
4513 C_save_and_reclaim((void*)tr2,(void*)f_2564,2,t0,t1);}
4514 t2=(C_word)C_a_i_divide(&a,2,C_retrieve(lf[9]),C_fix(10));
4515 t3=(C_word)C_a_i_plus(&a,2,((C_word*)t0)[4],t2);
4516 C_trace("doloop.17461751");
4517 t4=((C_word*)((C_word*)t0)[3])[1];
4518 f_2554(t4,((C_word*)t0)[2],t3);}
4519
4520 /* k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4521 static void C_ccall f_2543(C_word c,C_word t0,C_word t1){
4522 C_word tmp;
4523 C_word t2;
4524 C_word t3;
4525 C_word ab[3],*a=ab;
4526 C_check_for_interrupt;
4527 if(!C_stack_probe(&a)){
4528 C_save_and_reclaim((void*)tr2,(void*)f_2543,2,t0,t1);}
4529 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2546,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4530 C_trace("gl:End");
4531 t3=C_retrieve(lf[42]);
4532 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4533
4534 /* k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4535 static void C_ccall f_2546(C_word c,C_word t0,C_word t1){
4536 C_word tmp;
4537 C_word t2;
4538 C_word t3;
4539 C_word ab[3],*a=ab;
4540 C_check_for_interrupt;
4541 if(!C_stack_probe(&a)){
4542 C_save_and_reclaim((void*)tr2,(void*)f_2546,2,t0,t1);}
4543 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2549,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4544 C_trace("gl:PopMatrix");
4545 t3=C_retrieve(lf[72]);
4546 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4547
4548 /* k2547 in k2544 in k2541 in k2538 in k2535 in k2532 in k2529 in k2526 in k2523 in k2520 in k2517 in pos-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4549 static void C_ccall f_2549(C_word c,C_word t0,C_word t1){
4550 C_word tmp;
4551 C_word t2;
4552 C_word *a;
4553 C_trace("gl:Disable");
4554 t2=C_retrieve(lf[70]);
4555 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],C_retrieve(lf[71]));}
4556
4557 /* reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4558 static void C_ccall f_2480(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
4559 C_word tmp;
4560 C_word t4;
4561 C_word t5;
4562 C_word ab[5],*a=ab;
4563 if(c!=4) C_bad_argc_2(c,4,t0);
4564 C_check_for_interrupt;
4565 if(!C_stack_probe(&a)){
4566 C_save_and_reclaim((void*)tr4,(void*)f_2480,4,t0,t1,t2,t3);}
4567 t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2484,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
4568 C_trace("gl:Viewport");
4569 t5=C_retrieve(lf[69]);
4570 ((C_proc6)C_retrieve_proc(t5))(6,t5,t4,C_fix(0),C_fix(0),t2,t3);}
4571
4572 /* k2482 in reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4573 static void C_ccall f_2484(C_word c,C_word t0,C_word t1){
4574 C_word tmp;
4575 C_word t2;
4576 C_word t3;
4577 C_word ab[5],*a=ab;
4578 C_check_for_interrupt;
4579 if(!C_stack_probe(&a)){
4580 C_save_and_reclaim((void*)tr2,(void*)f_2484,2,t0,t1);}
4581 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2487,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);
4582 C_trace("gl:MatrixMode");
4583 t3=C_retrieve(lf[60]);
4584 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[68]));}
4585
4586 /* k2485 in k2482 in reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4587 static void C_ccall f_2487(C_word c,C_word t0,C_word t1){
4588 C_word tmp;
4589 C_word t2;
4590 C_word t3;
4591 C_word ab[5],*a=ab;
4592 C_check_for_interrupt;
4593 if(!C_stack_probe(&a)){
4594 C_save_and_reclaim((void*)tr2,(void*)f_2487,2,t0,t1);}
4595 t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2490,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);
4596 C_trace("gl:LoadIdentity");
4597 t3=C_retrieve(lf[51]);
4598 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4599
4600 /* k2488 in k2485 in k2482 in reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4601 static void C_ccall f_2490(C_word c,C_word t0,C_word t1){
4602 C_word tmp;
4603 C_word t2;
4604 C_word t3;
4605 C_word t4;
4606 C_word t5;
4607 C_word t6;
4608 C_word ab[15],*a=ab;
4609 C_check_for_interrupt;
4610 if(!C_stack_probe(&a)){
4611 C_save_and_reclaim((void*)tr2,(void*)f_2490,2,t0,t1);}
4612 t2=(C_word)C_a_i_divide(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]);
4613 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2496,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4614 t4=(C_word)C_a_i_times(&a,2,lf[62],t2);
4615 t5=(C_word)C_a_i_times(&a,2,lf[63],t2);
4616 C_trace("gl:Frustum");
4617 t6=C_retrieve(lf[64]);
4618 ((C_proc8)C_retrieve_proc(t6))(8,t6,t3,t4,t5,lf[65],lf[66],lf[67],C_fix(100));}
4619
4620 /* k2494 in k2488 in k2485 in k2482 in reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4621 static void C_ccall f_2496(C_word c,C_word t0,C_word t1){
4622 C_word tmp;
4623 C_word t2;
4624 C_word t3;
4625 C_word ab[3],*a=ab;
4626 C_check_for_interrupt;
4627 if(!C_stack_probe(&a)){
4628 C_save_and_reclaim((void*)tr2,(void*)f_2496,2,t0,t1);}
4629 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2499,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4630 C_trace("gl:MatrixMode");
4631 t3=C_retrieve(lf[60]);
4632 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[61]));}
4633
4634 /* k2497 in k2494 in k2488 in k2485 in k2482 in reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4635 static void C_ccall f_2499(C_word c,C_word t0,C_word t1){
4636 C_word tmp;
4637 C_word t2;
4638 C_word t3;
4639 C_word ab[3],*a=ab;
4640 C_check_for_interrupt;
4641 if(!C_stack_probe(&a)){
4642 C_save_and_reclaim((void*)tr2,(void*)f_2499,2,t0,t1);}
4643 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2502,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4644 C_trace("gl:LoadIdentity");
4645 t3=C_retrieve(lf[51]);
4646 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4647
4648 /* k2500 in k2497 in k2494 in k2488 in k2485 in k2482 in reshape in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4649 static void C_ccall f_2502(C_word c,C_word t0,C_word t1){
4650 C_word tmp;
4651 C_word t2;
4652 C_word *a;
4653 C_trace("gl:Translatef");
4654 t2=C_retrieve(lf[56]);
4655 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[2],lf[57],lf[58],lf[59]);}
4656
4657 /* RotateAfter in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4658 static void C_ccall f_2462(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
4659 C_word tmp;
4660 C_word t6;
4661 C_word t7;
4662 C_word ab[7],*a=ab;
4663 if(c!=6) C_bad_argc_2(c,6,t0);
4664 C_check_for_interrupt;
4665 if(!C_stack_probe(&a)){
4666 C_save_and_reclaim((void*)tr6,(void*)f_2462,6,t0,t1,t2,t3,t4,t5);}
4667 t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2466,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp);
4668 C_trace("f32vector");
4669 t7=C_retrieve(lf[54]);
4670 ((C_proc2)C_retrieve_proc(t7))(2,t7,t6);}
4671
4672 /* k2464 in RotateAfter in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4673 static void C_ccall f_2466(C_word c,C_word t0,C_word t1){
4674 C_word tmp;
4675 C_word t2;
4676 C_word t3;
4677 C_word ab[8],*a=ab;
4678 C_check_for_interrupt;
4679 if(!C_stack_probe(&a)){
4680 C_save_and_reclaim((void*)tr2,(void*)f_2466,2,t0,t1);}
4681 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2469,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]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp);
4682 C_trace("gl:GetFloatv");
4683 t3=C_retrieve(lf[52]);
4684 ((C_proc4)C_retrieve_proc(t3))(4,t3,t2,C_retrieve(lf[53]),t1);}
4685
4686 /* k2467 in k2464 in RotateAfter in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4687 static void C_ccall f_2469(C_word c,C_word t0,C_word t1){
4688 C_word tmp;
4689 C_word t2;
4690 C_word t3;
4691 C_word ab[8],*a=ab;
4692 C_check_for_interrupt;
4693 if(!C_stack_probe(&a)){
4694 C_save_and_reclaim((void*)tr2,(void*)f_2469,2,t0,t1);}
4695 t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2472,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],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp);
4696 C_trace("gl:LoadIdentity");
4697 t3=C_retrieve(lf[51]);
4698 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4699
4700 /* k2470 in k2467 in k2464 in RotateAfter in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4701 static void C_ccall f_2472(C_word c,C_word t0,C_word t1){
4702 C_word tmp;
4703 C_word t2;
4704 C_word t3;
4705 C_word ab[4],*a=ab;
4706 C_check_for_interrupt;
4707 if(!C_stack_probe(&a)){
4708 C_save_and_reclaim((void*)tr2,(void*)f_2472,2,t0,t1);}
4709 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2475,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp);
4710 C_trace("gl:Rotatef");
4711 t3=C_retrieve(lf[50]);
4712 ((C_proc6)C_retrieve_proc(t3))(6,t3,t2,((C_word*)t0)[5],((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}
4713
4714 /* k2473 in k2470 in k2467 in k2464 in RotateAfter in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4715 static void C_ccall f_2475(C_word c,C_word t0,C_word t1){
4716 C_word tmp;
4717 C_word t2;
4718 C_word *a;
4719 C_trace("gl:MultMatrixf");
4720 t2=C_retrieve(lf[49]);
4721 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}
4722
4723 /* draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4724 static void C_ccall f_2420(C_word c,C_word t0,C_word t1,C_word t2){
4725 C_word tmp;
4726 C_word t3;
4727 C_word t4;
4728 C_word ab[4],*a=ab;
4729 if(c!=3) C_bad_argc_2(c,3,t0);
4730 C_check_for_interrupt;
4731 if(!C_stack_probe(&a)){
4732 C_save_and_reclaim((void*)tr3,(void*)f_2420,3,t0,t1,t2);}
4733 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2424,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4734 C_apply(4,0,t3,*((C_word*)lf[47]+1),C_retrieve(lf[16]));}
4735
4736 /* k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4737 static void C_ccall f_2424(C_word c,C_word t0,C_word t1){
4738 C_word tmp;
4739 C_word t2;
4740 C_word t3;
4741 C_word ab[4],*a=ab;
4742 C_check_for_interrupt;
4743 if(!C_stack_probe(&a)){
4744 C_save_and_reclaim((void*)tr2,(void*)f_2424,2,t0,t1);}
4745 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2427,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
4746 C_apply(4,0,t2,*((C_word*)lf[46]+1),C_retrieve(lf[16]));}
4747
4748 /* k2425 in k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4749 static void C_ccall f_2427(C_word c,C_word t0,C_word t1){
4750 C_word tmp;
4751 C_word t2;
4752 C_word t3;
4753 C_word ab[4],*a=ab;
4754 C_check_for_interrupt;
4755 if(!C_stack_probe(&a)){
4756 C_save_and_reclaim((void*)tr2,(void*)f_2427,2,t0,t1);}
4757 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
4758 C_trace("gl:Begin");
4759 t3=C_retrieve(lf[44]);
4760 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,C_retrieve(lf[45]));}
4761
4762 /* k2428 in k2425 in k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4763 static void C_ccall f_2430(C_word c,C_word t0,C_word t1){
4764 C_word tmp;
4765 C_word t2;
4766 C_word t3;
4767 C_word t4;
4768 C_word ab[6],*a=ab;
4769 C_check_for_interrupt;
4770 if(!C_stack_probe(&a)){
4771 C_save_and_reclaim((void*)tr2,(void*)f_2430,2,t0,t1);}
4772 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2433,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
4773 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2438,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp);
4774 C_trace("for-each");
4775 t4=*((C_word*)lf[23]+1);
4776 ((C_proc4)(void*)(*((C_word*)t4+1)))(4,t4,t2,t3,((C_word*)t0)[2]);}
4777
4778 /* a2437 in k2428 in k2425 in k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4779 static void C_ccall f_2438(C_word c,C_word t0,C_word t1,C_word t2){
4780 C_word tmp;
4781 C_word t3;
4782 C_word t4;
4783 C_word t5;
4784 C_word ab[3],*a=ab;
4785 if(c!=3) C_bad_argc_2(c,3,t0);
4786 C_check_for_interrupt;
4787 if(!C_stack_probe(&a)){
4788 C_save_and_reclaim((void*)tr3,(void*)f_2438,3,t0,t1,t2);}
4789 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2442,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
4790 t4=(C_word)C_i_car(C_retrieve(lf[43]));
4791 C_trace("draw-point");
4792 t5=C_retrieve(lf[39]);
4793 ((C_proc3)C_retrieve_proc(t5))(3,t5,t3,t4);}
4794
4795 /* k2440 in a2437 in k2428 in k2425 in k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4796 static void C_ccall f_2442(C_word c,C_word t0,C_word t1){
4797 C_word tmp;
4798 C_word t2;
4799 C_word t3;
4800 C_word t4;
4801 C_word ab[3],*a=ab;
4802 C_check_for_interrupt;
4803 if(!C_stack_probe(&a)){
4804 C_save_and_reclaim((void*)tr2,(void*)f_2442,2,t0,t1);}
4805 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2445,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
4806 t3=(C_word)C_i_cadr(C_retrieve(lf[43]));
4807 C_trace("draw-point");
4808 t4=C_retrieve(lf[39]);
4809 ((C_proc3)C_retrieve_proc(t4))(3,t4,t2,t3);}
4810
4811 /* k2443 in k2440 in a2437 in k2428 in k2425 in k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4812 static void C_ccall f_2445(C_word c,C_word t0,C_word t1){
4813 C_word tmp;
4814 C_word t2;
4815 C_word t3;
4816 C_word *a;
4817 t2=(C_word)C_i_caddr(C_retrieve(lf[43]));
4818 C_trace("draw-point");
4819 t3=C_retrieve(lf[39]);
4820 ((C_proc3)C_retrieve_proc(t3))(3,t3,((C_word*)t0)[2],t2);}
4821
4822 /* k2431 in k2428 in k2425 in k2422 in draw-triangles in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4823 static void C_ccall f_2433(C_word c,C_word t0,C_word t1){
4824 C_word tmp;
4825 C_word t2;
4826 C_word *a;
4827 C_trace("gl:End");
4828 t2=C_retrieve(lf[42]);
4829 ((C_proc2)C_retrieve_proc(t2))(2,t2,((C_word*)t0)[2]);}
4830
4831 /* draw-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4832 static void C_ccall f_2400(C_word c,C_word t0,C_word t1,C_word t2){
4833 C_word tmp;
4834 C_word t3;
4835 C_word t4;
4836 C_word t5;
4837 C_word ab[7],*a=ab;
4838 if(c!=3) C_bad_argc_2(c,3,t0);
4839 C_check_for_interrupt;
4840 if(!C_stack_probe(&a)){
4841 C_save_and_reclaim((void*)tr3,(void*)f_2400,3,t0,t1,t2);}
4842 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2404,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4843 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2418,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
4844 C_trace("point-color");
4845 t5=C_retrieve(lf[36]);
4846 ((C_proc3)C_retrieve_proc(t5))(3,t5,t4,t2);}
4847
4848 /* k2416 in draw-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4849 static void C_ccall f_2418(C_word c,C_word t0,C_word t1){
4850 C_word tmp;
4851 C_word t2;
4852 C_word *a;
4853 C_trace("colorspace");
4854 t2=C_retrieve(lf[24]);
4855 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
4856
4857 /* k2402 in draw-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4858 static void C_ccall f_2404(C_word c,C_word t0,C_word t1){
4859 C_word tmp;
4860 C_word t2;
4861 C_word t3;
4862 C_word ab[4],*a=ab;
4863 C_check_for_interrupt;
4864 if(!C_stack_probe(&a)){
4865 C_save_and_reclaim((void*)tr2,(void*)f_2404,2,t0,t1);}
4866 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
4867 C_trace("gl:Color3f");
4868 t3=C_retrieve(lf[30]);
4869 ((C_proc5)C_retrieve_proc(t3))(5,t3,t2,t1,t1,t1);}
4870
4871 /* k2405 in k2402 in draw-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4872 static void C_ccall f_2407(C_word c,C_word t0,C_word t1){
4873 C_word tmp;
4874 C_word t2;
4875 C_word t3;
4876 C_word ab[3],*a=ab;
4877 C_check_for_interrupt;
4878 if(!C_stack_probe(&a)){
4879 C_save_and_reclaim((void*)tr2,(void*)f_2407,2,t0,t1);}
4880 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2414,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
4881 C_trace("point-pos");
4882 t3=C_retrieve(lf[34]);
4883 ((C_proc3)C_retrieve_proc(t3))(3,t3,t2,((C_word*)t0)[2]);}
4884
4885 /* k2412 in k2405 in k2402 in draw-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4886 static void C_ccall f_2414(C_word c,C_word t0,C_word t1){
4887 C_word tmp;
4888 C_word t2;
4889 C_word *a;
4890 C_trace("gl:Vertex3fv");
4891 t2=C_retrieve(lf[40]);
4892 ((C_proc3)C_retrieve_proc(t2))(3,t2,((C_word*)t0)[2],t1);}
4893
4894 /* new-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4895 static void C_ccall f_2394(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
4896 C_word tmp;
4897 C_word t4;
4898 C_word ab[6],*a=ab;
4899 if(c!=4) C_bad_argc_2(c,4,t0);
4900 C_check_for_interrupt;
4901 if(!C_stack_probe(&a)){
4902 C_save_and_reclaim((void*)tr4,(void*)f_2394,4,t0,t1,t2,t3);}
4903 t4=t1;
4904 ((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)C_a_i_list(&a,2,t2,t3));}
4905
4906 /* trianglegrid-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4907 static void C_ccall f_2369(C_word c,C_word t0,C_word t1){
4908 C_word tmp;
4909 C_word t2;
4910 C_word t3;
4911 C_word ab[3],*a=ab;
4912 if(c!=2) C_bad_argc_2(c,2,t0);
4913 C_check_for_interrupt;
4914 if(!C_stack_probe(&a)){
4915 C_save_and_reclaim((void*)tr2,(void*)f_2369,2,t0,t1);}
4916 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2373,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
4917 C_trace("recalc-colorspace");
4918 t3=C_retrieve(lf[21]);
4919 ((C_proc2)C_retrieve_proc(t3))(2,t3,t2);}
4920
4921 /* k2371 in trianglegrid-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4922 static void C_ccall f_2373(C_word c,C_word t0,C_word t1){
4923 C_word tmp;
4924 C_word t2;
4925 C_word t3;
4926 C_word ab[3],*a=ab;
4927 C_check_for_interrupt;
4928 if(!C_stack_probe(&a)){
4929 C_save_and_reclaim((void*)tr2,(void*)f_2373,2,t0,t1);}
4930 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2378,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp);
4931 C_trace("for-each");
4932 t3=*((C_word*)lf[23]+1);
4933 ((C_proc4)(void*)(*((C_word*)t3+1)))(4,t3,((C_word*)t0)[2],t2,C_retrieve(lf[16]));}
4934
4935 /* a2377 in k2371 in trianglegrid-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4936 static void C_ccall f_2378(C_word c,C_word t0,C_word t1,C_word t2){
4937 C_word tmp;
4938 C_word t3;
4939 C_word t4;
4940 C_word t5;
4941 C_word ab[4],*a=ab;
4942 if(c!=3) C_bad_argc_2(c,3,t0);
4943 C_check_for_interrupt;
4944 if(!C_stack_probe(&a)){
4945 C_save_and_reclaim((void*)tr3,(void*)f_2378,3,t0,t1,t2);}
4946 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2386,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
4947 t4=(C_word)C_i_cadddr(t2);
4948 C_trace("colorspace");
4949 t5=C_retrieve(lf[24]);
4950 ((C_proc3)C_retrieve_proc(t5))(3,t5,t3,t4);}
4951
4952 /* k2384 in a2377 in k2371 in trianglegrid-draw in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4953 static void C_ccall f_2386(C_word c,C_word t0,C_word t1){
4954 C_word tmp;
4955 C_word t2;
4956 C_word *a;
4957 C_trace("pos-draw");
4958 t2=C_retrieve(lf[32]);
4959 ((C_proc5)C_retrieve_proc(t2))(5,t2,((C_word*)t0)[3],((C_word*)t0)[2],lf[33],t1);}
4960
4961 /* make-gl-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4962 static void C_ccall f_2340(C_word c,C_word t0,C_word t1,C_word t2){
4963 C_word tmp;
4964 C_word t3;
4965 C_word t4;
4966 C_word t5;
4967 C_word t6;
4968 C_word ab[7],*a=ab;
4969 if(c!=3) C_bad_argc_2(c,3,t0);
4970 C_check_for_interrupt;
4971 if(!C_stack_probe(&a)){
4972 C_save_and_reclaim((void*)tr3,(void*)f_2340,3,t0,t1,t2);}
4973 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2344,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
4974 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2363,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
4975 t5=(C_word)C_i_cadddr(t2);
4976 C_trace("colorspace");
4977 t6=C_retrieve(lf[24]);
4978 ((C_proc3)C_retrieve_proc(t6))(3,t6,t4,t5);}
4979
4980 /* k2361 in make-gl-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4981 static void C_ccall f_2363(C_word c,C_word t0,C_word t1){
4982 C_word tmp;
4983 C_word t2;
4984 C_word *a;
4985 C_apply(4,0,((C_word*)t0)[2],C_retrieve(lf[30]),t1);}
4986
4987 /* k2342 in make-gl-point in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
4988 static void C_ccall f_2344(C_word c,C_word t0,C_word t1){
4989 C_word tmp;
4990 C_word t2;
4991 C_word t3;
4992 C_word t4;
4993 C_word t5;
4994 C_word *a;
4995 t2=(C_word)C_i_car(((C_word*)t0)[3]);
4996 t3=(C_word)C_i_cadr(((C_word*)t0)[3]);
4997 t4=(C_word)C_i_caddr(((C_word*)t0)[3]);
4998 C_trace("gl:Vertex3f");
4999 t5=C_retrieve(lf[29]);
5000 ((C_proc5)C_retrieve_proc(t5))(5,t5,((C_word*)t0)[2],t2,t3,t4);}
5001
5002 /* colorspace in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5003 static void C_ccall f_2284(C_word c,C_word t0,C_word t1,C_word t2){
5004 C_word tmp;
5005 C_word t3;
5006 C_word t4;
5007 C_word t5;
5008 C_word t6;
5009 C_word t7;
5010 C_word t8;
5011 C_word ab[11],*a=ab;
5012 if(c!=3) C_bad_argc_2(c,3,t0);
5013 C_check_for_interrupt;
5014 if(!C_stack_probe(&a)){
5015 C_save_and_reclaim((void*)tr3,(void*)f_2284,3,t0,t1,t2);}
5016 t3=(C_word)C_a_i_minus(&a,2,C_retrieve(lf[20]),C_retrieve(lf[19]));
5017 t4=t3;
5018 t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
5019 t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2291,a[2]=t1,a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
5020 if(C_truep((C_word)C_i_nequalp(((C_word*)t5)[1],C_fix(0)))){
5021 t7=C_set_block_item(t5,0,lf[27]);
5022 t8=t6;
5023 f_2291(t8,t7);}
5024 else{
5025 t7=t6;
5026 f_2291(t7,C_retrieve(lf[22]));}}
5027
5028 /* k2289 in colorspace in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5029 static void C_fcall f_2291(C_word t0,C_word t1){
5030 C_word tmp;
5031 C_word t2;
5032 C_word t3;
5033 C_word t4;
5034 C_word t5;
5035 C_word t6;
5036 C_word t7;
5037 C_word t8;
5038 C_word ab[24],*a=ab;
5039 C_check_for_interrupt;
5040 if(!C_stack_probe(&a)){
5041 C_save_and_reclaim((void*)trf_2291,NULL,2,t0,t1);}
5042 t2=(C_word)C_a_i_plus(&a,2,C_retrieve(lf[19]),C_retrieve(lf[20]));
5043 t3=(C_word)C_a_i_divide(&a,2,t2,C_fix(2));
5044 t4=(C_word)C_a_i_minus(&a,2,((C_word*)t0)[4],t3);
5045 t5=(C_word)C_a_i_divide(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]);
5046 t6=(C_word)C_a_i_plus(&a,2,t5,lf[25]);
5047 t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2299,a[2]=t6,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp);
5048 C_trace("map");
5049 t8=*((C_word*)lf[4]+1);
5050 ((C_proc4)(void*)(*((C_word*)t8+1)))(4,t8,((C_word*)t0)[2],t7,lf[26]);}
5051
5052 /* a2298 in k2289 in colorspace in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5053 static void C_ccall f_2299(C_word c,C_word t0,C_word t1,C_word t2){
5054 C_word tmp;
5055 C_word t3;
5056 C_word t4;
5057 C_word t5;
5058 C_word t6;
5059 C_word ab[16],*a=ab;
5060 if(c!=3) C_bad_argc_2(c,3,t0);
5061 C_check_for_interrupt;
5062 if(!C_stack_probe(&a)){
5063 C_save_and_reclaim((void*)tr3,(void*)f_2299,3,t0,t1,t2);}
5064 t3=(C_word)C_a_i_minus(&a,2,t2,((C_word*)t0)[2]);
5065 t4=(C_word)C_a_i_abs(&a,1,t3);
5066 t5=(C_word)C_a_i_times(&a,2,C_fix(2),t4);
5067 t6=t1;
5068 ((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,(C_word)C_a_i_minus(&a,2,C_fix(1),t5));}
5069
5070 /* recalc-colorspace in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5071 static void C_ccall f_2252(C_word c,C_word t0,C_word t1){
5072 C_word tmp;
5073 C_word t2;
5074 C_word t3;
5075 C_word ab[3],*a=ab;
5076 if(c!=2) C_bad_argc_2(c,2,t0);
5077 C_check_for_interrupt;
5078 if(!C_stack_probe(&a)){
5079 C_save_and_reclaim((void*)tr2,(void*)f_2252,2,t0,t1);}
5080 t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2258,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp);
5081 C_trace("for-each");
5082 t3=*((C_word*)lf[23]+1);
5083 ((C_proc4)(void*)(*((C_word*)t3+1)))(4,t3,t1,t2,C_retrieve(lf[16]));}
5084
5085 /* a2257 in recalc-colorspace in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5086 static void C_ccall f_2258(C_word c,C_word t0,C_word t1,C_word t2){
5087 C_word tmp;
5088 C_word t3;
5089 C_word t4;
5090 C_word t5;
5091 C_word t6;
5092 C_word ab[4],*a=ab;
5093 if(c!=3) C_bad_argc_2(c,3,t0);
5094 C_check_for_interrupt;
5095 if(!C_stack_probe(&a)){
5096 C_save_and_reclaim((void*)tr3,(void*)f_2258,3,t0,t1,t2);}
5097 t3=(C_word)C_i_cadddr(t2);
5098 t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2265,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);
5099 if(C_truep((C_word)C_i_lessp(t3,C_retrieve(lf[19])))){
5100 t5=C_mutate((C_word*)lf[19]+1,t3);
5101 t6=t4;
5102 f_2265(t6,t5);}
5103 else{
5104 t5=t4;
5105 f_2265(t5,C_retrieve(lf[22]));}}
5106
5107 /* k2263 in a2257 in recalc-colorspace in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5108 static void C_fcall f_2265(C_word t0,C_word t1){
5109 C_word tmp;
5110 C_word t2;
5111 C_word t3;
5112 C_word *a;
5113 if(C_truep((C_word)C_i_greaterp(((C_word*)t0)[3],C_retrieve(lf[20])))){
5114 t2=C_mutate((C_word*)lf[20]+1,((C_word*)t0)[3]);
5115 t3=((C_word*)t0)[2];
5116 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
5117 else{
5118 t2=((C_word*)t0)[2];
5119 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_retrieve(lf[22]));}}
5120
5121 /* trianglegrid-addpoint in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5122 static void C_ccall f_2240(C_word c,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){
5123 C_word tmp;
5124 C_word t6;
5125 C_word t7;
5126 C_word t8;
5127 C_word t9;
5128 C_word ab[15],*a=ab;
5129 if(c!=6) C_bad_argc_2(c,6,t0);
5130 C_check_for_interrupt;
5131 if(!C_stack_probe(&a)){
5132 C_save_and_reclaim((void*)tr6,(void*)f_2240,6,t0,t1,t2,t3,t4,t5);}
5133 t6=(C_word)C_a_i_list(&a,4,t2,t3,t4,t5);
5134 t7=(C_word)C_a_i_cons(&a,2,t6,C_retrieve(lf[16]));
5135 t8=C_mutate((C_word*)lf[16]+1,t7);
5136 t9=t1;
5137 ((C_proc2)(void*)(*((C_word*)t9+1)))(2,t9,t8);}
5138
5139 /* deg2rad in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5140 static void C_ccall f_2226(C_word c,C_word t0,C_word t1,C_word t2){
5141 C_word tmp;
5142 C_word t3;
5143 C_word t4;
5144 C_word ab[8],*a=ab;
5145 if(c!=3) C_bad_argc_2(c,3,t0);
5146 C_check_for_interrupt;
5147 if(!C_stack_probe(&a)){
5148 C_save_and_reclaim((void*)tr3,(void*)f_2226,3,t0,t1,t2);}
5149 t3=(C_word)C_a_i_divide(&a,2,t2,C_fix(180));
5150 t4=t1;
5151 ((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)C_a_i_times(&a,2,C_retrieve(lf[9]),t3));}
5152
5153 /* dot in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5154 static void C_ccall f_2212(C_word c,C_word t0,C_word t1,...){
5155 C_word tmp;
5156 C_word t2;
5157 va_list v;
5158 C_word *a,c2=c;
5159 C_save_rest(t1,c2,2);
5160 C_check_for_interrupt;
5161 if(!C_demand(c*C_SIZEOF_PAIR+3)){
5162 C_save_and_reclaim((void*)tr2r,(void*)f_2212r,2,t0,t1);}
5163 else{
5164 a=C_alloc((c-2)*3);
5165 t2=C_restore_rest(a,C_rest_count(0));
5166 f_2212r(t0,t1,t2);}}
5167
5168 static void C_ccall f_2212r(C_word t0,C_word t1,C_word t2){
5169 C_word tmp;
5170 C_word t3;
5171 C_word t4;
5172 C_word *a=C_alloc(3);
5173 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2220,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
5174 C_apply(5,0,t3,*((C_word*)lf[7]+1),*((C_word*)lf[8]+1),t2);}
5175
5176 /* k2218 in dot in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5177 static void C_ccall f_2220(C_word c,C_word t0,C_word t1){
5178 C_word tmp;
5179 C_word t2;
5180 C_word *a;
5181 C_apply(4,0,((C_word*)t0)[2],*((C_word*)lf[3]+1),t1);}
5182
5183 /* normalize in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5184 static void C_ccall f_2197(C_word c,C_word t0,C_word t1,C_word t2){
5185 C_word tmp;
5186 C_word t3;
5187 C_word t4;
5188 C_word ab[4],*a=ab;
5189 if(c!=3) C_bad_argc_2(c,3,t0);
5190 C_check_for_interrupt;
5191 if(!C_stack_probe(&a)){
5192 C_save_and_reclaim((void*)tr3,(void*)f_2197,3,t0,t1,t2);}
5193 t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2201,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
5194 C_trace("magnitude");
5195 t4=C_retrieve(lf[2]);
5196 ((C_proc3)C_retrieve_proc(t4))(3,t4,t3,t2);}
5197
5198 /* k2199 in normalize in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5199 static void C_ccall f_2201(C_word c,C_word t0,C_word t1){
5200 C_word tmp;
5201 C_word t2;
5202 C_word t3;
5203 C_word ab[4],*a=ab;
5204 C_check_for_interrupt;
5205 if(!C_stack_probe(&a)){
5206 C_save_and_reclaim((void*)tr2,(void*)f_2201,2,t0,t1);}
5207 t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2206,a[2]=t1,a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp);
5208 C_trace("map");
5209 t3=*((C_word*)lf[4]+1);
5210 ((C_proc4)(void*)(*((C_word*)t3+1)))(4,t3,((C_word*)t0)[3],t2,((C_word*)t0)[2]);}
5211
5212 /* a2205 in k2199 in normalize in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5213 static void C_ccall f_2206(C_word c,C_word t0,C_word t1,C_word t2){
5214 C_word tmp;
5215 C_word t3;
5216 C_word ab[4],*a=ab;
5217 if(c!=3) C_bad_argc_2(c,3,t0);
5218 C_check_for_interrupt;
5219 if(!C_stack_probe(&a)){
5220 C_save_and_reclaim((void*)tr3,(void*)f_2206,3,t0,t1,t2);}
5221 t3=t1;
5222 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_divide(&a,2,t2,((C_word*)t0)[2]));}
5223
5224 /* magnitude in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5225 static void C_ccall f_2183(C_word c,C_word t0,C_word t1,C_word t2){
5226 C_word tmp;
5227 C_word t3;
5228 C_word t4;
5229 C_word t5;
5230 C_word ab[6],*a=ab;
5231 if(c!=3) C_bad_argc_2(c,3,t0);
5232 C_check_for_interrupt;
5233 if(!C_stack_probe(&a)){
5234 C_save_and_reclaim((void*)tr3,(void*)f_2183,3,t0,t1,t2);}
5235 t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2191,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
5236 t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2195,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
5237 C_trace("map");
5238 t5=*((C_word*)lf[4]+1);
5239 ((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t4,C_retrieve(lf[0]),t2);}
5240
5241 /* k2193 in magnitude in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5242 static void C_ccall f_2195(C_word c,C_word t0,C_word t1){
5243 C_word tmp;
5244 C_word t2;
5245 C_word *a;
5246 C_apply(4,0,((C_word*)t0)[2],*((C_word*)lf[3]+1),t1);}
5247
5248 /* k2189 in magnitude in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5249 static void C_ccall f_2191(C_word c,C_word t0,C_word t1){
5250 C_word tmp;
5251 C_word t2;
5252 C_word ab[4],*a=ab;
5253 C_check_for_interrupt;
5254 if(!C_stack_probe(&a)){
5255 C_save_and_reclaim((void*)tr2,(void*)f_2191,2,t0,t1);}
5256 t2=((C_word*)t0)[2];
5257 ((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_sqrt(&a,1,t1));}
5258
5259 /* cube in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5260 static void C_ccall f_2177(C_word c,C_word t0,C_word t1,C_word t2){
5261 C_word tmp;
5262 C_word t3;
5263 C_word *a;
5264 if(c!=3) C_bad_argc_2(c,3,t0);
5265 C_check_for_interrupt;
5266 if(!C_stack_probe(&a)){
5267 C_save_and_reclaim((void*)tr3,(void*)f_2177,3,t0,t1,t2);}
5268 C_trace("*");
5269 C_times(5,0,t1,t2,t2,t2);}
5270
5271 /* square in k2167 in k2164 in k2161 in k2158 in k2155 in k2152 in k2149 in k2146 in k2143 in k2140 in k2137 in k2134 in k2131 in k2128 */
5272 static void C_ccall f_2171(C_word c,C_word t0,C_word t1,C_word t2){
5273 C_word tmp;
5274 C_word t3;
5275 C_word ab[4],*a=ab;
5276 if(c!=3) C_bad_argc_2(c,3,t0);
5277 C_check_for_interrupt;
5278 if(!C_stack_probe(&a)){
5279 C_save_and_reclaim((void*)tr3,(void*)f_2171,3,t0,t1,t2);}
5280 t3=t1;
5281 ((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)C_a_i_times(&a,2,t2,t2));}
5282
5283 #ifdef C_ENABLE_PTABLES
5284 static C_PTABLE_ENTRY ptable[279] = {
5285 {"toplevelmagplot.scm",(void*)C_toplevel},
5286 {"f_2130magplot.scm",(void*)f_2130},
5287 {"f_2133magplot.scm",(void*)f_2133},
5288 {"f_2136magplot.scm",(void*)f_2136},
5289 {"f_2139magplot.scm",(void*)f_2139},
5290 {"f_2142magplot.scm",(void*)f_2142},
5291 {"f_2145magplot.scm",(void*)f_2145},
5292 {"f_2148magplot.scm",(void*)f_2148},
5293 {"f_2151magplot.scm",(void*)f_2151},
5294 {"f_2154magplot.scm",(void*)f_2154},
5295 {"f_2157magplot.scm",(void*)f_2157},
5296 {"f_2160magplot.scm",(void*)f_2160},
5297 {"f_2163magplot.scm",(void*)f_2163},
5298 {"f_2166magplot.scm",(void*)f_2166},
5299 {"f_2169magplot.scm",(void*)f_2169},
5300 {"f_3033magplot.scm",(void*)f_3033},
5301 {"f_3036magplot.scm",(void*)f_3036},
5302 {"f_3099magplot.scm",(void*)f_3099},
5303 {"f_3114magplot.scm",(void*)f_3114},
5304 {"f_3117magplot.scm",(void*)f_3117},
5305 {"f_3120magplot.scm",(void*)f_3120},
5306 {"f_4005magplot.scm",(void*)f_4005},
5307 {"f_3338magplot.scm",(void*)f_3338},
5308 {"f_3341magplot.scm",(void*)f_3341},
5309 {"f_3344magplot.scm",(void*)f_3344},
5310 {"f_3347magplot.scm",(void*)f_3347},
5311 {"f_3350magplot.scm",(void*)f_3350},
5312 {"f_3353magplot.scm",(void*)f_3353},
5313 {"f_3356magplot.scm",(void*)f_3356},
5314 {"f_3359magplot.scm",(void*)f_3359},
5315 {"f_3362magplot.scm",(void*)f_3362},
5316 {"f_3950magplot.scm",(void*)f_3950},
5317 {"f_3978magplot.scm",(void*)f_3978},
5318 {"f_3991magplot.scm",(void*)f_3991},
5319 {"f_3989magplot.scm",(void*)f_3989},
5320 {"f_3985magplot.scm",(void*)f_3985},
5321 {"f_3967magplot.scm",(void*)f_3967},
5322 {"f_3975magplot.scm",(void*)f_3975},
5323 {"f_3960magplot.scm",(void*)f_3960},
5324 {"f_3948magplot.scm",(void*)f_3948},
5325 {"f_3525magplot.scm",(void*)f_3525},
5326 {"f_3874magplot.scm",(void*)f_3874},
5327 {"f_3921magplot.scm",(void*)f_3921},
5328 {"f_3929magplot.scm",(void*)f_3929},
5329 {"f_3902magplot.scm",(void*)f_3902},
5330 {"f_3915magplot.scm",(void*)f_3915},
5331 {"f_3913magplot.scm",(void*)f_3913},
5332 {"f_3909magplot.scm",(void*)f_3909},
5333 {"f_3891magplot.scm",(void*)f_3891},
5334 {"f_3899magplot.scm",(void*)f_3899},
5335 {"f_3884magplot.scm",(void*)f_3884},
5336 {"f_3872magplot.scm",(void*)f_3872},
5337 {"f_3529magplot.scm",(void*)f_3529},
5338 {"f_3800magplot.scm",(void*)f_3800},
5339 {"f_3857magplot.scm",(void*)f_3857},
5340 {"f_3862magplot.scm",(void*)f_3862},
5341 {"f_3852magplot.scm",(void*)f_3852},
5342 {"f_3828magplot.scm",(void*)f_3828},
5343 {"f_3841magplot.scm",(void*)f_3841},
5344 {"f_3839magplot.scm",(void*)f_3839},
5345 {"f_3835magplot.scm",(void*)f_3835},
5346 {"f_3817magplot.scm",(void*)f_3817},
5347 {"f_3825magplot.scm",(void*)f_3825},
5348 {"f_3810magplot.scm",(void*)f_3810},
5349 {"f_3798magplot.scm",(void*)f_3798},
5350 {"f_3533magplot.scm",(void*)f_3533},
5351 {"f_3745magplot.scm",(void*)f_3745},
5352 {"f_3784magplot.scm",(void*)f_3784},
5353 {"f_3782magplot.scm",(void*)f_3782},
5354 {"f_3778magplot.scm",(void*)f_3778},
5355 {"f_3762magplot.scm",(void*)f_3762},
5356 {"f_3770magplot.scm",(void*)f_3770},
5357 {"f_3755magplot.scm",(void*)f_3755},
5358 {"f_3743magplot.scm",(void*)f_3743},
5359 {"f_3537magplot.scm",(void*)f_3537},
5360 {"f_3690magplot.scm",(void*)f_3690},
5361 {"f_3729magplot.scm",(void*)f_3729},
5362 {"f_3727magplot.scm",(void*)f_3727},
5363 {"f_3723magplot.scm",(void*)f_3723},
5364 {"f_3707magplot.scm",(void*)f_3707},
5365 {"f_3715magplot.scm",(void*)f_3715},
5366 {"f_3700magplot.scm",(void*)f_3700},
5367 {"f_3688magplot.scm",(void*)f_3688},
5368 {"f_3541magplot.scm",(void*)f_3541},
5369 {"f_3619magplot.scm",(void*)f_3619},
5370 {"f_3678magplot.scm",(void*)f_3678},
5371 {"f_3647magplot.scm",(void*)f_3647},
5372 {"f_3669magplot.scm",(void*)f_3669},
5373 {"f_3674magplot.scm",(void*)f_3674},
5374 {"f_3650magplot.scm",(void*)f_3650},
5375 {"f_3663magplot.scm",(void*)f_3663},
5376 {"f_3661magplot.scm",(void*)f_3661},
5377 {"f_3657magplot.scm",(void*)f_3657},
5378 {"f_3636magplot.scm",(void*)f_3636},
5379 {"f_3644magplot.scm",(void*)f_3644},
5380 {"f_3629magplot.scm",(void*)f_3629},
5381 {"f_3617magplot.scm",(void*)f_3617},
5382 {"f_3545magplot.scm",(void*)f_3545},
5383 {"f_3555magplot.scm",(void*)f_3555},
5384 {"f_3602magplot.scm",(void*)f_3602},
5385 {"f_3607magplot.scm",(void*)f_3607},
5386 {"f_3583magplot.scm",(void*)f_3583},
5387 {"f_3596magplot.scm",(void*)f_3596},
5388 {"f_3594magplot.scm",(void*)f_3594},
5389 {"f_3590magplot.scm",(void*)f_3590},
5390 {"f_3572magplot.scm",(void*)f_3572},
5391 {"f_3580magplot.scm",(void*)f_3580},
5392 {"f_3565magplot.scm",(void*)f_3565},
5393 {"f_3553magplot.scm",(void*)f_3553},
5394 {"f_3549magplot.scm",(void*)f_3549},
5395 {"f_3521magplot.scm",(void*)f_3521},
5396 {"f_3493magplot.scm",(void*)f_3493},
5397 {"f_3507magplot.scm",(void*)f_3507},
5398 {"f_3511magplot.scm",(void*)f_3511},
5399 {"f_3496magplot.scm",(void*)f_3496},
5400 {"f_3502magplot.scm",(void*)f_3502},
5401 {"f_3499magplot.scm",(void*)f_3499},
5402 {"f_3482magplot.scm",(void*)f_3482},
5403 {"f_3444magplot.scm",(void*)f_3444},
5404 {"f_3448magplot.scm",(void*)f_3448},
5405 {"f_3451magplot.scm",(void*)f_3451},
5406 {"f_3454magplot.scm",(void*)f_3454},
5407 {"f_3457magplot.scm",(void*)f_3457},
5408 {"f_3466magplot.scm",(void*)f_3466},
5409 {"f_3399magplot.scm",(void*)f_3399},
5410 {"f_3435magplot.scm",(void*)f_3435},
5411 {"f_3415magplot.scm",(void*)f_3415},
5412 {"f_3418magplot.scm",(void*)f_3418},
5413 {"f_3364magplot.scm",(void*)f_3364},
5414 {"f_3392magplot.scm",(void*)f_3392},
5415 {"f_3368magplot.scm",(void*)f_3368},
5416 {"f_3371magplot.scm",(void*)f_3371},
5417 {"f_3384magplot.scm",(void*)f_3384},
5418 {"f_3374magplot.scm",(void*)f_3374},
5419 {"f_3377magplot.scm",(void*)f_3377},
5420 {"f_3193magplot.scm",(void*)f_3193},
5421 {"f_3203magplot.scm",(void*)f_3203},
5422 {"f_3266magplot.scm",(void*)f_3266},
5423 {"f_3323magplot.scm",(void*)f_3323},
5424 {"f_3301magplot.scm",(void*)f_3301},
5425 {"f_3288magplot.scm",(void*)f_3288},
5426 {"f_3206magplot.scm",(void*)f_3206},
5427 {"f_3197magplot.scm",(void*)f_3197},
5428 {"f_3139magplot.scm",(void*)f_3139},
5429 {"f_3179magplot.scm",(void*)f_3179},
5430 {"f_3161magplot.scm",(void*)f_3161},
5431 {"f_3171magplot.scm",(void*)f_3171},
5432 {"f_3143magplot.scm",(void*)f_3143},
5433 {"f_3122magplot.scm",(void*)f_3122},
5434 {"f_3126magplot.scm",(void*)f_3126},
5435 {"f_3137magplot.scm",(void*)f_3137},
5436 {"f_3107magplot.scm",(void*)f_3107},
5437 {"f_3101magplot.scm",(void*)f_3101},
5438 {"f_3037magplot.scm",(void*)f_3037},
5439 {"f_3076magplot.scm",(void*)f_3076},
5440 {"f_3080magplot.scm",(void*)f_3080},
5441 {"f_3086magplot.scm",(void*)f_3086},
5442 {"f_3041magplot.scm",(void*)f_3041},
5443 {"f_3052magplot.scm",(void*)f_3052},
5444 {"f_3056magplot.scm",(void*)f_3056},
5445 {"f_3062magplot.scm",(void*)f_3062},
5446 {"f_3044magplot.scm",(void*)f_3044},
5447 {"f_2984magplot.scm",(void*)f_2984},
5448 {"f_2986magplot.scm",(void*)f_2986},
5449 {"f_2993magplot.scm",(void*)f_2993},
5450 {"f_2998magplot.scm",(void*)f_2998},
5451 {"f_3002magplot.scm",(void*)f_3002},
5452 {"f_3022magplot.scm",(void*)f_3022},
5453 {"f_3017magplot.scm",(void*)f_3017},
5454 {"f_2788magplot.scm",(void*)f_2788},
5455 {"f_2792magplot.scm",(void*)f_2792},
5456 {"f_2804magplot.scm",(void*)f_2804},
5457 {"f_2807magplot.scm",(void*)f_2807},
5458 {"f_2810magplot.scm",(void*)f_2810},
5459 {"f_2816magplot.scm",(void*)f_2816},
5460 {"f_2822magplot.scm",(void*)f_2822},
5461 {"f_2825magplot.scm",(void*)f_2825},
5462 {"f_2828magplot.scm",(void*)f_2828},
5463 {"f_2831magplot.scm",(void*)f_2831},
5464 {"f_2934magplot.scm",(void*)f_2934},
5465 {"f_2874magplot.scm",(void*)f_2874},
5466 {"f_2924magplot.scm",(void*)f_2924},
5467 {"f_2877magplot.scm",(void*)f_2877},
5468 {"f_2880magplot.scm",(void*)f_2880},
5469 {"f_2900magplot.scm",(void*)f_2900},
5470 {"f_2904magplot.scm",(void*)f_2904},
5471 {"f_2892magplot.scm",(void*)f_2892},
5472 {"f_2884magplot.scm",(void*)f_2884},
5473 {"f_2842magplot.scm",(void*)f_2842},
5474 {"f_2850magplot.scm",(void*)f_2850},
5475 {"f_2858magplot.scm",(void*)f_2858},
5476 {"f_2722magplot.scm",(void*)f_2722},
5477 {"f_2726magplot.scm",(void*)f_2726},
5478 {"f_2773magplot.scm",(void*)f_2773},
5479 {"f_2769magplot.scm",(void*)f_2769},
5480 {"f_2733magplot.scm",(void*)f_2733},
5481 {"f_2753magplot.scm",(void*)f_2753},
5482 {"f_2669magplot.scm",(void*)f_2669},
5483 {"f_2673magplot.scm",(void*)f_2673},
5484 {"f_2679magplot.scm",(void*)f_2679},
5485 {"f_2699magplot.scm",(void*)f_2699},
5486 {"f_2682magplot.scm",(void*)f_2682},
5487 {"f_2688magplot.scm",(void*)f_2688},
5488 {"f_2692magplot.scm",(void*)f_2692},
5489 {"f_2656magplot.scm",(void*)f_2656},
5490 {"f_2662magplot.scm",(void*)f_2662},
5491 {"f_2632magplot.scm",(void*)f_2632},
5492 {"f_2636magplot.scm",(void*)f_2636},
5493 {"f_2639magplot.scm",(void*)f_2639},
5494 {"f_2642magplot.scm",(void*)f_2642},
5495 {"f_2645magplot.scm",(void*)f_2645},
5496 {"f_2648magplot.scm",(void*)f_2648},
5497 {"f_2651magplot.scm",(void*)f_2651},
5498 {"f_2515magplot.scm",(void*)f_2515},
5499 {"f_2519magplot.scm",(void*)f_2519},
5500 {"f_2522magplot.scm",(void*)f_2522},
5501 {"f_2525magplot.scm",(void*)f_2525},
5502 {"f_2528magplot.scm",(void*)f_2528},
5503 {"f_2531magplot.scm",(void*)f_2531},
5504 {"f_2534magplot.scm",(void*)f_2534},
5505 {"f_2537magplot.scm",(void*)f_2537},
5506 {"f_2540magplot.scm",(void*)f_2540},
5507 {"f_2554magplot.scm",(void*)f_2554},
5508 {"f_2564magplot.scm",(void*)f_2564},
5509 {"f_2543magplot.scm",(void*)f_2543},
5510 {"f_2546magplot.scm",(void*)f_2546},
5511 {"f_2549magplot.scm",(void*)f_2549},
5512 {"f_2480magplot.scm",(void*)f_2480},
5513 {"f_2484magplot.scm",(void*)f_2484},
5514 {"f_2487magplot.scm",(void*)f_2487},
5515 {"f_2490magplot.scm",(void*)f_2490},
5516 {"f_2496magplot.scm",(void*)f_2496},
5517 {"f_2499magplot.scm",(void*)f_2499},
5518 {"f_2502magplot.scm",(void*)f_2502},
5519 {"f_2462magplot.scm",(void*)f_2462},
5520 {"f_2466magplot.scm",(void*)f_2466},
5521 {"f_2469magplot.scm",(void*)f_2469},
5522 {"f_2472magplot.scm",(void*)f_2472},
5523 {"f_2475magplot.scm",(void*)f_2475},
5524 {"f_2420magplot.scm",(void*)f_2420},
5525 {"f_2424magplot.scm",(void*)f_2424},
5526 {"f_2427magplot.scm",(void*)f_2427},
5527 {"f_2430magplot.scm",(void*)f_2430},
5528 {"f_2438magplot.scm",(void*)f_2438},
5529 {"f_2442magplot.scm",(void*)f_2442},
5530 {"f_2445magplot.scm",(void*)f_2445},
5531 {"f_2433magplot.scm",(void*)f_2433},
5532 {"f_2400magplot.scm",(void*)f_2400},
5533 {"f_2418magplot.scm",(void*)f_2418},
5534 {"f_2404magplot.scm",(void*)f_2404},
5535 {"f_2407magplot.scm",(void*)f_2407},
5536 {"f_2414magplot.scm",(void*)f_2414},
5537 {"f_2394magplot.scm",(void*)f_2394},
5538 {"f_2369magplot.scm",(void*)f_2369},
5539 {"f_2373magplot.scm",(void*)f_2373},
5540 {"f_2378magplot.scm",(void*)f_2378},
5541 {"f_2386magplot.scm",(void*)f_2386},
5542 {"f_2340magplot.scm",(void*)f_2340},
5543 {"f_2363magplot.scm",(void*)f_2363},
5544 {"f_2344magplot.scm",(void*)f_2344},
5545 {"f_2284magplot.scm",(void*)f_2284},
5546 {"f_2291magplot.scm",(void*)f_2291},
5547 {"f_2299magplot.scm",(void*)f_2299},
5548 {"f_2252magplot.scm",(void*)f_2252},
5549 {"f_2258magplot.scm",(void*)f_2258},
5550 {"f_2265magplot.scm",(void*)f_2265},
5551 {"f_2240magplot.scm",(void*)f_2240},
5552 {"f_2226magplot.scm",(void*)f_2226},
5553 {"f_2212magplot.scm",(void*)f_2212},
5554 {"f_2220magplot.scm",(void*)f_2220},
5555 {"f_2197magplot.scm",(void*)f_2197},
5556 {"f_2201magplot.scm",(void*)f_2201},
5557 {"f_2206magplot.scm",(void*)f_2206},
5558 {"f_2183magplot.scm",(void*)f_2183},
5559 {"f_2195magplot.scm",(void*)f_2195},
5560 {"f_2191magplot.scm",(void*)f_2191},
5561 {"f_2177magplot.scm",(void*)f_2177},
5562 {"f_2171magplot.scm",(void*)f_2171},
5563 {NULL,NULL}};
5564 #endif
5565
5566 static C_PTABLE_ENTRY *create_ptable(void){
5567 #ifdef C_ENABLE_PTABLES
5568 return ptable;
5569 #else
5570 return NULL;
5571 #endif
5572 }
5573 /* end of file */