Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

wrap delete-file in protect for cygwin

Browse source 
The file may still be referenced by the parent process.
Fixes issue #302.
This commit is contained in:
Alex Shinn 2016-01-25 22:04:14 +09:00
parent 557b31e1dd
commit 3e28bdef8b
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
tests/ffi/ffi-tests.scm
View file

@ -30,11 +30,12 @@
(load lib-file) (load lib-file)
tests ... tests ...
;; on any failure leave the stub and c file for reference ;; on any failure leave the stub and c file for reference
(cond (protect (exn (else #f))
((= orig-failures (test-failure-count)) (cond
(delete-file stub-file) ((= orig-failures (test-failure-count))
(delete-file c-file))) (delete-file stub-file)
(delete-file lib-file))) (delete-file c-file)))
(delete-file lib-file))))
(else (else
(test-assert (string-append "couldn't compile " name) (test-assert (string-append "couldn't compile " name)
#f)))))))) #f))))))))