Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removing unused variable.

Browse source
This commit is contained in:
Alex Shinn 2014-01-30 22:57:21 +09:00
parent da41aac56c
commit 408e87375f
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
eval.c
View file

@ -476,9 +476,7 @@ static void sexp_init_eval_context_bytecodes (sexp ctx) {
void sexp_init_eval_context_globals (sexp ctx) { void sexp_init_eval_context_globals (sexp ctx) {
const char* user_path; const char* user_path;
sexp_gc_var1(tmp);
ctx = sexp_make_child_context(ctx, NULL); ctx = sexp_make_child_context(ctx, NULL);
sexp_gc_preserve1(ctx, tmp);
#if ! SEXP_USE_NATIVE_X86 #if ! SEXP_USE_NATIVE_X86
sexp_init_eval_context_bytecodes(ctx); sexp_init_eval_context_bytecodes(ctx);
#endif #endif
@ -496,7 +494,6 @@ void sexp_init_eval_context_globals (sexp ctx) {
sexp_global(ctx, SEXP_G_THREADS_SIGNAL_RUNNER) = SEXP_FALSE; sexp_global(ctx, SEXP_G_THREADS_SIGNAL_RUNNER) = SEXP_FALSE;
sexp_global(ctx, SEXP_G_ATOMIC_P) = SEXP_FALSE; sexp_global(ctx, SEXP_G_ATOMIC_P) = SEXP_FALSE;
#endif #endif
sexp_gc_release1(ctx);
} }
sexp sexp_make_eval_context (sexp ctx, sexp stack, sexp env, sexp_uint_t size, sexp_uint_t max_size) { sexp sexp_make_eval_context (sexp ctx, sexp stack, sexp env, sexp_uint_t size, sexp_uint_t max_size) {