summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-11-07 19:24:49 +0100
committerLudovic Courtès <ludo@gnu.org>2009-11-07 19:24:49 +0100
commit5658035c9c7c2688ca90cd6241c1687bde8c992c (patch)
treedc4cb56e422d01b19bd5157bd27e8c45f614523e
parentcdd73a8d697ee487c8b52785a9d02d3314d3fdf5 (diff)
downloadguile-5658035c9c7c2688ca90cd6241c1687bde8c992c.tar.gz
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'.
-rw-r--r--module/ice-9/channel.scm4
-rw-r--r--module/oop/goops/save.scm2
-rw-r--r--module/srfi/srfi-19.scm2
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