From 36043bb8da17765fd01b6d0bf6f32d36b263a860 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Wed, 24 Mar 2010 01:27:09 +0900
Subject: [PATCH] making sexp_make_procedure public
---
eval.c | 4 ++--
include/chibi/eval.h | 1 +
2 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/eval.c b/eval.c
index 9e64e1e5..3b8a0e36 100644
--- a/eval.c
+++ b/eval.c
@@ -234,8 +234,8 @@ static sexp finalize_bytecode (sexp ctx) {
return bc;
}
-static sexp sexp_make_procedure (sexp ctx, sexp flags, sexp num_args,
- sexp bc, sexp vars) {
+sexp sexp_make_procedure (sexp ctx, sexp flags, sexp num_args,
+ sexp bc, sexp vars) {
sexp proc = sexp_alloc_type(ctx, procedure, SEXP_PROCEDURE);
sexp_procedure_flags(proc) = (char) (sexp_uint_t) flags;
sexp_procedure_num_args(proc) = (unsigned short) (sexp_uint_t) num_args;
diff --git a/include/chibi/eval.h b/include/chibi/eval.h
index 8f1e11a3..ba55e691 100644
--- a/include/chibi/eval.h
+++ b/include/chibi/eval.h
@@ -152,6 +152,7 @@ SEXP_API sexp sexp_env_ref (sexp env, sexp sym, sexp dflt);
SEXP_API sexp sexp_env_global_ref (sexp env, sexp sym, sexp dflt);
SEXP_API void sexp_warn_undefs (sexp ctx, sexp from, sexp to, sexp out);
SEXP_API sexp sexp_make_opcode (sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp, sexp_proc1);
+SEXP_API sexp sexp_make_procedure (sexp ctx, sexp flags, sexp num_args, sexp bc, sexp vars);
SEXP_API sexp sexp_make_foreign (sexp ctx, const char *name, int num_args, int flags, sexp_proc1 f, sexp data);
SEXP_API sexp sexp_define_foreign_aux (sexp ctx, sexp env, const char *name, int num_args, int flags, sexp_proc1 f, sexp data);