~ 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