~ chicken-core (chicken-5) 972388c5753bb24142dde67bdd4870865b01739f

commit 972388c5753bb24142dde67bdd4870865b01739f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Oct 20 04:43:32 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Oct 20 04:43:32 2010 -0400

    moved incorrectly placed foreign vars in posixunix.scm (thanks to Kon Lovett)

diff --git a/posixunix.scm b/posixunix.scm
index 53c06501..fd21fd58 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -33,6 +33,12 @@
   (not inline ##sys#interrupt-hook ##sys#user-interrupt-hook))
 
 
+;; these are not available on Windows
+
+(define-foreign-variable _stat_st_blksize unsigned-int "C_statbuf.st_blksize")
+(define-foreign-variable _stat_st_blocks unsigned-int "C_statbuf.st_blocks")
+
+
 ;;; common code
 
 (include "posix-common.scm")
@@ -472,11 +478,6 @@ static int set_file_mtime(char *filename, C_word tm)
 EOF
 ) )
 
-;; these are not available on Windows
-
-(define-foreign-variable _stat_st_blksize unsigned-int "C_statbuf.st_blksize")
-(define-foreign-variable _stat_st_blocks unsigned-int "C_statbuf.st_blocks")
-
 ;; Faster versions of common operations
 
 (define ##sys#file-nonblocking!