[Chicken-users] extras.scm: make-output-port wise or not?

[Joerg F. Wittenberger]

Hi all,

I came across the definition of make-output-port in extras.scm; there
I found:

(define make-output-port
[...]
        (##sys#setslot
         port 2
         (lambda (op port args)
           (case op
             [(#:close-output-port) (close)]
             [(#:flush-output) #f]
             [(#:write-char) (write (string args))]
             [(#:write-string) (write (string-copy args))]

Is this really wise to copy the string here?  I understand that the
'write' operation could - in theory - modify it's argument.  But I'd
argue that this should be forbidden by policy (i.e., documented as
beeing an error if it does; the result may be unspecified).  Copying
the string seems a silly prise to pay here.

             [(#:close-input-port #:char-ready? #:read-char #:peek-char)
              (unsup op) ]
             [(#:data) data]

BTW: what is this operation good for?

             [else ##sys#snafu] ) ) )
        port) ) ) )

Best regards

/Jörg

-- 
The worst of harm may often result from the best of intentions.