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

@@ -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

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

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