diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-10-19 09:07:23 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2002-10-19 09:07:23 +0000 |
commit | 5ec1d2c8e04ebaa909e8064a80ffc76620143bcf (patch) | |
tree | 1709227f11004e9a7e4e66026d8cb0c837a96d77 /libguile | |
parent | 100ae50db23bfcf78a0832b4b3eb857c7067f69b (diff) | |
download | guile-5ec1d2c8e04ebaa909e8064a80ffc76620143bcf.tar.gz |
* evalext.h, evalext.c (scm_definedp, scm_defined_p): Renamed
scm_definedp to scm_defined_p and deprecated scm_definedp.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/ChangeLog | 5 | ||||
-rw-r--r-- | libguile/evalext.c | 6 | ||||
-rw-r--r-- | libguile/evalext.h | 8 |
3 files changed, 15 insertions, 4 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 76823efb3..e9bb2eb37 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,5 +1,10 @@ 2002-10-19 Dirk Herrmann <D.Herrmann@tu-bs.de> + * evalext.h, evalext.c (scm_definedp, scm_defined_p): Renamed + scm_definedp to scm_defined_p and deprecated scm_definedp. + +2002-10-19 Dirk Herrmann <D.Herrmann@tu-bs.de> + * async.h, async.c (scm_system_async): Fixed deprecation to work correctly when deprecated features are excluded. diff --git a/libguile/evalext.c b/libguile/evalext.c index 16b3ed567..57b32e9e9 100644 --- a/libguile/evalext.c +++ b/libguile/evalext.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1998,1999,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1998,1999,2000,2001,2002 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -67,13 +67,13 @@ scm_m_generalized_set_x (SCM xorig, SCM env SCM_UNUSED) scm_misc_error (scm_s_set_x, scm_s_variable, SCM_EOL); } -SCM_DEFINE (scm_definedp, "defined?", 1, 1, 0, +SCM_DEFINE (scm_defined_p, "defined?", 1, 1, 0, (SCM sym, SCM env), "Return @code{#t} if @var{sym} is defined in the lexical " "environment @var{env}. When @var{env} is not specified, " "look in the top-level environment as defined by the " "current module.") -#define FUNC_NAME s_scm_definedp +#define FUNC_NAME s_scm_defined_p { SCM var; diff --git a/libguile/evalext.h b/libguile/evalext.h index 0f2a7dc65..e0db5d2bc 100644 --- a/libguile/evalext.h +++ b/libguile/evalext.h @@ -51,10 +51,16 @@ SCM_API SCM scm_m_generalized_set_x (SCM xorig, SCM env); -SCM_API SCM scm_definedp (SCM sym, SCM env); +SCM_API SCM scm_defined_p (SCM sym, SCM env); SCM_API SCM scm_m_undefine (SCM x, SCM env); SCM_API void scm_init_evalext (void); +#if (SCM_ENABLE_DEPRECATED == 1) + +#define scm_definedp scm_defined_p + +#endif + #endif /* SCM_EVALEXT_H */ /* |