Function scm_program_source

pub unsafe extern "C" fn scm_program_source(
    program: SCM,
    ip: SCM,
    sources: SCM,
) -> SCM