1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00

* Fixed two bugs with environment type predicates.

This commit is contained in:
Dirk Herrmann 2000-09-05 10:43:53 +00:00
parent 9e9e264f9a
commit 4c199a262b
3 changed files with 11 additions and 2 deletions

1
THANKS
View file

@ -8,6 +8,7 @@ The Guile maintainer committee consists of
Contributors since the last release:
Greg Harvey
Jost Boekemeier
For fixes or providing information which led to a fix:

View file

@ -1,3 +1,9 @@
2000-08-25 Dirk Herrmann <D.Herrmann@tu-bs.de>
* environments.h (SCM_IMPORT_ENVIRONMENT_P,
SCM_EXPORT_ENVIRONMENT_P): Before fetching the environment
functions, make sure that we really got an environment.
2000-09-03 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* validate.h (SCM_VALIDATE_NUMBER_DEF_COPY): New macro.

View file

@ -176,7 +176,8 @@ extern SCM scm_eval_environment_set_imported_x (SCM env, SCM imported);
extern void *scm_type_import_environment;
#define SCM_IMPORT_ENVIRONMENT_P(env) \
(SCM_ENVIRONMENT_FUNCS (env) == scm_type_import_environment)
(SCM_ENVIRONMENT_P (env) \
&& SCM_ENVIRONMENT_FUNCS (env) == scm_type_import_environment)
extern SCM scm_make_import_environment (SCM imports, SCM conflict_proc);
extern SCM scm_import_environment_p (SCM env);
@ -188,7 +189,8 @@ extern SCM scm_import_environment_set_imports_x (SCM env, SCM imports);
extern void *scm_type_export_environment;
#define SCM_EXPORT_ENVIRONMENT_P(env) \
(SCM_ENVIRONMENT_FUNCS (env) == scm_type_export_environment)
(SCM_ENVIRONMENT_P (env) \
&& SCM_ENVIRONMENT_FUNCS (env) == scm_type_export_environment)
extern SCM scm_make_export_environment (SCM private, SCM signature);
extern SCM scm_export_environment_p (SCM env);