diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-12-14 15:21:54 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-12-15 01:01:16 +0100 |
commit | cd169c5a2284c019b3909de67fc0e3f2b0a5dd44 (patch) | |
tree | 7d813200f37c16d8f4a1b47dc20afaa68168ddc8 | |
parent | 93dbc31b9aa9442ad49cf41677bee6e9f1d24306 (diff) | |
download | guile-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.
-rw-r--r-- | libguile/gc.c | 5 | ||||
-rw-r--r-- | libguile/read.c | 2 |
2 files changed, 2 insertions, 5 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 38051e11d..ff762d6a8 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -826,13 +826,10 @@ scm_gc_sweep (void) #define FUNC_NAME "scm_gc_sweep" { /* FIXME */ - fprintf (stderr, "%s: doing nothing\n", __FUNCTION__); + fprintf (stderr, "%s: doing nothing\n", FUNC_NAME); } - #undef FUNC_NAME - - /* Local Variables: c-file-style: "gnu" 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) |