summaryrefslogtreecommitdiff
path: root/libguile/read.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-12-14 15:21:54 +0100
committerLudovic Courtès <ludo@gnu.org>2009-12-15 01:01:16 +0100
commitcd169c5a2284c019b3909de67fc0e3f2b0a5dd44 (patch)
tree7d813200f37c16d8f4a1b47dc20afaa68168ddc8 /libguile/read.c
parent93dbc31b9aa9442ad49cf41677bee6e9f1d24306 (diff)
downloadguile-cd169c5a2284c019b3909de67fc0e3f2b0a5dd44.tar.gz
Remove uses of the non-standard `__FUNCTION__'.
* libguile/gc.c (scm_gc_sweep): Replace `__FUNCTION__' by `FUNC_NAME'. * libguile/read.c (scm_read_r6rs_block_comment): Likewise.
Diffstat (limited to 'libguile/read.c')
-rw-r--r--libguile/read.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c
index 5219334b4..cd9b2b521 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -1012,7 +1012,7 @@ scm_read_r6rs_block_comment (scm_t_wchar chr, SCM port)
int c = scm_getc (port);
if (c == EOF)
- scm_i_input_error (__FUNCTION__, port,
+ scm_i_input_error ("scm_read_r6rs_block_comment", port,
"unterminated `#| ... |#' comment", SCM_EOL);
if (opening_seen)