diff options
| -rw-r--r-- | starling/repl.scm | 5 |
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)) |