summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès2012-04-25 16:03:11 +0200
committerLudovic Courtès2012-04-25 16:03:11 +0200
commit14909ebe049bcffa22ff45c6216e465d90e7e8a9 (patch)
treed991e921bd6d37a8579475f43dd650e11d7f6600 /tests
parent75e8fc92c066e0651278527802ecdc9ef979f319 (diff)
downloadskribilo-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.test6
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)))))