From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 23 Jul 2004 23:41:35 +0000 (+0000)
Subject: Use #:duplicates (last) to
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/cd6f7d0bd22c0d511251d5eb019dde2c48a1b477?hp=26a4995c587e57fdd657d2adbe0e4b4db4565e50

Use #:duplicates (last) to
suppress warnings about current-time and raise replacing core bindings.
---

diff --git a/test-suite/tests/srfi-19.test b/test-suite/tests/srfi-19.test
index 84364e24c..4300bf0f5 100644
--- a/test-suite/tests/srfi-19.test
+++ b/test-suite/tests/srfi-19.test
@@ -22,6 +22,7 @@
 ;; separate module, or later tests will fail.
 
 (define-module (test-suite test-srfi-19)
+  :duplicates (last)  ;; avoid warning about srfi-19 replacing `current-time'
   :use-module (test-suite lib)
   :use-module (srfi srfi-19)
   :use-module (ice-9 format))
diff --git a/test-suite/tests/srfi-34.test b/test-suite/tests/srfi-34.test
index d8f1521c2..066930b69 100644
--- a/test-suite/tests/srfi-34.test
+++ b/test-suite/tests/srfi-34.test
@@ -18,6 +18,7 @@
 ;;;; Boston, MA 02111-1307 USA
 
 (define-module (test-suite test-srfi-34)
+  :duplicates (last)  ;; avoid warning about srfi-34 replacing `raise'
   :use-module (test-suite lib)
   :use-module (srfi srfi-13)
   :use-module (srfi srfi-34))