summaryrefslogtreecommitdiff
path: root/libguile/boolean.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/boolean.c')
-rw-r--r--libguile/boolean.c26
1 files changed, 8 insertions, 18 deletions
diff --git a/libguile/boolean.c b/libguile/boolean.c
index cc8c63382..a9527a278 100644
--- a/libguile/boolean.c
+++ b/libguile/boolean.c
@@ -12,7 +12,8 @@
*
* 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, 675 Mass Ave, Cambridge, MA 02139, USA.
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA
*
* As a special exception, the Free Software Foundation gives permission
* for additional uses of the text contained in its release of GUILE.
@@ -36,38 +37,31 @@
*
* 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.
- */
+ * If you do not wish that, delete this exception notice. */
#include <stdio.h>
#include "_scm.h"
+
+#include "boolean.h"
SCM_PROC(s_not, "not", 1, 0, 0, scm_not);
-#ifdef __STDC__
-SCM
-scm_not(SCM x)
-#else
+
SCM
scm_not(x)
SCM x;
-#endif
{
return SCM_FALSEP(x) ? SCM_BOOL_T : SCM_BOOL_F;
}
SCM_PROC(s_boolean_p, "boolean?", 1, 0, 0, scm_boolean_p);
-#ifdef __STDC__
-SCM
-scm_boolean_p(SCM obj)
-#else
+
SCM
scm_boolean_p(obj)
SCM obj;
-#endif
{
if (SCM_BOOL_F==obj) return SCM_BOOL_T;
if (SCM_BOOL_T==obj) return SCM_BOOL_T;
@@ -75,13 +69,9 @@ scm_boolean_p(obj)
}
-#ifdef __STDC__
-void
-scm_init_boolean (void)
-#else
+
void
scm_init_boolean ()
-#endif
{
#include "boolean.x"
}