From a05217d045ae25091f0d3cfee920630d79c24e2f Mon Sep 17 00:00:00 2001 From: mainzelm Date: Mon, 17 Sep 2001 19:17:48 +0000 Subject: [PATCH] Fixed number of return values in generic-receive-message! --- scsh/network.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/scsh/network.scm b/scsh/network.scm index 8f94d0a..c69d77d 100644 --- a/scsh/network.scm +++ b/scsh/network.scm @@ -421,8 +421,9 @@ reader sockfd flags s start end from)) (let ((addr (make-addr from))) - (let loop ((i start)) - (if (>= i end) (- i start) + (let loop ((i start) (remote #f)) + (if (>= i end) + (values (- i start) remote) (receive (err nread) (reader sockfd flags s i end addr) (cond (err (if (= err errno/intr) (loop i) @@ -435,7 +436,7 @@ (let ((result (- i start))) (and (not (zero? result)) result)) from)) - (else (loop (+ i nread))))))))) + (else (loop (+ i nread) from)))))))) (define (receive-message/partial socket len . maybe-flags) (let ((flags (:optional maybe-flags 0)))