diff options
Diffstat (limited to 'src/guile/skribilo/writer.scm')
-rw-r--r-- | src/guile/skribilo/writer.scm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/guile/skribilo/writer.scm b/src/guile/skribilo/writer.scm index 77d85f0..75ae81b 100644 --- a/src/guile/skribilo/writer.scm +++ b/src/guile/skribilo/writer.scm @@ -90,10 +90,7 @@ (define (%procedure-arity proc) ;; Return the minimum number of required arguments for PROC. - (cond-expand (guile-2 - (car (procedure-minimum-arity proc))) - (else - (car (procedure-property proc 'arity))))) + (car (procedure-minimum-arity proc))) (define (make-writer-predicate markup predicate class) (let* ((t2 (if class |