mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-10 11:20:28 +02:00
* tags.h, eval.c (iqq): Fixes to comments about SCM_ECONSP.
This commit is contained in:
parent
b2530d665a
commit
ee4274a654
3 changed files with 6 additions and 4 deletions
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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 \
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue