scheme_rtcall_siS_s(const char * who,int src_type,prim_siS_s f,Scheme_Object * g238,int g239,Scheme_Object ** g240)1  Scheme_Object* scheme_rtcall_siS_s(const char *who, int src_type, prim_siS_s f, Scheme_Object* g238, int g239, Scheme_Object** g240)
2    XFORM_SKIP_PROC
3 {
4   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
5   future_t *future;
6   double tm;
7   Scheme_Object* retval;
8 
9   future = fts->thread->current_ft;
10   future->prim_protocol = SIG_siS_s;
11   future->prim_func = f;
12   tm = get_future_timestamp();
13   future->time_of_request = tm;
14   future->source_of_request = who;
15   future->source_type = src_type;
16       future->arg_s0 = g238;
17     future->arg_i1 = g239;
18     future->arg_S2 = g240;
19 
20   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
21   fts->thread = scheme_current_thread;
22   future = fts->thread->current_ft;
23   retval = future->retval_s;
24   future->retval_s = 0;
25   receive_special_result(future, retval, 1);
26   return retval;
27 }
scheme_rtcall_iSs_s(const char * who,int src_type,prim_iSs_s f,int g241,Scheme_Object ** g242,Scheme_Object * g243)28  Scheme_Object* scheme_rtcall_iSs_s(const char *who, int src_type, prim_iSs_s f, int g241, Scheme_Object** g242, Scheme_Object* g243)
29    XFORM_SKIP_PROC
30 {
31   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
32   future_t *future;
33   double tm;
34   Scheme_Object* retval;
35 
36   future = fts->thread->current_ft;
37   future->prim_protocol = SIG_iSs_s;
38   future->prim_func = f;
39   tm = get_future_timestamp();
40   future->time_of_request = tm;
41   future->source_of_request = who;
42   future->source_type = src_type;
43       future->arg_i0 = g241;
44     future->arg_S1 = g242;
45     future->arg_s2 = g243;
46 
47   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
48   fts->thread = scheme_current_thread;
49   future = fts->thread->current_ft;
50   retval = future->retval_s;
51   future->retval_s = 0;
52   receive_special_result(future, retval, 1);
53   return retval;
54 }
scheme_rtcall_s_s(const char * who,int src_type,prim_s_s f,Scheme_Object * g244)55  Scheme_Object* scheme_rtcall_s_s(const char *who, int src_type, prim_s_s f, Scheme_Object* g244)
56    XFORM_SKIP_PROC
57 {
58   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
59   future_t *future;
60   double tm;
61   Scheme_Object* retval;
62 
63   future = fts->thread->current_ft;
64   future->prim_protocol = SIG_s_s;
65   future->prim_func = f;
66   tm = get_future_timestamp();
67   future->time_of_request = tm;
68   future->source_of_request = who;
69   future->source_type = src_type;
70       future->arg_s0 = g244;
71   send_special_result(future, g244);
72   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
73   fts->thread = scheme_current_thread;
74   future = fts->thread->current_ft;
75   retval = future->retval_s;
76   future->retval_s = 0;
77   receive_special_result(future, retval, 1);
78   return retval;
79 }
scheme_rtcall_n_s(const char * who,int src_type,prim_n_s f,Scheme_Native_Lambda * g245)80  Scheme_Object* scheme_rtcall_n_s(const char *who, int src_type, prim_n_s f, Scheme_Native_Lambda* g245)
81    XFORM_SKIP_PROC
82 {
83   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
84   future_t *future;
85   double tm;
86   Scheme_Object* retval;
87 
88   future = fts->thread->current_ft;
89   future->prim_protocol = SIG_n_s;
90   future->prim_func = f;
91   tm = get_future_timestamp();
92   future->time_of_request = tm;
93   future->source_of_request = who;
94   future->source_type = src_type;
95       future->arg_n0 = g245;
96 
97   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
98   fts->thread = scheme_current_thread;
99   future = fts->thread->current_ft;
100   retval = future->retval_s;
101   future->retval_s = 0;
102   receive_special_result(future, retval, 1);
103   return retval;
104 }
scheme_rtcall__s(const char * who,int src_type,prim__s f)105  Scheme_Object* scheme_rtcall__s(const char *who, int src_type, prim__s f )
106    XFORM_SKIP_PROC
107 {
108   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
109   future_t *future;
110   double tm;
111   Scheme_Object* retval;
112 
113   future = fts->thread->current_ft;
114   future->prim_protocol = SIG__s;
115   future->prim_func = f;
116   tm = get_future_timestamp();
117   future->time_of_request = tm;
118   future->source_of_request = who;
119   future->source_type = src_type;
120 
121 
122   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
123   fts->thread = scheme_current_thread;
124   future = fts->thread->current_ft;
125   retval = future->retval_s;
126   future->retval_s = 0;
127   receive_special_result(future, retval, 1);
128   return retval;
129 }
scheme_rtcall_ss_s(const char * who,int src_type,prim_ss_s f,Scheme_Object * g246,Scheme_Object * g247)130  Scheme_Object* scheme_rtcall_ss_s(const char *who, int src_type, prim_ss_s f, Scheme_Object* g246, Scheme_Object* g247)
131    XFORM_SKIP_PROC
132 {
133   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
134   future_t *future;
135   double tm;
136   Scheme_Object* retval;
137 
138   future = fts->thread->current_ft;
139   future->prim_protocol = SIG_ss_s;
140   future->prim_func = f;
141   tm = get_future_timestamp();
142   future->time_of_request = tm;
143   future->source_of_request = who;
144   future->source_type = src_type;
145       future->arg_s0 = g246;
146     future->arg_s1 = g247;
147 
148   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
149   fts->thread = scheme_current_thread;
150   future = fts->thread->current_ft;
151   retval = future->retval_s;
152   future->retval_s = 0;
153   receive_special_result(future, retval, 1);
154   return retval;
155 }
scheme_rtcall_ssi_s(const char * who,int src_type,prim_ssi_s f,Scheme_Object * g248,Scheme_Object * g249,int g250)156  Scheme_Object* scheme_rtcall_ssi_s(const char *who, int src_type, prim_ssi_s f, Scheme_Object* g248, Scheme_Object* g249, int g250)
157    XFORM_SKIP_PROC
158 {
159   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
160   future_t *future;
161   double tm;
162   Scheme_Object* retval;
163 
164   future = fts->thread->current_ft;
165   future->prim_protocol = SIG_ssi_s;
166   future->prim_func = f;
167   tm = get_future_timestamp();
168   future->time_of_request = tm;
169   future->source_of_request = who;
170   future->source_type = src_type;
171       future->arg_s0 = g248;
172     future->arg_s1 = g249;
173     future->arg_i2 = g250;
174 
175   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
176   fts->thread = scheme_current_thread;
177   future = fts->thread->current_ft;
178   retval = future->retval_s;
179   future->retval_s = 0;
180   receive_special_result(future, retval, 1);
181   return retval;
182 }
scheme_rtcall_tt_s(const char * who,int src_type,prim_tt_s f,const Scheme_Object * g251,const Scheme_Object * g252)183  Scheme_Object* scheme_rtcall_tt_s(const char *who, int src_type, prim_tt_s f, const Scheme_Object* g251, const Scheme_Object* g252)
184    XFORM_SKIP_PROC
185 {
186   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
187   future_t *future;
188   double tm;
189   Scheme_Object* retval;
190 
191   future = fts->thread->current_ft;
192   future->prim_protocol = SIG_tt_s;
193   future->prim_func = f;
194   tm = get_future_timestamp();
195   future->time_of_request = tm;
196   future->source_of_request = who;
197   future->source_type = src_type;
198       future->arg_t0 = g251;
199     future->arg_t1 = g252;
200 
201   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
202   fts->thread = scheme_current_thread;
203   future = fts->thread->current_ft;
204   retval = future->retval_s;
205   future->retval_s = 0;
206   receive_special_result(future, retval, 1);
207   return retval;
208 }
scheme_rtcall_ss_m(const char * who,int src_type,prim_ss_m f,Scheme_Object * g253,Scheme_Object * g254)209  MZ_MARK_STACK_TYPE scheme_rtcall_ss_m(const char *who, int src_type, prim_ss_m f, Scheme_Object* g253, Scheme_Object* g254)
210    XFORM_SKIP_PROC
211 {
212   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
213   future_t *future;
214   double tm;
215   MZ_MARK_STACK_TYPE retval;
216 
217   future = fts->thread->current_ft;
218   future->prim_protocol = SIG_ss_m;
219   future->prim_func = f;
220   tm = get_future_timestamp();
221   future->time_of_request = tm;
222   future->source_of_request = who;
223   future->source_type = src_type;
224       future->arg_s0 = g253;
225     future->arg_s1 = g254;
226 
227   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
228   fts->thread = scheme_current_thread;
229   future = fts->thread->current_ft;
230   retval = future->retval_m;
231   future->retval_m = 0;
232 
233   return retval;
234 }
scheme_rtcall_Sl_s(const char * who,int src_type,prim_Sl_s f,Scheme_Object ** g255,intptr_t g256)235  Scheme_Object* scheme_rtcall_Sl_s(const char *who, int src_type, prim_Sl_s f, Scheme_Object** g255, intptr_t g256)
236    XFORM_SKIP_PROC
237 {
238   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
239   future_t *future;
240   double tm;
241   Scheme_Object* retval;
242 
243   future = fts->thread->current_ft;
244   future->prim_protocol = SIG_Sl_s;
245   future->prim_func = f;
246   tm = get_future_timestamp();
247   future->time_of_request = tm;
248   future->source_of_request = who;
249   future->source_type = src_type;
250       future->arg_S0 = g255;
251     future->arg_l1 = g256;
252 
253   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
254   fts->thread = scheme_current_thread;
255   future = fts->thread->current_ft;
256   retval = future->retval_s;
257   future->retval_s = 0;
258   receive_special_result(future, retval, 1);
259   return retval;
260 }
scheme_rtcall_l_s(const char * who,int src_type,prim_l_s f,intptr_t g257)261  Scheme_Object* scheme_rtcall_l_s(const char *who, int src_type, prim_l_s f, intptr_t g257)
262    XFORM_SKIP_PROC
263 {
264   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
265   future_t *future;
266   double tm;
267   Scheme_Object* retval;
268 
269   future = fts->thread->current_ft;
270   future->prim_protocol = SIG_l_s;
271   future->prim_func = f;
272   tm = get_future_timestamp();
273   future->time_of_request = tm;
274   future->source_of_request = who;
275   future->source_type = src_type;
276       future->arg_l0 = g257;
277 
278   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
279   fts->thread = scheme_current_thread;
280   future = fts->thread->current_ft;
281   retval = future->retval_s;
282   future->retval_s = 0;
283   receive_special_result(future, retval, 1);
284   return retval;
285 }
scheme_rtcall_bsi_v(const char * who,int src_type,prim_bsi_v f,Scheme_Bucket * g258,Scheme_Object * g259,int g260)286  void scheme_rtcall_bsi_v(const char *who, int src_type, prim_bsi_v f, Scheme_Bucket* g258, Scheme_Object* g259, int g260)
287    XFORM_SKIP_PROC
288 {
289   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
290   future_t *future;
291   double tm;
292 
293 
294   future = fts->thread->current_ft;
295   future->prim_protocol = SIG_bsi_v;
296   future->prim_func = f;
297   tm = get_future_timestamp();
298   future->time_of_request = tm;
299   future->source_of_request = who;
300   future->source_type = src_type;
301       future->arg_b0 = g258;
302     future->arg_s1 = g259;
303     future->arg_i2 = g260;
304 
305   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
306   fts->thread = scheme_current_thread;
307 
308 
309 
310 
311 
312 }
scheme_rtcall_iiS_v(const char * who,int src_type,prim_iiS_v f,int g261,int g262,Scheme_Object ** g263)313  void scheme_rtcall_iiS_v(const char *who, int src_type, prim_iiS_v f, int g261, int g262, Scheme_Object** g263)
314    XFORM_SKIP_PROC
315 {
316   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
317   future_t *future;
318   double tm;
319 
320 
321   future = fts->thread->current_ft;
322   future->prim_protocol = SIG_iiS_v;
323   future->prim_func = f;
324   tm = get_future_timestamp();
325   future->time_of_request = tm;
326   future->source_of_request = who;
327   future->source_type = src_type;
328       future->arg_i0 = g261;
329     future->arg_i1 = g262;
330     future->arg_S2 = g263;
331 
332   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
333   fts->thread = scheme_current_thread;
334 
335 
336 
337 
338 
339 }
scheme_rtcall_ss_v(const char * who,int src_type,prim_ss_v f,Scheme_Object * g264,Scheme_Object * g265)340  void scheme_rtcall_ss_v(const char *who, int src_type, prim_ss_v f, Scheme_Object* g264, Scheme_Object* g265)
341    XFORM_SKIP_PROC
342 {
343   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
344   future_t *future;
345   double tm;
346 
347 
348   future = fts->thread->current_ft;
349   future->prim_protocol = SIG_ss_v;
350   future->prim_func = f;
351   tm = get_future_timestamp();
352   future->time_of_request = tm;
353   future->source_of_request = who;
354   future->source_type = src_type;
355       future->arg_s0 = g264;
356     future->arg_s1 = g265;
357 
358   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
359   fts->thread = scheme_current_thread;
360 
361 
362 
363 
364 
365 }
scheme_rtcall_b_v(const char * who,int src_type,prim_b_v f,Scheme_Bucket * g266)366  void scheme_rtcall_b_v(const char *who, int src_type, prim_b_v f, Scheme_Bucket* g266)
367    XFORM_SKIP_PROC
368 {
369   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
370   future_t *future;
371   double tm;
372 
373 
374   future = fts->thread->current_ft;
375   future->prim_protocol = SIG_b_v;
376   future->prim_func = f;
377   tm = get_future_timestamp();
378   future->time_of_request = tm;
379   future->source_of_request = who;
380   future->source_type = src_type;
381       future->arg_b0 = g266;
382 
383   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
384   fts->thread = scheme_current_thread;
385 
386 
387 
388 
389 
390 }
scheme_rtcall_sl_s(const char * who,int src_type,prim_sl_s f,Scheme_Object * g267,intptr_t g268)391  Scheme_Object* scheme_rtcall_sl_s(const char *who, int src_type, prim_sl_s f, Scheme_Object* g267, intptr_t g268)
392    XFORM_SKIP_PROC
393 {
394   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
395   future_t *future;
396   double tm;
397   Scheme_Object* retval;
398 
399   future = fts->thread->current_ft;
400   future->prim_protocol = SIG_sl_s;
401   future->prim_func = f;
402   tm = get_future_timestamp();
403   future->time_of_request = tm;
404   future->source_of_request = who;
405   future->source_type = src_type;
406       future->arg_s0 = g267;
407     future->arg_l1 = g268;
408 
409   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
410   fts->thread = scheme_current_thread;
411   future = fts->thread->current_ft;
412   retval = future->retval_s;
413   future->retval_s = 0;
414   receive_special_result(future, retval, 1);
415   return retval;
416 }
scheme_rtcall_iS_s(const char * who,int src_type,prim_iS_s f,int g269,Scheme_Object ** g270)417  Scheme_Object* scheme_rtcall_iS_s(const char *who, int src_type, prim_iS_s f, int g269, Scheme_Object** g270)
418    XFORM_SKIP_PROC
419 {
420   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
421   future_t *future;
422   double tm;
423   Scheme_Object* retval;
424 
425   future = fts->thread->current_ft;
426   future->prim_protocol = SIG_iS_s;
427   future->prim_func = f;
428   tm = get_future_timestamp();
429   future->time_of_request = tm;
430   future->source_of_request = who;
431   future->source_type = src_type;
432       future->arg_i0 = g269;
433     future->arg_S1 = g270;
434 
435   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
436   fts->thread = scheme_current_thread;
437   future = fts->thread->current_ft;
438   retval = future->retval_s;
439   future->retval_s = 0;
440   receive_special_result(future, retval, 1);
441   return retval;
442 }
scheme_rtcall_S_s(const char * who,int src_type,prim_S_s f,Scheme_Object ** g271)443  Scheme_Object* scheme_rtcall_S_s(const char *who, int src_type, prim_S_s f, Scheme_Object** g271)
444    XFORM_SKIP_PROC
445 {
446   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
447   future_t *future;
448   double tm;
449   Scheme_Object* retval;
450 
451   future = fts->thread->current_ft;
452   future->prim_protocol = SIG_S_s;
453   future->prim_func = f;
454   tm = get_future_timestamp();
455   future->time_of_request = tm;
456   future->source_of_request = who;
457   future->source_type = src_type;
458       future->arg_S0 = g271;
459 
460   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
461   fts->thread = scheme_current_thread;
462   future = fts->thread->current_ft;
463   retval = future->retval_s;
464   future->retval_s = 0;
465   receive_special_result(future, retval, 1);
466   return retval;
467 }
scheme_rtcall_s_v(const char * who,int src_type,prim_s_v f,Scheme_Object * g272)468  void scheme_rtcall_s_v(const char *who, int src_type, prim_s_v f, Scheme_Object* g272)
469    XFORM_SKIP_PROC
470 {
471   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
472   future_t *future;
473   double tm;
474 
475 
476   future = fts->thread->current_ft;
477   future->prim_protocol = SIG_s_v;
478   future->prim_func = f;
479   tm = get_future_timestamp();
480   future->time_of_request = tm;
481   future->source_of_request = who;
482   future->source_type = src_type;
483       future->arg_s0 = g272;
484   send_special_result(future, g272);
485   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
486   fts->thread = scheme_current_thread;
487 
488 
489 
490 
491 
492 }
scheme_rtcall_iSi_s(const char * who,int src_type,prim_iSi_s f,int g273,Scheme_Object ** g274,int g275)493  Scheme_Object* scheme_rtcall_iSi_s(const char *who, int src_type, prim_iSi_s f, int g273, Scheme_Object** g274, int g275)
494    XFORM_SKIP_PROC
495 {
496   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
497   future_t *future;
498   double tm;
499   Scheme_Object* retval;
500 
501   future = fts->thread->current_ft;
502   future->prim_protocol = SIG_iSi_s;
503   future->prim_func = f;
504   tm = get_future_timestamp();
505   future->time_of_request = tm;
506   future->source_of_request = who;
507   future->source_type = src_type;
508       future->arg_i0 = g273;
509     future->arg_S1 = g274;
510     future->arg_i2 = g275;
511 
512   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
513   fts->thread = scheme_current_thread;
514   future = fts->thread->current_ft;
515   retval = future->retval_s;
516   future->retval_s = 0;
517   receive_special_result(future, retval, 1);
518   return retval;
519 }
scheme_rtcall_siS_v(const char * who,int src_type,prim_siS_v f,Scheme_Object * g276,int g277,Scheme_Object ** g278)520  void scheme_rtcall_siS_v(const char *who, int src_type, prim_siS_v f, Scheme_Object* g276, int g277, Scheme_Object** g278)
521    XFORM_SKIP_PROC
522 {
523   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
524   future_t *future;
525   double tm;
526 
527 
528   future = fts->thread->current_ft;
529   future->prim_protocol = SIG_siS_v;
530   future->prim_func = f;
531   tm = get_future_timestamp();
532   future->time_of_request = tm;
533   future->source_of_request = who;
534   future->source_type = src_type;
535       future->arg_s0 = g276;
536     future->arg_i1 = g277;
537     future->arg_S2 = g278;
538 
539   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
540   fts->thread = scheme_current_thread;
541 
542 
543 
544 
545 
546 }
scheme_rtcall_Sii_s(const char * who,int src_type,prim_Sii_s f,Scheme_Object ** g279,int g280,int g281)547  Scheme_Object* scheme_rtcall_Sii_s(const char *who, int src_type, prim_Sii_s f, Scheme_Object** g279, int g280, int g281)
548    XFORM_SKIP_PROC
549 {
550   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
551   future_t *future;
552   double tm;
553   Scheme_Object* retval;
554 
555   future = fts->thread->current_ft;
556   future->prim_protocol = SIG_Sii_s;
557   future->prim_func = f;
558   tm = get_future_timestamp();
559   future->time_of_request = tm;
560   future->source_of_request = who;
561   future->source_type = src_type;
562       future->arg_S0 = g279;
563     future->arg_i1 = g280;
564     future->arg_i2 = g281;
565 
566   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
567   fts->thread = scheme_current_thread;
568   future = fts->thread->current_ft;
569   retval = future->retval_s;
570   future->retval_s = 0;
571   receive_special_result(future, retval, 1);
572   return retval;
573 }
scheme_rtcall_z_p(const char * who,int src_type,prim_z_p f,size_t g282)574  void* scheme_rtcall_z_p(const char *who, int src_type, prim_z_p f, size_t g282)
575    XFORM_SKIP_PROC
576 {
577   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
578   future_t *future;
579   double tm;
580   void* retval;
581 
582   future = fts->thread->current_ft;
583   future->prim_protocol = SIG_z_p;
584   future->prim_func = f;
585   tm = get_future_timestamp();
586   future->time_of_request = tm;
587   future->source_of_request = who;
588   future->source_type = src_type;
589       future->arg_z0 = g282;
590 
591   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
592   fts->thread = scheme_current_thread;
593   future = fts->thread->current_ft;
594   retval = future->retval_p;
595   future->retval_p = 0;
596 
597   return retval;
598 }
scheme_rtcall_si_s(const char * who,int src_type,prim_si_s f,Scheme_Object * g283,int g284)599  Scheme_Object* scheme_rtcall_si_s(const char *who, int src_type, prim_si_s f, Scheme_Object* g283, int g284)
600    XFORM_SKIP_PROC
601 {
602   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
603   future_t *future;
604   double tm;
605   Scheme_Object* retval;
606 
607   future = fts->thread->current_ft;
608   future->prim_protocol = SIG_si_s;
609   future->prim_func = f;
610   tm = get_future_timestamp();
611   future->time_of_request = tm;
612   future->source_of_request = who;
613   future->source_type = src_type;
614       future->arg_s0 = g283;
615     future->arg_i1 = g284;
616 
617   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
618   fts->thread = scheme_current_thread;
619   future = fts->thread->current_ft;
620   retval = future->retval_s;
621   future->retval_s = 0;
622   receive_special_result(future, retval, 1);
623   return retval;
624 }
scheme_rtcall_sis_v(const char * who,int src_type,prim_sis_v f,Scheme_Object * g285,int g286,Scheme_Object * g287)625  void scheme_rtcall_sis_v(const char *who, int src_type, prim_sis_v f, Scheme_Object* g285, int g286, Scheme_Object* g287)
626    XFORM_SKIP_PROC
627 {
628   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
629   future_t *future;
630   double tm;
631 
632 
633   future = fts->thread->current_ft;
634   future->prim_protocol = SIG_sis_v;
635   future->prim_func = f;
636   tm = get_future_timestamp();
637   future->time_of_request = tm;
638   future->source_of_request = who;
639   future->source_type = src_type;
640       future->arg_s0 = g285;
641     future->arg_i1 = g286;
642     future->arg_s2 = g287;
643 
644   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
645   fts->thread = scheme_current_thread;
646 
647 
648 
649 
650 
651 }
scheme_rtcall_ss_i(const char * who,int src_type,prim_ss_i f,Scheme_Object * g288,Scheme_Object * g289)652  int scheme_rtcall_ss_i(const char *who, int src_type, prim_ss_i f, Scheme_Object* g288, Scheme_Object* g289)
653    XFORM_SKIP_PROC
654 {
655   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
656   future_t *future;
657   double tm;
658   int retval;
659 
660   future = fts->thread->current_ft;
661   future->prim_protocol = SIG_ss_i;
662   future->prim_func = f;
663   tm = get_future_timestamp();
664   future->time_of_request = tm;
665   future->source_of_request = who;
666   future->source_type = src_type;
667       future->arg_s0 = g288;
668     future->arg_s1 = g289;
669 
670   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
671   fts->thread = scheme_current_thread;
672   future = fts->thread->current_ft;
673   retval = future->retval_i;
674   future->retval_i = 0;
675 
676   return retval;
677 }
scheme_rtcall_iSp_v(const char * who,int src_type,prim_iSp_v f,int g290,Scheme_Object ** g291,void * g292)678  void scheme_rtcall_iSp_v(const char *who, int src_type, prim_iSp_v f, int g290, Scheme_Object** g291, void* g292)
679    XFORM_SKIP_PROC
680 {
681   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
682   future_t *future;
683   double tm;
684 
685 
686   future = fts->thread->current_ft;
687   future->prim_protocol = SIG_iSp_v;
688   future->prim_func = f;
689   tm = get_future_timestamp();
690   future->time_of_request = tm;
691   future->source_of_request = who;
692   future->source_type = src_type;
693       future->arg_i0 = g290;
694     future->arg_S1 = g291;
695     future->arg_p2 = g292;
696 
697   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
698   fts->thread = scheme_current_thread;
699 
700 
701 
702 
703 
704 }
scheme_rtcall_sss_s(const char * who,int src_type,prim_sss_s f,Scheme_Object * g293,Scheme_Object * g294,Scheme_Object * g295)705  Scheme_Object* scheme_rtcall_sss_s(const char *who, int src_type, prim_sss_s f, Scheme_Object* g293, Scheme_Object* g294, Scheme_Object* g295)
706    XFORM_SKIP_PROC
707 {
708   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
709   future_t *future;
710   double tm;
711   Scheme_Object* retval;
712 
713   future = fts->thread->current_ft;
714   future->prim_protocol = SIG_sss_s;
715   future->prim_func = f;
716   tm = get_future_timestamp();
717   future->time_of_request = tm;
718   future->source_of_request = who;
719   future->source_type = src_type;
720       future->arg_s0 = g293;
721     future->arg_s1 = g294;
722     future->arg_s2 = g295;
723 
724   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
725   fts->thread = scheme_current_thread;
726   future = fts->thread->current_ft;
727   retval = future->retval_s;
728   future->retval_s = 0;
729   receive_special_result(future, retval, 1);
730   return retval;
731 }
scheme_rtcall__v(const char * who,int src_type,prim__v f)732  void scheme_rtcall__v(const char *who, int src_type, prim__v f )
733    XFORM_SKIP_PROC
734 {
735   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
736   future_t *future;
737   double tm;
738 
739 
740   future = fts->thread->current_ft;
741   future->prim_protocol = SIG__v;
742   future->prim_func = f;
743   tm = get_future_timestamp();
744   future->time_of_request = tm;
745   future->source_of_request = who;
746   future->source_type = src_type;
747 
748 
749   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
750   fts->thread = scheme_current_thread;
751 
752 
753 
754 
755 
756 }
scheme_rtcall_iS_v(const char * who,int src_type,prim_iS_v f,int g296,Scheme_Object ** g297)757  void scheme_rtcall_iS_v(const char *who, int src_type, prim_iS_v f, int g296, Scheme_Object** g297)
758    XFORM_SKIP_PROC
759 {
760   Scheme_Future_Thread_State *fts = scheme_future_thread_state;
761   future_t *future;
762   double tm;
763 
764 
765   future = fts->thread->current_ft;
766   future->prim_protocol = SIG_iS_v;
767   future->prim_func = f;
768   tm = get_future_timestamp();
769   future->time_of_request = tm;
770   future->source_of_request = who;
771   future->source_type = src_type;
772       future->arg_i0 = g296;
773     future->arg_S1 = g297;
774 
775   future_do_runtimecall(fts, (void*)f, 0, 1, 0);
776   fts->thread = scheme_current_thread;
777 
778 
779 
780 
781 
782 }
783