From 110310b3e71cefd9e625ae8c775358a58f8822ac Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 19 Aug 2018 17:38:59 +0200
Subject: [PATCH] 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 0931cdced..1f8cdf6c6 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 e14e5fe4a..83d0edda0 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)