diff options
| -rw-r--r-- | src/guile/skribilo/writer.scm | 10 | ||||
| -rw-r--r-- | src/guile/srfi/srfi-64.upstream.scm | 7 | ||||
| -rw-r--r-- | tests/readers/rss-2.test | 6 |
3 files changed, 15 insertions, 8 deletions
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index 1032aae..20e8687 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -1,7 +1,7 @@ ;;; writer.scm -- Markup writers. ;;; -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2005, 2006, 2008, 2009 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2006, 2008, 2009, 2012 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr> ;;; ;;; @@ -89,9 +89,11 @@ (define (%procedure-arity proc) - ;; Return the number of required arguments for PROC. This technique is - ;; known to work with Guile 1.8 and Guile 1.9.5. - (car (procedure-property proc 'arity))) + ;; Return the minimum number of required arguments for PROC. + (cond-expand (guile-2 + (car (procedure-minimum-arity proc))) + (else + (car (procedure-property proc 'arity))))) (define (make-writer-predicate markup predicate class) (let* ((t2 (if class 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 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))))) |