summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--starling/repl.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/starling/repl.scm b/starling/repl.scm
index 994ddbc..24af6f8 100644
--- a/starling/repl.scm
+++ b/starling/repl.scm
@@ -22,6 +22,7 @@
(define-module (starling repl)
#:use-module (oop goops)
+ #:use-module (ice-9 match)
#:use-module (starling node)
#:use-module (system repl coop-server)
#:use-module (system repl debug)
@@ -48,7 +49,9 @@
(display "Backtrace:\n" port)
(display-backtrace stack port)
(newline port)
- (apply display-error (stack-ref stack 0) port args)
+ (match args
+ ((subr message . args)
+ (display-error (stack-ref stack 0) port subr message args '())))
(newline port))
;; Setup the REPL debug object.
(let* ((tag (and (pair? (fluid-ref %stacks))