* validate.h (SCM_VALIDATE_OPOUTSTRPORT): New macro.

[bpt/guile.git] / libguile / list.h

diff --git a/libguile/list.h b/libguile/list.h
index c44f3f0..96163ec 100644 (file)
--- a/libguile/list.h
+++ b/libguile/list.h
@@ -2,7 +2,7 @@
 
 #ifndef LISTH
 #define LISTH
-/*     Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
+/*     Copyright (C) 1995,1996,1997, 2000 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
@@ -66,39 +66,54 @@
      scm_cons ((e0),\
               SCM_LIST8 ((e1), (e2), (e3), (e4), (e5), (e6), (e7), (e8)))
 
-extern SCM scm_list_head SCM_P ((SCM lst, SCM k));
-extern SCM scm_listify SCM_P ((SCM elt, ...));
-extern SCM scm_list SCM_P ((SCM objs));
-extern SCM scm_list_star SCM_P ((SCM arg, SCM objs));
-extern SCM scm_null_p SCM_P ((SCM x));
-extern SCM scm_list_p SCM_P ((SCM x));
-extern long scm_ilength SCM_P ((SCM sx));
-extern SCM scm_length SCM_P ((SCM x));
-extern SCM scm_append SCM_P ((SCM args));
-extern SCM scm_append_x SCM_P ((SCM args));
-extern SCM scm_reverse SCM_P ((SCM lst));
-extern SCM scm_reverse_x SCM_P ((SCM lst, SCM newtail));
-extern SCM scm_list_ref SCM_P ((SCM lst, SCM k));
-extern SCM scm_list_set_x SCM_P ((SCM lst, SCM k, SCM val));
-extern SCM scm_list_cdr_set_x SCM_P ((SCM lst, SCM k, SCM val));
-extern SCM scm_last_pair SCM_P ((SCM sx));
-extern SCM scm_list_tail SCM_P ((SCM lst, SCM k));
-extern SCM scm_sloppy_memq SCM_P ((SCM x, SCM lst));
-extern SCM scm_sloppy_memv SCM_P ((SCM x, SCM lst));
-extern SCM scm_sloppy_member SCM_P ((SCM x, SCM lst));
-extern SCM scm_memq SCM_P ((SCM x, SCM lst));
-extern SCM scm_memv SCM_P ((SCM x, SCM lst));
-extern SCM scm_member SCM_P ((SCM x, SCM lst));
-extern SCM scm_delq_x SCM_P ((SCM item, SCM lst));
-extern SCM scm_delv_x SCM_P ((SCM item, SCM lst));
-extern SCM scm_delete_x SCM_P ((SCM item, SCM lst));
-extern SCM scm_list_copy SCM_P ((SCM lst));
-extern SCM scm_delq SCM_P ((SCM item, SCM lst));
-extern SCM scm_delv SCM_P ((SCM item, SCM lst));
-extern SCM scm_delete SCM_P ((SCM item, SCM lst));
-extern SCM scm_delq1_x SCM_P ((SCM item, SCM lst));
-extern SCM scm_delv1_x SCM_P ((SCM item, SCM lst));
-extern SCM scm_delete1_x SCM_P ((SCM item, SCM lst));
-extern void scm_init_list SCM_P ((void));
+extern SCM scm_list_head (SCM lst, SCM k);
+extern SCM scm_listify (SCM elt, ...);
+extern SCM scm_list (SCM objs);
+extern SCM scm_cons_star (SCM arg, SCM objs);
+extern SCM scm_null_p (SCM x);
+extern SCM scm_list_p (SCM x);
+extern long scm_ilength (SCM sx);
+extern SCM scm_length (SCM x);
+extern SCM scm_append (SCM args);
+extern SCM scm_append_x (SCM args);
+extern SCM scm_reverse (SCM lst);
+extern SCM scm_reverse_x (SCM lst, SCM newtail);
+extern SCM scm_list_ref (SCM lst, SCM k);
+extern SCM scm_list_set_x (SCM lst, SCM k, SCM val);
+extern SCM scm_list_cdr_set_x (SCM lst, SCM k, SCM val);
+extern SCM scm_last_pair (SCM sx);
+extern SCM scm_list_tail (SCM lst, SCM k);
+extern SCM scm_c_memq (SCM x, SCM lst);
+extern SCM scm_memq (SCM x, SCM lst);
+extern SCM scm_memv (SCM x, SCM lst);
+extern SCM scm_member (SCM x, SCM lst);
+extern SCM scm_delq_x (SCM item, SCM lst);
+extern SCM scm_delv_x (SCM item, SCM lst);
+extern SCM scm_delete_x (SCM item, SCM lst);
+extern SCM scm_list_copy (SCM lst);
+extern SCM scm_delq (SCM item, SCM lst);
+extern SCM scm_delv (SCM item, SCM lst);
+extern SCM scm_delete (SCM item, SCM lst);
+extern SCM scm_delq1_x (SCM item, SCM lst);
+extern SCM scm_delv1_x (SCM item, SCM lst);
+extern SCM scm_delete1_x (SCM item, SCM lst);
+extern void scm_init_list (void);
+
+\f
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
+#define scm_list_star scm_cons_star
+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 */
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/