mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Remove uses of the non-standard `__FUNCTION__'.

Browse source 
* libguile/gc.c (scm_gc_sweep): Replace `__FUNCTION__' by `FUNC_NAME'.

* libguile/read.c (scm_read_r6rs_block_comment): Likewise.
This commit is contained in:
Ludovic Courtès 2009-12-14 15:21:54 +01:00
parent 93dbc31b9a
commit cd169c5a22
2 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/gc.c
View file

@ -826,13 +826,10 @@ scm_gc_sweep (void)
#define FUNC_NAME "scm_gc_sweep" #define FUNC_NAME "scm_gc_sweep"
{ {
/* FIXME */ /* FIXME */
fprintf (stderr, "%s: doing nothing\n", __FUNCTION__); fprintf (stderr, "%s: doing nothing\n", FUNC_NAME);
} }
#undef FUNC_NAME #undef FUNC_NAME
/* /*
Local Variables: Local Variables:
c-file-style: "gnu" c-file-style: "gnu"

2
libguile/read.c
View file

@ -1012,7 +1012,7 @@ scm_read_r6rs_block_comment (scm_t_wchar chr, SCM port)
int c = scm_getc (port); int c = scm_getc (port);
if (c == EOF) if (c == EOF)
scm_i_input_error (__FUNCTION__, port, scm_i_input_error ("scm_read_r6rs_block_comment", port,
"unterminated `#| ... |#' comment", SCM_EOL); "unterminated `#| ... |#' comment", SCM_EOL);
if (opening_seen) if (opening_seen)