Function scm_i_program_print 

pub unsafe extern "C" fn scm_i_program_print(
    program: SCM,
    port: SCM,
    pstate: *mut scm_print_state,
)