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

Docstring updated so that make-soft-port example is correct.

Browse source
This commit is contained in:
Neil Jerram 2000-08-12 22:18:04 +00:00
parent 1670bef991
commit ee826bae22
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/ChangeLog
View file

@ -1,5 +1,8 @@
2000-08-12 Neil Jerram <neil@ossau.uklinux.net> 2000-08-12 Neil Jerram <neil@ossau.uklinux.net>
* vports.c (s_scm_make_soft_port): Docstring updated so that
example is correct.
* strop.c: Docstring fixes - quotation marks and backslashes * strop.c: Docstring fixes - quotation marks and backslashes
needed quoting. needed quoting.

2
libguile/vports.c
View file

@ -175,7 +175,7 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0,
" (lambda () (char-upcase (read-char)))\n" " (lambda () (char-upcase (read-char)))\n"
" (lambda () (display \"@@\" stdout)))\n" " (lambda () (display \"@@\" stdout)))\n"
" \"rw\"))\n\n" " \"rw\"))\n\n"
"(write p p) @result{} #<input-output-soft#\space45d10#\>\n" "(write p p) @result{} #<input-output: soft 8081e20>\n"
"@end example") "@end example")
#define FUNC_NAME s_scm_make_soft_port #define FUNC_NAME s_scm_make_soft_port
{ {