diff options
| author | David Thompson <dthompson2@worcester.edu> | 2022-10-08 21:35:57 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2022-10-08 21:36:20 -0400 |
| commit | 8182dd600e8cd766e0ce4cecbf289d2f67528b29 (patch) | |
| tree | 421d9b20cd6874d9875dc208f245bc52f0a3960c | |
| parent | 823e36c7d0e49540556a1a3fcb818fb60fb41dab (diff) | |
play: Slightly improve rendering of error messages.
| -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)) |