From 150cfd0a8be04bcfea4ff6ae0f876fd15c5de294 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Mon, 9 Jul 2012 20:20:07 +0900
Subject: [PATCH] too dangerous to leave bytecode source uninitialized

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

diff --git a/eval.c b/eval.c
index 30d4ed95..52c7f1c8 100644
--- a/eval.c
+++ b/eval.c
@@ -451,6 +451,7 @@ sexp sexp_make_eval_context (sexp ctx, sexp stack, sexp env, sexp_uint_t size, s
     sexp_bytecode_name(sexp_context_bc(res)) = SEXP_FALSE;
     sexp_bytecode_length(sexp_context_bc(res)) = SEXP_INIT_BCODE_SIZE;
     sexp_bytecode_literals(sexp_context_bc(res)) = SEXP_NULL;
+    sexp_bytecode_source(sexp_context_bc(res)) = SEXP_NULL;
     if ((! stack) || (stack == SEXP_FALSE)) {
       stack = sexp_alloc_tagged(res, SEXP_STACK_SIZE, SEXP_STACK);
       if (sexp_exceptionp(stack)) {