diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-11-07 19:24:49 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-11-07 19:24:49 +0100 |
commit | 5658035c9c7c2688ca90cd6241c1687bde8c992c (patch) | |
tree | dc4cb56e422d01b19bd5157bd27e8c45f614523e /module | |
parent | cdd73a8d697ee487c8b52785a9d02d3314d3fdf5 (diff) | |
download | guile-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'.
Diffstat (limited to 'module')
-rw-r--r-- | module/ice-9/channel.scm | 4 | ||||
-rw-r--r-- | module/oop/goops/save.scm | 2 | ||||
-rw-r--r-- | 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 |