diff options
Diffstat (limited to 'test-suite/tests/r6rs-files.test')
| -rw-r--r-- | test-suite/tests/r6rs-files.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/test-suite/tests/r6rs-files.test b/test-suite/tests/r6rs-files.test index b1b93d140..9b31a8296 100644 --- a/test-suite/tests/r6rs-files.test +++ b/test-suite/tests/r6rs-files.test @@ -25,7 +25,7 @@ (with-test-prefix "delete-file" (pass-if "delete-file deletes file" (let* ((port (mkstemp! "T-XXXXXX")) - (filename (port-filename port))) + (filename (port-filename port))) (close-port port) (delete-file filename) (not (file-exists? filename)))) @@ -34,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))) |