closcall1 Cyc_heap_alloc_port Cyc_io_get_output_bytevector Cyc_io_get_output_string Cyc_io_open_input_bytevector Cyc_io_open_input_string Cyc_io_open_output_string return_closcall1

return_closcall1 #define return_closcall1 (   td,   clo,   a1  ) Value: { \ char top; \ object buf[1]; buf[0] = a1;\ if (stack_overflow(&top, (((gc_thread_data *)data)->stack_limit))) { \ GC(td, clo, buf, 1); \ return; \ } else {\ closcall1(td, (closure) (clo), buf); \ return;\ } \ }