From 14909ebe049bcffa22ff45c6216e465d90e7e8a9 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Wed, 25 Apr 2012 16:03:11 +0200
Subject: 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.
---
 tests/readers/rss-2.test | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'tests/readers')

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)))))
-- 
cgit v1.2.3