Changeset 32601 in project


Ignore:
Timestamp:
07/16/15 20:32:32 (5 years ago)
Author:
Ivan Raikov
Message:

byte-blob: using open-output-file instead of open-output-file* in tests

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/byte-blob/trunk/tests/run.scm

    r32600 r32601  
    181181            (let* ((out-port+path
    182182                    (let-values (((fd temp-path) (file-mkstemp "/tmp/byte-blob-test.XXXXXX")))
    183                                 (let ((temp-port (open-output-file* fd)))
     183                                (let ((temp-port (open-output-file temp-path #:binary)))
    184184                                  (cons temp-port temp-path))))
    185185                   (out-port (car out-port+path))
Note: See TracChangeset for help on using the changeset viewer.