foreign-lambda* vs foreign-primitive added by Kooda on Fri Nov 27 20:44:44 2015

#define return(x) C_cblock C_r = (C_int_to_num(&C_a,(x))); goto C_ret; C_cblockend
C_regparm static C_word C_fcall stub70(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
unsigned char * blob=(unsigned char * )C_c_bytevector_or_null(C_a0);
SDL_Point* pt = (SDL_Point*) blob;C_return(pt->x);
C_ret:
#undef return

return C_r;}


#define return(x) C_cblock C_r = (((C_word)(x))); goto C_ret; C_cblockend
C_noret_decl(stub55)
static void C_ccall stub55(C_word C_c,C_word *C_av){
C_word C_k=C_av[1],C_buf=C_av[2];
C_word C_a0=C_av[3];
C_word C_a1=C_av[4];
C_word C_a2=C_av[5];
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
unsigned char * blob=(unsigned char * )C_c_bytevector_or_null(C_a0);
int x=(int )C_num_to_int(C_a1);
int y=(int )C_num_to_int(C_a2);
SDL_Point* pt = (SDL_Point*) blob;pt->x = x; pt->y = y;
C_ret:
#undef return

C_kontinue(C_k,C_r);}