mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* sort.c, pairs.h: Removed unnecessary includes.

Browse source
This commit is contained in:
Dirk Herrmann 2003-04-23 16:49:30 +00:00
parent d339981a5a
commit c178c3a68b
3 changed files with 4 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 @@
2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de>
* sort.c, pairs.h: Removed unnecessary includes.
2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de> 2003-04-23 Dirk Herrmann <D.Herrmann@tu-bs.de>
* sort.c: Replaced hand-made trampline code by the new official * sort.c: Replaced hand-made trampline code by the new official

1
libguile/pairs.h
View file

@ -27,7 +27,6 @@
#if (SCM_DEBUG_PAIR_ACCESSES == 1) #if (SCM_DEBUG_PAIR_ACCESSES == 1)
# include "libguile/struct.h"
# define SCM_VALIDATE_PAIR(cell, expr) \ # define SCM_VALIDATE_PAIR(cell, expr) \
((!SCM_CONSP (cell) ? scm_error_pair_access (cell), 0 : 0), (expr)) ((!SCM_CONSP (cell) ? scm_error_pair_access (cell), 0 : 0), (expr))
#else #else

3
libguile/sort.c
View file

@ -32,14 +32,11 @@
* quicksort code. * quicksort code.
*/ */
#include <string.h>
#include "libguile/_scm.h" #include "libguile/_scm.h"
#include "libguile/eval.h" #include "libguile/eval.h"
#include "libguile/unif.h" #include "libguile/unif.h"
#include "libguile/ramap.h" #include "libguile/ramap.h"
#include "libguile/alist.h"
#include "libguile/feature.h" #include "libguile/feature.h"
#include "libguile/root.h"
#include "libguile/vectors.h" #include "libguile/vectors.h"
#include "libguile/lang.h" #include "libguile/lang.h"