diff options
Diffstat (limited to 'libguile/deprecation.c')
-rw-r--r-- | libguile/deprecation.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/libguile/deprecation.c b/libguile/deprecation.c index aa50eaf8c..1ae8b6750 100644 --- a/libguile/deprecation.c +++ b/libguile/deprecation.c @@ -1,4 +1,5 @@ -/* Copyright (C) 2001, 2006, 2010, 2011 Free Software Foundation, Inc. +/* Copyright (C) 2001,2006,2010-2011,2018 + * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -79,13 +80,8 @@ scm_c_issue_deprecation_warning (const char *msg) which could recurse and deadlock. */ if (msg) { - if (scm_gc_running_p) - fprintf (stderr, "%s\n", msg); - else - { - scm_puts (msg, scm_current_warning_port ()); - scm_newline (scm_current_warning_port ()); - } + scm_puts (msg, scm_current_warning_port ()); + scm_newline (scm_current_warning_port ()); } } } |