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

checking against NULL pointer for source info in print-exception

Browse source
This commit is contained in:
Alex Shinn 2010-07-16 00:23:33 +09:00
parent d9017cc20e
commit 4588874b96
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sexp.c
View file

@ -414,7 +414,7 @@ sexp sexp_print_exception_op (sexp ctx sexp_api_params(self, n), sexp exn, sexp
if (sexp_procedurep(sexp_exception_procedure(exn))) { if (sexp_procedurep(sexp_exception_procedure(exn))) {
ls = sexp_bytecode_name( ls = sexp_bytecode_name(
sexp_procedure_code(sexp_exception_procedure(exn))); sexp_procedure_code(sexp_exception_procedure(exn)));
if (sexp_symbolp(ls)) { if (ls && sexp_symbolp(ls)) {
sexp_write_string(ctx, " in ", out); sexp_write_string(ctx, " in ", out);
sexp_write(ctx, ls, out); sexp_write(ctx, ls, out);
} }