[ sisc-Bugs-1071984 ] file input/output performance decrease in sisc 1.9.4

Bugs item #1071984, was opened at 2004-11-23 10:16
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1071984&group_id=23735

Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Nobody/Anonymous (nobody)
Summary: file input/output performance decrease in sisc 1.9.4

Initial Comment:
The is significant performance decrease with the new 
release of sisc (1.9.4) for operation involving file input 
and/or output.

The following program runs in a very reasonable time  
(under 5 seconds) with sisc 1.8.8 for a file of around 
900k. sisc 1.9.4 takes significantly longer to complete.

(define (copy-port input output n)
  (define (iter count left c)
    (if (or (eof-object? c) (= left 0))
	count
	(begin
	   (write-char c output)
	   (iter (+ count 1) (- left 1) (read-char 
input)))))
  (iter 0 n (read-char input)))

(define (test-copy-port file)
  (let* ((tmp-file (string-append file ".tmp"))
	 (output (open-output-file tmp-file))
	 (input (open-input-file file)))
    (display "copying file...")
    (copy-port input output -1)
    (display "done")(newline)
    (close-input-port input)
    (close-output-port output)))

(test-copy-port "somefile.big")

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1071984&group_id=23735


-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now. 
http://productguide.itmanagersjournal.com/