~ chicken-core (chicken-5) 45564ef033d5f3ceaf37f5b2954e2a75b7687b66


commit 45564ef033d5f3ceaf37f5b2954e2a75b7687b66
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Dec 9 09:17:30 2009 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Dec 9 09:17:30 2009 +0100

    fixed incorrect macro name in posixwin

diff --git a/posixwin.scm b/posixwin.scm
index 5c091f34..096b720f 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -2,8 +2,8 @@
 ;
 ; By Sergey Khorev
 ;
-; Copyright (c) 2000-2007, Felix L. Winkelmann
 ; Copyright (c) 2008-2009, The Chicken Team
+; Copyright (c) 2000-2007, Felix L. Winkelmann
 ; All rights reserved.
 ;
 ; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following
@@ -1728,7 +1728,7 @@ EOF
 
 (define (local-time->seconds tm)
   (check-time-vector 'local-time->seconds tm)
-  (let ((t (##core#inline_allocate ("C_mktime" 4) tm)))
+  (let ((t (##core#inline_allocate ("C_a_mktime" 4) tm)))
     (if (fp= t -1.0)
 	(##sys#error 'local-time->seconds "cannot convert time vector to seconds" tm) 
 	t)))
Trap