mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix typos leading to wrong argument counts.

Browse source 
* 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'.
This commit is contained in:
Ludovic Courtès 2009-11-07 19:24:49 +01:00
parent cdd73a8d69
commit 5658035c9c
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/srfi/srfi-19.scm
View file

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