diff options
-rw-r--r-- | chickadee/cli/play.scm | 7 |
1 files 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)) |