From 4e33a13246751034adbcc53f9e93223e19f57db2 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 27 Feb 2011 23:15:13 +0100 Subject: [PATCH] scm-error-printer resilience * module/ice-9/boot-9.scm (scm-error-printer): Allow #f for rest args, interpreting it as '(). Fixes regexp throws, which are of the form: (regular-expression-syntax "make-regexp" "Invalid preceding regular expression" #f ("?.*")) --- module/ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 0f89dcece..9f621d9df 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -538,7 +538,7 @@ If there is no handler at all, Guile prints an error and then exits." ((subr msg args . rest) (if subr (format port "In procedure ~a: " subr)) - (apply format port msg args)) + (apply format port msg (or args '()))) (_ (default-printer))) args))