summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-12-06 21:43:12 +0100
committerLudovic Courtès <ludo@gnu.org>2011-12-06 21:43:12 +0100
commite7b2efd582a6146cd9e9c82a905b3e87bb86d046 (patch)
treeccbc92449d2b7cef6cb59345129fd15741ba8927
parentbcec8858a8968a955ac2febe36e5a4657e6054f6 (diff)
downloadguile-e7b2efd582a6146cd9e9c82a905b3e87bb86d046.tar.gz
Add an exception printer for `getaddrinfo-error'.
* module/ice-9/boot-9.scm (getaddrinfo-error-printer): New procedure. Use it as the `getaddrinfo-error' exception printer.
-rw-r--r--module/ice-9/boot-9.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 2659d6cb3..d5ba67a6d 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -732,6 +732,9 @@ If there is no handler at all, Guile prints an error and then exits."
(_ (default-printer)))
args))
+ (define (getaddrinfo-error-printer port key args default-printer)
+ (format port "In procedure getaddrinfo: ~a" (gai-strerror (car args))))
+
(set-exception-printer! 'goops-error scm-error-printer)
(set-exception-printer! 'host-not-found scm-error-printer)
(set-exception-printer! 'keyword-argument-error scm-error-printer)
@@ -751,7 +754,9 @@ If there is no handler at all, Guile prints an error and then exits."
(set-exception-printer! 'wrong-number-of-args scm-error-printer)
(set-exception-printer! 'wrong-type-arg scm-error-printer)
- (set-exception-printer! 'syntax-error syntax-error-printer))
+ (set-exception-printer! 'syntax-error syntax-error-printer)
+
+ (set-exception-printer! 'getaddrinfo-error getaddrinfo-error-printer))