diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-12-06 21:43:12 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-12-06 21:43:12 +0100 |
commit | e7b2efd582a6146cd9e9c82a905b3e87bb86d046 (patch) | |
tree | ccbc92449d2b7cef6cb59345129fd15741ba8927 | |
parent | bcec8858a8968a955ac2febe36e5a4657e6054f6 (diff) | |
download | guile-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.scm | 7 |
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)) |