mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +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_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_index_to_name (SCM idx);
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;
}
static SCM
SCM
scm_vm_builtin_ref (unsigned idx)
{
switch (idx)