mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Use #:duplicates (last) to

Browse source 
suppress warnings about current-time and raise replacing core bindings.
This commit is contained in:
Kevin Ryde 2004-07-23 23:41:35 +00:00
parent 26a4995c58
commit cd6f7d0bd2
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test-suite/tests/srfi-19.test
View file

@ -22,6 +22,7 @@
;; separate module, or later tests will fail. ;; separate module, or later tests will fail.
(define-module (test-suite test-srfi-19) (define-module (test-suite test-srfi-19)
:duplicates (last) ;; avoid warning about srfi-19 replacing `current-time'
:use-module (test-suite lib) :use-module (test-suite lib)
:use-module (srfi srfi-19) :use-module (srfi srfi-19)
:use-module (ice-9 format)) :use-module (ice-9 format))

1
test-suite/tests/srfi-34.test
View file

@ -18,6 +18,7 @@
;;;; Boston, MA 02111-1307 USA ;;;; Boston, MA 02111-1307 USA
(define-module (test-suite test-srfi-34) (define-module (test-suite test-srfi-34)
:duplicates (last) ;; avoid warning about srfi-34 replacing `raise'
:use-module (test-suite lib) :use-module (test-suite lib)
:use-module (srfi srfi-13) :use-module (srfi srfi-13)
:use-module (srfi srfi-34)) :use-module (srfi srfi-34))