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'.

diff --git a/module/ice-9/channel.scm b/module/ice-9/channel.scm
index b9d4700..01bff02 100644 (file)
--- 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 b500a0c..b51c9e3 100644 (file)
--- 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 2820615..8a86b35 100644 (file)
--- 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