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

Expose scm_vm_builtin_ref internally

Browse source 
* libguile/vm-builtins.h:
* libguile/vm.c (scm_vm_builtin_ref): Expose internally.
This commit is contained in:
Andy Wingo 2018-08-19 17:38:59 +02:00
parent cf0270cb4c
commit 110310b3e7
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/vm-builtins.h
View file

@ -39,6 +39,7 @@ enum scm_vm_builtins
SCM_VM_BUILTIN_COUNT SCM_VM_BUILTIN_COUNT
}; };
SCM_INTERNAL SCM scm_vm_builtin_ref (unsigned idx);
SCM_INTERNAL SCM scm_vm_builtin_name_to_index (SCM name); SCM_INTERNAL SCM scm_vm_builtin_name_to_index (SCM name);
SCM_INTERNAL SCM scm_vm_builtin_index_to_name (SCM idx); SCM_INTERNAL SCM scm_vm_builtin_index_to_name (SCM idx);
SCM_INTERNAL void scm_init_vm_builtin_properties (void); SCM_INTERNAL void scm_init_vm_builtin_properties (void);

2
libguile/vm.c
View file

@ -317,7 +317,7 @@ scm_i_vm_is_boot_continuation_code (uint32_t *ip)
return ip == vm_boot_continuation_code; return ip == vm_boot_continuation_code;
} }
static SCM SCM
scm_vm_builtin_ref (unsigned idx) scm_vm_builtin_ref (unsigned idx)
{ {
switch (idx) switch (idx)