diff options
author | Andy Wingo <wingo@pobox.com> | 2015-01-06 11:50:16 -0500 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2015-01-23 16:16:00 +0100 |
commit | 623559f31197a512a4ae52924d31dcedf856e268 (patch) | |
tree | 02592e58c6fa5138a54c02413e7c2d6754c1bc99 /libguile/deprecated.c | |
parent | 07f62001162e090914115979f58ddb2530910343 (diff) | |
download | guile-623559f31197a512a4ae52924d31dcedf856e268.tar.gz |
Deprecate scm_no_applicable_method C export
* libguile/deprecated.c (scm_init_deprecated_goops)
(scm_no_applicable_method):
* libguile/goops.h:
* libguile/goops.c (scm_no_applicable_method)
(scm_sys_goops_early_init): Deprecate scm_no_applicable_method C
export.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 5f4b5c78b..2358b42c2 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -93,6 +93,15 @@ scm_memory_error (const char *subr) +SCM scm_no_applicable_method = SCM_BOOL_F; + +void +scm_init_deprecated_goops (void) +{ + scm_no_applicable_method = + scm_variable_ref (scm_c_lookup ("no-applicable-method")); +} + #define BUFFSIZE 32 /* big enough for most uses */ #define SPEC_OF(x) SCM_SLOT (x, scm_si_specializers) |