mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 20:30:28 +02:00
Code Activity

Remove deprecation warnings from the build

Browse source 
* module/srfi/srfi-35.scm: Remove explicit use of (ice-9 syncase).

* test-suite/tests/r5rs_pitfall.test: Same again.

* test-suite/tests/syncase.test: Remove "(ice-9 syncase) loads" test;
  syncase is always loaded now.
This commit is contained in:
Neil Jerram 2009-09-17 01:18:14 +01:00
parent 93683f9bb1
commit f564f4784f
3 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/srfi/srfi-35.scm
View file

@ -28,7 +28,6 @@
(define-module (srfi srfi-35) (define-module (srfi srfi-35)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (ice-9 syncase)
#:export (make-condition-type condition-type? #:export (make-condition-type condition-type?
make-condition condition? condition-has-type? condition-ref make-condition condition? condition-has-type? condition-ref
make-compound-condition extract-condition make-compound-condition extract-condition

1
test-suite/tests/r5rs_pitfall.test
View file

@ -20,7 +20,6 @@
;; macro has been modified to fit into our test suite machinery. ;; macro has been modified to fit into our test suite machinery.
(define-module (test-suite test-r5rs-pitfall) (define-module (test-suite test-r5rs-pitfall)
:use-syntax (ice-9 syncase)
:use-module (test-suite lib)) :use-module (test-suite lib))
(define-syntax should-be (define-syntax should-be

5
test-suite/tests/syncase.test
View file

@ -22,11 +22,6 @@
(define-module (test-suite test-syncase) (define-module (test-suite test-syncase)
:use-module (test-suite lib)) :use-module (test-suite lib))
(pass-if "(ice-9 syncase) loads"
(false-if-exception
(begin (eval '(use-syntax (ice-9 syncase)) (current-module))
#t)))
(define-syntax plus (define-syntax plus
(syntax-rules () (syntax-rules ()
((plus x ...) (+ x ...)))) ((plus x ...) (+ x ...))))