#include "libguile/vectors.h"
#include "libguile/weak-table.h"
#include "libguile/programs.h"
+#include "libguile/vm-builtins.h"
#include "libguile/validate.h"
#include "libguile/procprop.h"
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;
}
overrides = scm_c_make_weak_table (0, SCM_WEAK_TABLE_KIND_KEY);
arity_overrides = scm_c_make_weak_table (0, SCM_WEAK_TABLE_KIND_KEY);
#include "libguile/procprop.x"
+ scm_init_vm_builtin_properties ();
}