mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 03:00:19 +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

4
module/ice-9/channel.scm
View file

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