summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/writer.scm10
-rw-r--r--src/guile/srfi/srfi-64.upstream.scm7
2 files changed, 11 insertions, 6 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