diff --git a/lib/scheme/time.c b/lib/scheme/time.c index 73b8a0de..d2e13db5 100644 --- a/lib/scheme/time.c +++ b/lib/scheme/time.c @@ -1,12 +1,12 @@ /* time.c -- R7RS time routines */ -/* Copyright (c) 2011 Alex Shinn. All rights reserved. */ +/* Copyright (c) 2011-2012 Alex Shinn. All rights reserved. */ /* BSD-style license: http://synthcode.com/license.txt */ #include #include /* TODO: Check a leap second table file at appropriate intervals. */ -static time_t leap_seconds_since_epoch = 34; +static time_t leap_seconds_since_epoch = 24; static sexp sexp_current_second (sexp ctx, sexp self, sexp_sint_t n) { time_t res = time(NULL);