summaryrefslogtreecommitdiff
path: root/libguile/deprecation.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/deprecation.c')
-rw-r--r--libguile/deprecation.c67
1 files changed, 29 insertions, 38 deletions
diff --git a/libguile/deprecation.c b/libguile/deprecation.c
index 6ebe398f8..a85ed1972 100644
--- a/libguile/deprecation.c
+++ b/libguile/deprecation.c
@@ -1,21 +1,21 @@
-/* Copyright (C) 2001, 2005, 2006, 2009-2012, 2016, 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
- * as published by the Free Software Foundation; either version 3 of
- * the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful, but
- * WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
- * 02110-1301 USA
- */
+/* Copyright 2001,2005-2006,2009-2012,2016,2018-2019
+ Free Software Foundation, Inc.
+
+ This file is part of Guile.
+
+ Guile is free software: you can redistribute it and/or modify it
+ under the terms of the GNU Lesser General Public License as published
+ by the Free Software Foundation, either version 3 of the License, or
+ (at your option) any later version.
+
+ Guile is distributed in the hope that it will be useful, but WITHOUT
+ ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+ FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
+ License for more details.
+
+ You should have received a copy of the GNU Lesser General Public
+ License along with Guile. If not, see
+ <https://www.gnu.org/licenses/>. */
@@ -27,13 +27,15 @@
#include <string.h>
#include <stdarg.h>
-#include "libguile/_scm.h"
-
-#include "libguile/deprecation.h"
-#include "libguile/strings.h"
-#include "libguile/ports.h"
+#include "gsubr.h"
+#include "list.h"
+#include "pairs.h"
+#include "ports.h"
+#include "private-options.h"
+#include "strings.h"
+#include "threads.h"
-#include "libguile/private-options.h"
+#include "deprecation.h"
@@ -80,13 +82,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 ());
}
}
}
@@ -179,11 +176,5 @@ scm_init_deprecation ()
SCM_WARN_DEPRECATED = 0;
atexit (print_deprecation_summary);
}
-#include "libguile/deprecation.x"
+#include "deprecation.x"
}
-
-/*
- Local Variables:
- c-file-style: "gnu"
- End:
- */