diff options
Diffstat (limited to 'libguile/boolean.c')
-rw-r--r-- | libguile/boolean.c | 26 |
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" } |