Handle lists in error->string in Gambit.

codecop · Feb 14, 2019 · 2ac3eb3 · 2ac3eb3
1 parent 1f2a171
commit 2ac3eb3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/assert.scm b/assert.scm
@@ -6,8 +6,10 @@
 (include "assert-r5rs.scm")
 
 (define (-error->string ex)
-    (cond ((symbol? ex)                   (symbol->string ex))
+    (cond ((null? ex)                     "")
           ((string? ex)                   ex)
+          ((symbol? ex)                   (symbol->string ex))
+          ((list? ex)                     (string-append " (" (apply string-append (map -error->string ex)) ")"))
           ;; Gambit specific code
           ((error-exception? ex)          (-error->string (error-exception-message ex)))
           ((unbound-global-exception? ex) (-error->string (unbound-global-exception-variable ex))) ; variable name