repair to truncate-file
svn: r280 original commit: ba0519874acc0911974171094daf0cb5b52e6a15
This commit is contained in:
parent
c90efdb9ef
commit
3d8fdb9e84
|
@ -105,9 +105,9 @@
|
|||
(define ftruncate
|
||||
(if (eq? 'windows (system-type))
|
||||
(delay-ffi-obj "_chsize" (force msvcrt)
|
||||
(_fun _int _long -> _int))
|
||||
(_fun _int _llong -> _int))
|
||||
(delay-ffi-obj "ftruncate" #f
|
||||
(_fun _int _long -> _int))))
|
||||
(_fun _int _llong -> _int))))
|
||||
|
||||
;; on-c-fail : int (-> X) int or X
|
||||
(define (on-c-fail val fail-k)
|
||||
|
@ -126,7 +126,6 @@
|
|||
((force open) file O_WRONLY)
|
||||
(lambda ()
|
||||
(error 'truncate-file "could not open file")))])
|
||||
#;
|
||||
(on-c-fail
|
||||
((force ftruncate) fd size)
|
||||
(lambda ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user