~ 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