~ chicken-core (chicken-5) 55f3b29b5706444d1c8d4a68d29356641d2ecdab

commit 55f3b29b5706444d1c8d4a68d29356641d2ecdab
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jan 21 14:26:36 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Jan 21 14:26:36 2010 +0100

    check filename arg in file-modification-time setter

diff --git a/posixwin.scm b/posixwin.scm
index d61950f9..a83395b1 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1108,9 +1108,11 @@ EOF
    (lambda (f)
      (##sys#stat f) _stat_st_mtime)
    (lambda (f t)
+     (##sys#check-string f 'set-file-modification-time)
      (##sys#check-number t 'set-file-modification-time)
      (let ((r ((foreign-lambda int "set_file_mtime" c-string scheme-object)
-	       (##sys#expand-home-path f) t)))
+	       (##sys#expand-home-path f) 
+	       t)))
        (when (fx< r 0)
 	 (posix-error 
 	  #:file-error 'set-file-modification-time