diff options
| author | Ludovic Courtès | 2012-04-25 16:03:11 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-04-25 16:03:11 +0200 |
| commit | 14909ebe049bcffa22ff45c6216e465d90e7e8a9 (patch) | |
| tree | d991e921bd6d37a8579475f43dd650e11d7f6600 /tests | |
| parent | 75e8fc92c066e0651278527802ecdc9ef979f319 (diff) | |
| download | skribilo-14909ebe049bcffa22ff45c6216e465d90e7e8a9.tar.gz skribilo-14909ebe049bcffa22ff45c6216e465d90e7e8a9.tar.lz skribilo-14909ebe049bcffa22ff45c6216e465d90e7e8a9.zip | |
Avoid deprecated features on Guile 2.
* src/guile/skribilo/writer.scm (%procedure-arity): Use
`procedure-minimum-arity' on Guile 2.
* src/guile/srfi/srfi-64.upstream.scm: Use (ice-9 syncase) only when not
on Guile 2.
* tests/readers/rss-2.test (guile-2): Likewise.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/readers/rss-2.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/readers/rss-2.test b/tests/readers/rss-2.test index 64eccea..e3a3b97 100644 --- a/tests/readers/rss-2.test +++ b/tests/readers/rss-2.test @@ -20,8 +20,10 @@ (define-module (tests rss-2) :use-module (ice-9 match) :use-module (skribilo reader) - :use-module (srfi srfi-64) - :use-module (ice-9 syncase)) + :use-module (srfi srfi-64)) + +(cond-expand (guile-2 (begin)) + (else (use-modules (ice-9 syncase)))) (if (or (not (false-if-exception (resolve-interface '(sxml simple)))) (not (false-if-exception (resolve-interface '(htmlprag))))) |