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.
---
 src/guile/srfi/srfi-64.upstream.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/guile/srfi/srfi-64.upstream.scm')

diff --git a/src/guile/srfi/srfi-64.upstream.scm b/src/guile/srfi/srfi-64.upstream.scm
index 4ad9ccb..15de1f1 100644
--- a/src/guile/srfi/srfi-64.upstream.scm
+++ b/src/guile/srfi/srfi-64.upstream.scm
@@ -24,9 +24,12 @@
  (chicken
   (require-extension syntax-case))
  (guile
-  (use-modules (ice-9 syncase) (srfi srfi-9)
+  (use-modules (srfi srfi-9)
 	       ;;(srfi srfi-34) (srfi srfi-35) - not in Guile 1.6.7
-	       (srfi srfi-39)))
+	       (srfi srfi-39))
+  (cond-expand ((not guile-2)
+                (ice-9 syncase))
+               (else (begin))))
  (sisc
   (require-extension (srfi 9 34 35 39)))
  (kawa
-- 
cgit v1.2.3