* ioext.c (scm_setfileno): throw a runtime error if SET_FILE_FD_FIELD

[bpt/guile.git] / libguile / append.c

diff --git a/libguile/append.c b/libguile/append.c
index 4f09a1d..204d57a 100644 (file)
--- a/libguile/append.c
+++ b/libguile/append.c
@@ -42,32 +42,27 @@
 
 #include <stdio.h>
 #include "_scm.h"
+#include "list.h"
+
+#include "append.h"
 
 \f
 
 SCM_PROC (s_append, "append", 0, 0, 1, scm_append);
-#ifdef __STDC__
-SCM
-scm_append (SCM objs)
-#else
+
 SCM
 scm_append (objs)
      SCM objs;
-#endif
 {
   return scm_list_append (objs);
 }
 
 
 SCM_PROC (s_append_x, "append!", 0, 0, 1, scm_append_x);
-#ifdef __STDC__
-SCM
-scm_append_x (SCM objs)
-#else
+
 SCM
 scm_append_x (objs)
      SCM objs;
-#endif
 {
   return scm_list_append_x (objs);
 }
@@ -75,13 +70,8 @@ scm_append_x (objs)
 
 \f
 
-#ifdef __STDC__
-void
-scm_init_append (void)
-#else
 void
 scm_init_append ()
-#endif
 {
 #include "append.x"
 }