mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Bug fixed.

Browse source
This commit is contained in:
Keisuke Nishida 2001-02-09 07:12:05 +00:00
parent c5408bc31f
commit 1be4270af3
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2001-02-08 Keisuke Nishida <kxn30@po.cwru.edu>
* ports.c (scm_unread_char): Take an optional argument.
2001-02-08 Marius Vollmer <marius.vollmer@uni-dortmund.de>
* modules.h (scm_selected_module, scm_current_module): Renamed

2
libguile/ports.c
View file

@ -1121,7 +1121,7 @@ SCM_DEFINE (scm_peek_char, "peek-char", 0, 1, 0,
}
#undef FUNC_NAME
SCM_DEFINE (scm_unread_char, "unread-char", 2, 0, 0,
SCM_DEFINE (scm_unread_char, "unread-char", 1, 1, 0,
(SCM cobj, SCM port),
"Place @var{char} in @var{port} so that it will be read by the\n"
"next read operation. If called multiple times, the unread characters\n"