summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/gc.c5
-rw-r--r--libguile/read.c2
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)