From 4588874b96b04044241c750370a40aad32d14f83 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 16 Jul 2010 00:23:33 +0900
Subject: [PATCH] checking against NULL pointer for source info in
 print-exception

---
 sexp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sexp.c b/sexp.c
index de029797..59bfdff8 100644
--- a/sexp.c
+++ b/sexp.c
@@ -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))) {
         ls = sexp_bytecode_name(
               sexp_procedure_code(sexp_exception_procedure(exn)));
-        if (sexp_symbolp(ls)) {
+        if (ls && sexp_symbolp(ls)) {
           sexp_write_string(ctx, " in ", out);
           sexp_write(ctx, ls, out);
         }