diff options
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index fcc4e8343..e4909dfc6 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -1,4 +1,4 @@ -/* Copyright 2003-2004,2006,2008-2018,2020 +/* Copyright 2003-2004,2006,2008-2018,2020,2021 Free Software Foundation, Inc. This file is part of Guile. @@ -31,7 +31,9 @@ #include "boolean.h" #include "bitvectors.h" #include "deprecation.h" +#include "dynl.h" #include "eval.h" +#include "foreign.h" #include "gc.h" #include "gsubr.h" #include "modules.h" @@ -601,6 +603,19 @@ scm_copy_tree (SCM obj) +SCM_DEFINE (scm_dynamic_unlink, "dynamic-unlink", 1, 0, 0, (SCM obj), "") +#define FUNC_NAME s_scm_dynamic_unlink +{ + scm_c_issue_deprecation_warning + ("scm_dynamic_unlink has no effect and is deprecated. Unloading " + "shared libraries is no longer supported."); + return SCM_UNSPECIFIED; +} +#undef FUNC_NAME + + + + void scm_i_init_deprecated () { |