return 1;
}
- while (!SCM_PROGRAM_P (proc) && !SCM_RTL_PROGRAM_P (proc))
+ while (!SCM_PROGRAM_P (proc))
{
if (SCM_STRUCTP (proc))
{
if (SCM_PROGRAM_P (proc))
ret = scm_i_program_properties (proc);
- else if (SCM_RTL_PROGRAM_P (proc))
- ret = scm_i_rtl_program_properties (proc);
else
ret = SCM_EOL;
return SCM_BOOL_F;
}
- if (SCM_RTL_PROGRAM_P (proc))
- return scm_i_rtl_program_name (proc);
- else if (SCM_PROGRAM_P (proc))
- return scm_assq_ref (scm_i_program_properties (proc), scm_sym_name);
+ if (SCM_PROGRAM_P (proc))
+ return scm_i_program_name (proc);
else if (SCM_STRUCTP (proc) && SCM_STRUCT_APPLICABLE_P (proc))
return scm_procedure_name (SCM_STRUCT_PROCEDURE (proc));
else
return SCM_BOOL_F;
}
- if (SCM_RTL_PROGRAM_P (proc))
- return scm_i_rtl_program_documentation (proc);
- else if (SCM_PROGRAM_P (proc))
- return scm_assq_ref (scm_i_program_properties (proc),
- scm_sym_documentation);
+ if (SCM_PROGRAM_P (proc))
+ return scm_i_program_documentation (proc);
else
return SCM_BOOL_F;
}