From 2eecec0a4b5eb2fa49f7ec187bfcde870ea85f1a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 1 Nov 2012 23:26:52 +0900
Subject: [PATCH] hard-coding scheme-report-environment version lookup to 7

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

diff --git a/eval.c b/eval.c
index 828cf8a2..58a5ee1e 100644
--- a/eval.c
+++ b/eval.c
@@ -2078,7 +2078,7 @@ sexp sexp_make_standard_env_op (sexp ctx, sexp self, sexp_sint_t n, sexp version
   sexp_gc_var1(env);
   sexp_gc_preserve1(ctx, env);
   env = sexp_make_primitive_env(ctx, version);
-  if (! sexp_exceptionp(env)) env = sexp_load_standard_env(ctx, env, version);
+  if (! sexp_exceptionp(env)) env = sexp_load_standard_env(ctx, env, SEXP_SEVEN);
   sexp_gc_release1(ctx);
   return env;
 }