* srcprop.c (scm_source_properties, scm_set_source_properties_x,

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

diff --git a/libguile/simpos.h b/libguile/simpos.h
index 78cce68..73ddb00 100644 (file)
--- a/libguile/simpos.h
+++ b/libguile/simpos.h
@@ -1,7 +1,7 @@
 /* classes: h_files */
 
-#ifndef SSCM_IMPOSH
-#define SSCM_IMPOSH
+#ifndef SIMPOSH
+#define SIMPOSH
 /*     Copyright (C) 1995,1996 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
@@ -43,25 +43,13 @@
  * If you do not wish that, delete this exception notice.  
  */
 \f
-
+#include "libguile/__scm.h"
 
 \f
-#ifdef __STDC__
-extern SCM scm_system(SCM cmd);
-extern SCM scm_sys_getenv(SCM nam);
-extern SCM scm_software_type(void);
-extern void scm_init_simpos (void);
-
-#else /* STDC */
-extern SCM scm_system();
-extern SCM scm_sys_getenv();
-extern SCM scm_software_type();
-extern void scm_init_simpos ();
-
-#endif /* STDC */
-
-
-
 
+extern SCM scm_system SCM_P ((SCM cmd));
+extern SCM scm_sys_getenv SCM_P ((SCM nam));
+extern SCM scm_software_type SCM_P ((void));
+extern void scm_init_simpos SCM_P ((void));
 
-#endif  /* SSCM_IMPOSH */
+#endif  /* SIMPOSH */