mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-10 11:20:28 +02:00
Code Activity

* tags.h, eval.c (iqq): Fixes to comments about SCM_ECONSP.

Browse source
This commit is contained in:
Mikael Djurfeldt 1997-03-06 00:57:11 +00:00
parent b2530d665a
commit ee4274a654
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
Thu Mar 6 00:53:02 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* tags.h, eval.c (iqq): Fixes to comments about SCM_ECONSP.
Wed Mar 5 23:31:21 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se> Wed Mar 5 23:31:21 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* tags.h (SCM_ECONSP, SCM_NECONSP): Bugfix: Discriminate structs * tags.h (SCM_ECONSP, SCM_NECONSP): Bugfix: Discriminate structs

1
libguile/eval.c
View file

@ -674,7 +674,6 @@ iqq (form, env, depth)
--depth; --depth;
label: label:
form = SCM_CDR (form); form = SCM_CDR (form);
/* !!! might need a check here to be sure that form isn't a struct. */
SCM_ASSERT (SCM_NIMP (form) && SCM_ECONSP (form) && SCM_NULLP (SCM_CDR (form)), SCM_ASSERT (SCM_NIMP (form) && SCM_ECONSP (form) && SCM_NULLP (SCM_CDR (form)),
form, SCM_ARG1, s_quasiquote); form, SCM_ARG1, s_quasiquote);
if (0 == depth) if (0 == depth)

5
libguile/tags.h
View file

@ -275,9 +275,8 @@ typedef long SCM;
#define SCM_CONSP(x) (!SCM_NCONSP(x)) #define SCM_CONSP(x) (!SCM_NCONSP(x))
/* ECONSP is historical and, in fact, slightly buggy. /* SCM_ECONSP should be used instead of SCM_CONSP at places where GLOCS
* There are two places to fix where structures and glocs can be confused. * can be expected to occur.
* !!!
*/ */
#define SCM_ECONSP(x) (SCM_CONSP (x) \ #define SCM_ECONSP(x) (SCM_CONSP (x) \
|| (SCM_TYP3(x) == 1 \ || (SCM_TYP3(x) == 1 \