[Scsh-checkins] CVS: scsh/scsh network.scm,1.18,1.19

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv21158

Modified Files:
        network.scm 
Log Message:
Fixed number of return values in generic-receive-message!


Index: network.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/network.scm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** network.scm 2001/07/10 11:49:06     1.18
--- network.scm 2001/09/17 19:17:48     1.19
***************
*** 422,427 ****
             s start end from))
    (let ((addr (make-addr from)))
!     (let loop ((i start))
!       (if (>= i end) (- i start)
          (receive (err nread) 
                   (reader sockfd flags s i end addr)
--- 422,428 ----
             s start end from))
    (let ((addr (make-addr from)))
!     (let loop ((i start) (remote #f))
!       (if (>= i end)
!         (values (- i start) remote)
          (receive (err nread) 
                   (reader sockfd flags s i end addr)
***************
*** 436,440 ****
                       (and (not (zero? result)) result))
                     from))
!                  (else (loop (+ i nread)))))))))
  
  (define (receive-message/partial socket len . maybe-flags)
--- 437,441 ----
                       (and (not (zero? result)) result))
                     from))
!                  (else (loop (+ i nread) from))))))))
  
  (define (receive-message/partial socket len . maybe-flags)