mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

* modules.c (module_variable): Fixed (and thus simplified) the

Browse source 
definition of SCM_BOUND_THING_P to reflect the fact that since
	after the 1.4 series of guile, obarrays only hold variable
	objects.
This commit is contained in:
Dirk Herrmann 2003-11-30 12:41:34 +00:00
parent 2297981dde
commit 2d0b85acf8
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/ChangeLog
View file

@ -1,3 +1,10 @@
2003-11-30 Dirk Herrmann <D.Herrmann@tu-bs.de>
* modules.c (module_variable): Fixed (and thus simplified) the
definition of SCM_BOUND_THING_P to reflect the fact that since
after the 1.4 series of guile, obarrays only hold variable
objects.
2003-11-30 Marius Vollmer <mvo@zagadka.de> 2003-11-30 Marius Vollmer <mvo@zagadka.de>
* numbers.c (scm_logand): It's "#b...", not "#\b...". * numbers.c (scm_logand): It's "#b...", not "#\b...".

3
libguile/modules.c
View file

@ -277,8 +277,7 @@ static SCM
module_variable (SCM module, SCM sym) module_variable (SCM module, SCM sym)
{ {
#define SCM_BOUND_THING_P(b) \ #define SCM_BOUND_THING_P(b) \
(!SCM_FALSEP(b) && \ (SCM_VARIABLEP (b) && !SCM_UNBNDP (SCM_VARIABLE_REF (b)))
(!SCM_VARIABLEP(b) || !SCM_UNBNDP (SCM_VARIABLE_REF (b))))
/* 1. Check module obarray */ /* 1. Check module obarray */
SCM b = scm_hashq_ref (SCM_MODULE_OBARRAY (module), sym, SCM_UNDEFINED); SCM b = scm_hashq_ref (SCM_MODULE_OBARRAY (module), sym, SCM_UNDEFINED);