mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

scm_i_rtl_program_* -> scm_i_program_*

Browse source 
* libguile/programs.h (scm_i_make_program):
* libguile/programs.c (scm_i_program_name):
  (scm_i_program_documentation):
  (scm_i_program_properties): Remove "rtl_" infix.

* libguile/objcodes.c:
* libguile/procprop.c:
* libguile/vm.c: Adapt callers.
This commit is contained in:
Andy Wingo 2013-11-19 18:57:31 +01:00
parent e326baac0b
commit 8079714576
5 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/objcodes.c
View file

@ -92,7 +92,7 @@ pointer_to_procedure (enum bytecode_kind bytecode_kind, char *ptr)
{
case BYTECODE_KIND_GUILE_2_2:
{
return scm_i_make_rtl_program ((scm_t_uint32 *) ptr);
return scm_i_make_program ((scm_t_uint32 *) ptr);
}
case BYTECODE_KIND_NONE:
default:

6
libguile/procprop.c
View file

@ -147,7 +147,7 @@ SCM_DEFINE (scm_procedure_properties, "procedure-properties", 1, 0, 0,
return scm_cdr (user_props);
if (SCM_PROGRAM_P (proc))
ret = scm_i_rtl_program_properties (proc);
ret = scm_i_program_properties (proc);
else
ret = SCM_EOL;
@ -259,7 +259,7 @@ SCM_DEFINE (scm_procedure_name, "procedure-name", 1, 0, 0,
}
if (SCM_PROGRAM_P (proc))
return scm_i_rtl_program_name (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
@ -296,7 +296,7 @@ SCM_DEFINE (scm_procedure_documentation, "procedure-documentation", 1, 0, 0,
}
if (SCM_PROGRAM_P (proc))
return scm_i_rtl_program_documentation (proc);
return scm_i_program_documentation (proc);
else
return SCM_BOOL_F;
}

8
libguile/programs.c
View file

@ -72,7 +72,7 @@ SCM_DEFINE (scm_rtl_program_code, "rtl-program-code", 1, 0, 0,
#undef FUNC_NAME
SCM
scm_i_rtl_program_name (SCM program)
scm_i_program_name (SCM program)
{
static SCM rtl_program_name = SCM_BOOL_F;
@ -87,7 +87,7 @@ scm_i_rtl_program_name (SCM program)
}
SCM
scm_i_rtl_program_documentation (SCM program)
scm_i_program_documentation (SCM program)
{
static SCM rtl_program_documentation = SCM_BOOL_F;
@ -103,13 +103,13 @@ scm_i_rtl_program_documentation (SCM program)
}
SCM
scm_i_rtl_program_properties (SCM program)
scm_i_program_properties (SCM program)
{
static SCM rtl_program_properties = SCM_BOOL_F;
if (SCM_PRIMITIVE_P (program))
{
SCM name = scm_i_rtl_program_name (program);
SCM name = scm_i_program_name (program);
if (scm_is_false (name))
return SCM_EOL;
return scm_acons (scm_sym_name, name, SCM_EOL);

8
libguile/programs.h
View file

@ -35,7 +35,7 @@
#ifdef BUILDING_LIBGUILE
static inline SCM
scm_i_make_rtl_program (const scm_t_uint32 *code)
scm_i_make_program (const scm_t_uint32 *code)
{
return scm_cell (scm_tc7_program, (scm_t_bits)code);
}
@ -48,9 +48,9 @@ SCM_INTERNAL SCM scm_rtl_program_code (SCM program);
SCM_INTERNAL SCM scm_primitive_p (SCM obj);
SCM_INTERNAL SCM scm_primitive_call_ip (SCM prim);
SCM_INTERNAL SCM scm_i_rtl_program_name (SCM program);
SCM_INTERNAL SCM scm_i_rtl_program_documentation (SCM program);
SCM_INTERNAL SCM scm_i_rtl_program_properties (SCM program);
SCM_INTERNAL SCM scm_i_program_name (SCM program);
SCM_INTERNAL SCM scm_i_program_documentation (SCM program);
SCM_INTERNAL SCM scm_i_program_properties (SCM program);
SCM_INTERNAL SCM scm_find_source_for_addr (SCM ip);

4
libguile/vm.c
View file

@ -1214,13 +1214,13 @@ scm_bootstrap_vm (void)
sym_regular = scm_from_latin1_symbol ("regular");
sym_debug = scm_from_latin1_symbol ("debug");
rtl_boot_continuation = scm_i_make_rtl_program (rtl_boot_continuation_code);
rtl_boot_continuation = scm_i_make_program (rtl_boot_continuation_code);
SCM_SET_CELL_WORD_0 (rtl_boot_continuation,
(SCM_CELL_WORD_0 (rtl_boot_continuation)
| SCM_F_PROGRAM_IS_BOOT));
#define DEFINE_BUILTIN(builtin, BUILTIN, req, opt, rest) \
vm_builtin_##builtin = scm_i_make_rtl_program (vm_builtin_##builtin##_code);
vm_builtin_##builtin = scm_i_make_program (vm_builtin_##builtin##_code);
FOR_EACH_VM_BUILTIN (DEFINE_BUILTIN);
#undef DEFINE_BUILTIN