From beeba75c5c05b41116c179efaa7d69e5d5481ec4 Mon Sep 17 00:00:00 2001 From: Jim Ursetto Date: Mon, 18 Mar 2013 19:55:45 -0500 Subject: [PATCH] Fix mishandling of network-error arguments in 79cf5e9a0ac7 --- tcp.scm | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/tcp.scm b/tcp.scm index 44f52fc..16071e2 100644 --- a/tcp.scm +++ b/tcp.scm @@ -222,14 +222,15 @@ EOF (define-syntax network-error (syntax-rules () ((_ loc msg . args) - (network-error/errno loc (##sys#update-errno) msg args)))) + (network-error/errno loc (##sys#update-errno) msg . args)))) (define-syntax network-error/errno (syntax-rules () ((_ loc errno msg . args) (##sys#signal-hook #:network-error loc - (string-append (string-append msg " - ") - (general-strerror errno)))))) + (string-append (string-append msg " - ") + (general-strerror errno)) + . args)))) (define ##net#parse-host (let ((substring substring)) -- 1.7.6.1