From 3d8fdb9e84d93ce43effe0e2425617fbc961effd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 30 Jun 2005 18:56:23 +0000
Subject: [PATCH] repair to truncate-file

svn: r280

original commit: ba0519874acc0911974171094daf0cb5b52e6a15
---
 collects/mzlib/os.ss | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.ss
index 4f7e7e3..960aff2 100644
--- a/collects/mzlib/os.ss
+++ b/collects/mzlib/os.ss
@@ -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 ()