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

additional checks for NULL source info

Browse source
This commit is contained in:
Alex Shinn 2012-07-09 20:05:53 +09:00
parent 87fc698e6e
commit e54f400c57
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
vm.c
View file

@ -55,10 +55,10 @@ void sexp_stack_trace (sexp ctx, sexp out) {
sexp_write_string(ctx, "<anonymous>", out); sexp_write_string(ctx, "<anonymous>", out);
src = sexp_bytecode_source(bc); src = sexp_bytecode_source(bc);
#if SEXP_USE_FULL_SOURCE_INFO #if SEXP_USE_FULL_SOURCE_INFO
if (sexp_vectorp(src)) if (src && sexp_vectorp(src))
src = sexp_lookup_source_info(src, sexp_unbox_fixnum(stack[i+3])); src = sexp_lookup_source_info(src, sexp_unbox_fixnum(stack[i+3]));
#endif #endif
if (sexp_pairp(src)) { if (src && sexp_pairp(src)) {
if (sexp_fixnump(sexp_cdr(src)) && (sexp_cdr(src) >= SEXP_ZERO)) { if (sexp_fixnump(sexp_cdr(src)) && (sexp_cdr(src) >= SEXP_ZERO)) {
sexp_write_string(ctx, " on line ", out); sexp_write_string(ctx, " on line ", out);
sexp_write(ctx, sexp_cdr(src), out); sexp_write(ctx, sexp_cdr(src), out);