diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2009-08-28 01:16:49 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2009-08-28 01:16:49 +0200 |
| commit | 1505848425bf149f864ea106bce71447f739012d (patch) | |
| tree | 8ee2badae596db47034dd7fe6697d0b08238a617 | |
| parent | 639bf3e507959ca53fef713306eb33f1074f1588 (diff) | |
| download | guile-1505848425bf149f864ea106bce71447f739012d.tar.gz | |
Add missing `FUNC_NAME' definition.
* libguile/load.c (scm_sys_warn_autocompilation_enabled): Define
`FUNC_NAME'.
| -rw-r--r-- | libguile/load.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/libguile/load.c b/libguile/load.c index e2c0dbf99..29ef74a6c 100644 --- a/libguile/load.c +++ b/libguile/load.c @@ -650,9 +650,10 @@ autocompile_catch_handler (void *data, SCM tag, SCM throw_args) SCM_DEFINE (scm_sys_warn_autocompilation_enabled, "%warn-autocompilation-enabled", 0, 0, 0, (void), "") +#define FUNC_NAME s_scm_sys_warn_autocompilation_enabled { static int message_shown = 0; - + if (!message_shown) { scm_puts (";;; note: autocompilation is enabled, set GUILE_AUTO_COMPILE=0\n" @@ -663,8 +664,8 @@ SCM_DEFINE (scm_sys_warn_autocompilation_enabled, "%warn-autocompilation-enabled return SCM_UNSPECIFIED; } +#undef FUNC_NAME - static SCM scm_try_autocompile (SCM source) { |