From b2caf66dcb56ee4bffa96b7b1464e22762e3af13 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 14 Feb 2013 22:13:30 +0900
Subject: [PATCH] Adding a type check on env-exports.

---
 eval.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/eval.c b/eval.c
index 7adfa8a5..da384da2 100644
--- a/eval.c
+++ b/eval.c
@@ -160,6 +160,7 @@ sexp sexp_env_rename (sexp ctx, sexp env, sexp key, sexp value) {
 sexp sexp_env_exports_op (sexp ctx, sexp self, sexp_sint_t n, sexp env) {
   sexp ls;
   sexp_gc_var1(res);
+  sexp_assert_type(ctx, sexp_envp, SEXP_ENV, env);
   sexp_gc_preserve1(ctx, res);
   res = SEXP_NULL;
 #if SEXP_USE_RENAME_BINDINGS