From 8182dd600e8cd766e0ce4cecbf289d2f67528b29 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 8 Oct 2022 21:35:57 -0400 Subject: play: Slightly improve rendering of error messages. --- chickadee/cli/play.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/chickadee/cli/play.scm b/chickadee/cli/play.scm index 7c3fed1..410b823 100644 --- a/chickadee/cli/play.scm +++ b/chickadee/cli/play.scm @@ -209,9 +209,10 @@ Resume the game loop without entering a debugger." "unknown file") line column)) (_ "unknown")) - (frame-procedure-name frame) - (if (exception-with-origin? e) - (exception-origin e) + (or (frame-procedure-name frame) + "unknown") + (or (and (exception-with-origin? e) + (exception-origin e)) "unknown") (if (and (exception-with-message? e) (exception-with-irritants? e)) -- cgit v1.2.3