From 5658035c9c7c2688ca90cd6241c1687bde8c992c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 7 Nov 2009 19:24:49 +0100
Subject: [PATCH] Fix typos leading to wrong argument counts.

* module/ice-9/channel.scm (eval): Fix number of arguments to
  `guile:eval'.

* module/oop/goops/save.scm (write-readably): Fix number of arguments to
  `write-array'.

* module/srfi/srfi-19.scm (priv:char->int): Fix number of arguments to
  `priv:time-error'.
---
 module/ice-9/channel.scm  | 4 ++--
 module/oop/goops/save.scm | 2 +-
 module/srfi/srfi-19.scm   | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/module/ice-9/channel.scm b/module/ice-9/channel.scm
index b9d470044..01bff02c5 100644
--- a/module/ice-9/channel.scm
+++ b/module/ice-9/channel.scm
@@ -1,6 +1,6 @@
 ;;; Guile object channel
 
-;; Copyright (C) 2001, 2006 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2006, 2009 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -159,7 +159,7 @@
 (define guile:eval eval)
 (define eval
   (if (= (car (procedure-property guile:eval 'arity)) 1)
-    (lambda (x e) (guile:eval x))
+    (lambda (x e) (guile:eval x e))
     guile:eval))
 
 (define object->string
diff --git a/module/oop/goops/save.scm b/module/oop/goops/save.scm
index b500a0c32..b51c9e31f 100644
--- a/module/oop/goops/save.scm
+++ b/module/oop/goops/save.scm
@@ -270,7 +270,7 @@
 	   (display "(list->uniform-array " file)
 	   (display (array-rank o) file)
 	   (display " '() " file)
-	   (write-array "(list " o file env)))))
+	   (write-array "(list " o #f file env)))))
 
 ;;;
 ;;; Pairs
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index 282061584..8a86b35fa 100644
--- a/module/srfi/srfi-19.scm
+++ b/module/srfi/srfi-19.scm
@@ -1224,7 +1224,7 @@
    ((#\7) 7)
    ((#\8) 8)
    ((#\9) 9)
-   (else (priv:time-error 'bad-date-template-string
+   (else (priv:time-error 'priv:char->int 'bad-date-template-string
                           (list "Non-integer character" ch)))))
 
 ;; read an integer upto n characters long on port; upto -> #f is any length
-- 
2.20.1