[Guile-commits] 02/07: Expose scm_vm_builtin_ref internally

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit 110310b3e71cefd9e625ae8c775358a58f8822ac
Author: Andy Wingo <address@hidden>
Date:   Sun Aug 19 17:38:59 2018 +0200

    Expose scm_vm_builtin_ref internally
    
    * libguile/vm-builtins.h:
    * libguile/vm.c (scm_vm_builtin_ref): Expose internally.
---
 libguile/vm-builtins.h | 1 +
 libguile/vm.c          | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/libguile/vm-builtins.h b/libguile/vm-builtins.h
index 0931cdc..1f8cdf6 100644
--- a/libguile/vm-builtins.h
+++ b/libguile/vm-builtins.h
@@ -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);
diff --git a/libguile/vm.c b/libguile/vm.c
index e14e5fe..83d0edd 100644
--- a/libguile/vm.c
+++ b/libguile/vm.c
@@ -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)