From 1d1d1cb64d0df4d69a4ec00e567508656fbc6389 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Thu, 2 Feb 2012 23:48:34 +0900
Subject: [PATCH] (scheme-report-environment n) throws an error for unknown n

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

diff --git a/eval.c b/eval.c
index a5ab8186..c7571f8e 100644
--- a/eval.c
+++ b/eval.c
@@ -2051,7 +2051,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)) sexp_load_standard_env(ctx, env, version);
+  if (! sexp_exceptionp(env)) env = sexp_load_standard_env(ctx, env, version);
   sexp_gc_release1(ctx);
   return env;
 }