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

Catching case when bytecode source is NULL.

Browse source
This commit is contained in:
Alex Shinn 2012-07-08 12:27:07 +09:00
parent 3e79138e21
commit 87fc698e6e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
vm.c
View file

@ -29,7 +29,7 @@ static void sexp_print_stack (sexp ctx, sexp *stack, int top, int fp, sexp out)
#if SEXP_USE_FULL_SOURCE_INFO #if SEXP_USE_FULL_SOURCE_INFO
static sexp sexp_lookup_source_info (sexp src, int ip) { static sexp sexp_lookup_source_info (sexp src, int ip) {
int i; int i;
if (sexp_vectorp(src) && sexp_vector_length(src) > 0) { if (src && sexp_vectorp(src) && sexp_vector_length(src) > 0) {
for (i=1; i<sexp_vector_length(src); i++) for (i=1; i<sexp_vector_length(src); i++)
if (sexp_unbox_fixnum(sexp_car(sexp_vector_ref(src, sexp_make_fixnum(i)))) > ip) if (sexp_unbox_fixnum(sexp_car(sexp_vector_ref(src, sexp_make_fixnum(i)))) > ip)
return sexp_cdr(sexp_vector_ref(src, sexp_make_fixnum(i-1))); return sexp_cdr(sexp_vector_ref(src, sexp_make_fixnum(i-1)));