Nested call-with-xxxput-file

[Rolf-Thomas Happe <rthappe@balrog.mathematik.uni-freiburg.de>]

I would think that the two pieces of code below are (roughly)
equivalent.  However, scsh (0.5.2 / IRIX 6.5) executes the second
but fails on the first.

    (call-with-input-file "walt.foo"
      (call-with-output-file "walt.bar"
        (lambda (op)
          (lambda (ip)
            (display (read ip) op)))))

    (call-with-input-file "walt.foo"
      (lambda (ip)
        (call-with-output-file "walt.bar"
          (lambda (op)
            (display (read ip) op)))))

Its complaint:
    Error: Bad argument
           #{fdport-data}
           #{Procedure 10293 open-fdport-data?}
           #{Procedure 10250 fdport*-write-string}

rthappe