diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2019-05-23 08:53:12 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2019-05-23 08:53:12 -0400 |
| commit | 298a88efcaf10da812bed4d8fa7c54e27daae1eb (patch) | |
| tree | 271c5dce689808ba887acf5d90cbe8781a3ba9a8 | |
| parent | c93bdb1cfb5d4776ea1ff28f94a715f26dcebccb (diff) | |
repl: Fix error message printing.
| -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)) |