diff options
Diffstat (limited to 'module/srfi')
-rw-r--r-- | module/srfi/srfi-18.scm | 3 | ||||
-rw-r--r-- | module/srfi/srfi-19.scm | 3 |
2 files changed, 1 insertions, 5 deletions
diff --git a/module/srfi/srfi-18.scm b/module/srfi/srfi-18.scm index 4a171b4fd..4921a95d7 100644 --- a/module/srfi/srfi-18.scm +++ b/module/srfi/srfi-18.scm @@ -1,6 +1,6 @@ ;;; srfi-18.scm --- Multithreading support -;; Copyright (C) 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2008, 2009, 2010 Free Software Foundation, Inc. ;; ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -105,7 +105,6 @@ (define terminated-thread-exception (list 'terminated-thread-exception)) (define uncaught-exception (list 'uncaught-exception)) -(define mutex-owners (make-weak-key-hash-table)) (define object-names (make-weak-key-hash-table)) (define object-specifics (make-weak-key-hash-table)) (define thread-start-conds (make-weak-key-hash-table)) diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm index 8a86b35fa..6148b55b2 100644 --- a/module/srfi/srfi-19.scm +++ b/module/srfi/srfi-19.scm @@ -738,9 +738,6 @@ (or (= (modulo year 400) 0) (and (= (modulo year 4) 0) (not (= (modulo year 100) 0))))) -(define (leap-year? date) - (priv:leap-year? (date-year date))) - ;; Map 1-based month number M to number of days in the year before the ;; start of month M (in a non-leap year). (define priv:month-assoc '((1 . 0) (2 . 31) (3 . 59) (4 . 90) |