dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Replaced a lot of calls to SCM_C[AD]R with more appropriate macros.

Browse source 
* Minor cleanups to hashtable implementation.
* Minor code beautifications.
This commit is contained in:
Dirk Herrmann 2001-03-30 15:03:23 +00:00
commit 22a52da14d
23 changed files with 218 additions and 220 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eq.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,2000,2001 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
@ -136,7 +136,7 @@ SCM_DEFINE1 (scm_equal_p, "equal?", scm_tc7_rpsubr,
return SCM_BOOL_F;
if (SCM_IMP (y))
return SCM_BOOL_F;
if (SCM_SLOPPY_CONSP (x) && SCM_SLOPPY_CONSP (y))
if (SCM_CONSP (x) && SCM_CONSP (y))
{
if (SCM_FALSEP (scm_equal_p (SCM_CAR (x), SCM_CAR (y))))
return SCM_BOOL_F;