From b6703b0279af7994ced4221309f36ad6c68d8207 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 17 May 1994 22:58:29 +0000 Subject: [PATCH] (Fbacktrace): Properly nest parentheses. (Fbacktrace_frame): Don't bomb on invalid frame number. --- src/eval.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/eval.c b/src/eval.c index 673e1bfda6..ddea482515 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2408,6 +2408,7 @@ Output stream used is value of `standard-output'.") if (backlist->nargs == UNEVALLED) { Fprin1 (Fcons (*backlist->function, *backlist->args), Qnil); + write_string ("\n", -1); } else { @@ -2432,8 +2433,8 @@ Output stream used is value of `standard-output'.") Fprin1 (backlist->args[i], Qnil); } } + write_string (")\n", -1); } - write_string (")\n", -1); backlist = backlist->next; } @@ -2462,7 +2463,7 @@ If N is more than the number of frames, the value is nil.") CHECK_NATNUM (nframes, 0); /* Find the frame requested. */ - for (i = 0; i < XFASTINT (nframes); i++) + for (i = 0; backlist && i < XFASTINT (nframes); i++) backlist = backlist->next; if (!backlist) -- 2.20.1