diff options
Diffstat (limited to 'libguile/list.h')
-rw-r--r-- | libguile/list.h | 46 |
1 files changed, 9 insertions, 37 deletions
diff --git a/libguile/list.h b/libguile/list.h index d4f2c6efb..78af07c95 100644 --- a/libguile/list.h +++ b/libguile/list.h @@ -1,19 +1,20 @@ /* classes: h_files */ -#ifndef LISTH -#define LISTH -/* Copyright (C) 1995,1996,1997, 2000, 2001 Free Software Foundation, Inc. - * +#ifndef SCM_LIST_H +#define SCM_LIST_H + +/* Copyright (C) 1995,1996,1997,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 * the Free Software Foundation; either version 2, or (at your option) * any later version. - * + * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. - * + * * You should have received a copy of the GNU General Public License * along with this software; see the file COPYING. If not, write to * the Free Software Foundation, Inc., 59 Temple Place, Suite 330, @@ -42,6 +43,7 @@ * If you write modifications of your own for GUILE, it is your choice * whether to permit this exception to apply to your modifications. * If you do not wish that, delete this exception notice. */ + #include "libguile/__scm.h" @@ -86,37 +88,7 @@ extern SCM scm_delv1_x (SCM item, SCM lst); extern SCM scm_delete1_x (SCM item, SCM lst); extern void scm_init_list (void); - - -#if (SCM_DEBUG_DEPRECATED == 0) - -#define SCM_LIST0 SCM_EOL -#define SCM_LIST1(e0) scm_cons ((e0), SCM_EOL) -#define SCM_LIST2(e0, e1) scm_cons2 ((e0), (e1), SCM_EOL) -#define SCM_LIST3(e0, e1, e2) scm_cons ((e0), SCM_LIST2 ((e1), (e2))) -#define SCM_LIST4(e0, e1, e2, e3)\ - scm_cons2 ((e0), (e1), SCM_LIST2 ((e2), (e3))) -#define SCM_LIST5(e0, e1, e2, e3, e4)\ - scm_cons ((e0), SCM_LIST4 ((e1), (e2), (e3), (e4))) -#define SCM_LIST6(e0, e1, e2, e3, e4, e5)\ - scm_cons2 ((e0), (e1), SCM_LIST4 ((e2), (e3), (e4), (e5))) -#define SCM_LIST7(e0, e1, e2, e3, e4, e5, e6)\ - scm_cons ((e0), SCM_LIST6 ((e1), (e2), (e3), (e4), (e5), (e6))) -#define SCM_LIST8(e0, e1, e2, e3, e4, e5, e6, e7)\ - scm_cons2 ((e0), (e1), SCM_LIST6 ((e2), (e3), (e4), (e5), (e6), (e7))) -#define SCM_LIST9(e0, e1, e2, e3, e4, e5, e6, e7, e8)\ - scm_cons ((e0),\ - SCM_LIST8 ((e1), (e2), (e3), (e4), (e5), (e6), (e7), (e8))) - -#define scm_listify scm_list_n - -extern SCM scm_sloppy_memq (SCM x, SCM lst); -extern SCM scm_sloppy_memv (SCM x, SCM lst); -extern SCM scm_sloppy_member (SCM x, SCM lst); - -#endif /* SCM_DEBUG_DEPRECATED == 0 */ - -#endif /* LISTH */ +#endif /* SCM_LIST_H */ /* Local Variables: |