From e300659662035f2bfd2e08181ae536e11b33d7ee Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 14 Jul 2020 10:08:21 +0900
Subject: [PATCH] don't export sexp_primitive_opcodes (issue #669)

---
 eval.c               | 2 ++
 include/chibi/eval.h | 2 --
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/eval.c b/eval.c
index 81de408e..04b11688 100644
--- a/eval.c
+++ b/eval.c
@@ -2202,6 +2202,8 @@ sexp sexp_make_null_env_op (sexp ctx, sexp self, sexp_sint_t n, sexp version) {
   return e;
 }
 
+struct sexp_opcode_struct* sexp_primitive_opcodes;  /* from opcodes.c */
+
 sexp sexp_make_primitive_env_op (sexp ctx, sexp self, sexp_sint_t n, sexp version) {
   int i;
   sexp_gc_var4(e, op, sym, name);
diff --git a/include/chibi/eval.h b/include/chibi/eval.h
index de308ebb..ebbad05d 100644
--- a/include/chibi/eval.h
+++ b/include/chibi/eval.h
@@ -46,8 +46,6 @@ enum sexp_opcode_classes {
   SEXP_OPC_NUM_OP_CLASSES
 };
 
-SEXP_API struct sexp_opcode_struct* sexp_primitive_opcodes;
-
 #if SEXP_USE_DEBUG_VM || SEXP_USE_PROFILE_VM || SEXP_USE_STATIC_LIBS
 SEXP_API const char** sexp_opcode_names;
 #endif