From 298a88efcaf10da812bed4d8fa7c54e27daae1eb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 23 May 2019 08:53:12 -0400
Subject: repl: Fix error message printing.

---
 starling/repl.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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))
-- 
cgit v1.2.3