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 /src/guile/srfi | |
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 'src/guile/srfi')
-rw-r--r-- | src/guile/srfi/srfi-64.upstream.scm | 7 |
1 files changed, 5 insertions, 2 deletions
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 |