diff options
Diffstat (limited to 'test-suite/tests/r6rs-files.test')
-rw-r--r-- | test-suite/tests/r6rs-files.test | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/test-suite/tests/r6rs-files.test b/test-suite/tests/r6rs-files.test index df5dd22e2..9b31a8296 100644 --- a/test-suite/tests/r6rs-files.test +++ b/test-suite/tests/r6rs-files.test @@ -24,7 +24,9 @@ (with-test-prefix "delete-file" (pass-if "delete-file deletes file" - (let ((filename (port-filename (mkstemp! "T-XXXXXX")))) + (let* ((port (mkstemp! "T-XXXXXX")) + (filename (port-filename port))) + (close-port port) (delete-file filename) (not (file-exists? filename)))) @@ -32,9 +34,9 @@ (let ((success #f)) (call/cc (lambda (continuation) - (with-exception-handler - (lambda (condition) - (set! success (i/o-filename-error? condition)) - (continuation)) - (lambda () (delete-file ""))))) + (with-exception-handler + (lambda (condition) + (set! success (i/o-filename-error? condition)) + (continuation)) + (lambda () (delete-file ""))))) success))) |