summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--chickadee/cli/play.scm7
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))