From febb7b777096ff9ea7106e1802ffabdd9449b727 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 7 Sep 2015 14:39:45 -0700 Subject: Remove stray debug print (TXR 113). * lib.c (callerror): Remove accidentally committed debug print, present from the time the function was introduced. --- lib.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib.c b/lib.c index e855cb82..d96ab8b2 100644 --- a/lib.c +++ b/lib.c @@ -4330,7 +4330,7 @@ val interp_fun_p(val obj) static noreturn void callerror(val fun, val msg) { uses_or2; - prinl(last_form_evaled, nil); + if (functionp(fun)) fun = format(nil, lit("~s"), or2(func_get_name(fun, nil), fun), nao); else -- cgit v1.2.3