Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-06-21 13:26:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

hard-coding scheme-report-environment version lookup to 7

Browse source
This commit is contained in:
Alex Shinn 2012-11-01 23:26:52 +09:00
parent ed443d42a2
commit 2eecec0a4b
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
eval.c
View file

@ -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_var1(env);
sexp_gc_preserve1(ctx, env); sexp_gc_preserve1(ctx, env);
env = sexp_make_primitive_env(ctx, version); 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); sexp_gc_release1(ctx);
return env; return env;
} }