guile/guile-scsh rw.scm

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <address@hidden>   01/06/04 15:07:06

Modified files:
        guile-scsh     : rw.scm 

Log message:
        

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-scsh/rw.scm.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text

Patches:
Index: guile/guile-scsh/rw.scm
diff -u guile/guile-scsh/rw.scm:1.11 guile/guile-scsh/rw.scm:1.12
--- guile/guile-scsh/rw.scm:1.11        Mon Jun  4 15:06:13 2001
+++ guile/guile-scsh/rw.scm     Mon Jun  4 15:07:06 2001
@@ -69,37 +69,6 @@
          ((= nread len) s)
          (else (substring s 0 nread)))))
 
-
-;;; Best-effort/forward-progress writing
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Non-blocking output to a buffered port is not defined.
-
-; (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))
-
-;   (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)))))))))
-
-; (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)))
-
-
 ;;; Persistent writing
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;