[[project @ 2001-06-04 22:06:13 by ghouston]
ghouston**20010604220613
 Ignore-this: 301d1a3903434d98afdd32796106318b
 	* rw.scm (generic-write-string/partial, write-string/partial):
 	removed.  write-string/partial is now in (ice-9 rw).
] hunk ./ChangeLog 1
+2001-06-04  Gary Houston  <ghouston@arglist.com>
+
+	* rw.scm (generic-write-string/partial, write-string/partial):
+	removed.  write-string/partial is now in (ice-9 rw).
+
hunk ./INCOMPAT 4
-write-string/partial will block until all data is written.
-
hunk ./rw.scm 12
-	read-string! read-string write-string write-string/partial)
+	read-string! read-string write-string)
hunk ./rw.scm 15
-(export read-string!/partial)
+(export read-string!/partial write-string/partial)
hunk ./rw.scm 77
-(define (generic-write-string/partial s start end writer target)
-  (if (bogus-substring-spec? s start end)
-      (error "Bad substring indices" writer s start end target))
+; (define (generic-write-string/partial s start end writer target)
+;   (if (bogus-substring-spec? s start end)
+;       (error "Bad substring indices" writer s start end target))
hunk ./rw.scm 81
-  (if (= start end) 0			; Vacuous request.
-      (let loop ()
-	(catch 'system-error
-	       (lambda ()
-		 (let ((nwritten (writer s target start end start)))
-		   nwritten))
-	       (lambda args 
-		 (let ((err (car (list-ref args 4))))
-		   (cond ;; ((= err errno/intr) (loop)) ; handled by primitive.
-			((or (= err errno/wouldblock); No forward-progess here.
-			     (= err errno/again))
-			 0)
-			(else (apply scm-error args)))))))))
+;   (if (= start end) 0			; Vacuous request.
+;       (let loop ()
+; 	(catch 'system-error
+; 	       (lambda ()
+; 		 (let ((nwritten (writer s target start end start)))
+; 		   nwritten))
+; 	       (lambda args 
+; 		 (let ((err (car (list-ref args 4))))
+; 		   (cond ;; ((= err errno/intr) (loop)) ; handled by primitive.
+; 			((or (= err errno/wouldblock); No forward-progess here.
+; 			     (= err errno/again))
+; 			 0)
+; 			(else (apply scm-error args)))))))))
hunk ./rw.scm 95
-(define (write-string/partial s . args)
-  (let-optionals args ((fd/port (current-output-port))
-		       (start 0)
-		       (end (string-length s)))
-		 (generic-write-string/partial s start end
-					 uniform-array-write fd/port)))
+; (define (write-string/partial s . args)
+;   (let-optionals args ((fd/port (current-output-port))
+; 		       (start 0)
+; 		       (end (string-length s)))
+; 		 (generic-write-string/partial s start end
+; 					 uniform-array-write fd/port)))