From 710a97992705d67c3ded0d4b270c5978ce29b11f Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:37 -0800 Subject: Import Upstream version 5e4 --- scmhob.h | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'scmhob.h') diff --git a/scmhob.h b/scmhob.h index b1480c1..1e8e961 100644 --- a/scmhob.h +++ b/scmhob.h @@ -1,5 +1,5 @@ /* scmhob.h is a header file for scheme source compiled with hobbit5x - Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997 Tanel Tammet + Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997 Tanel Tammet 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 @@ -76,9 +76,9 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA. #define BOOLEAN_P(x) ((x)==BOOL_T || (x)==BOOL_F) #define CHAR_P ICHRP -#define SYMBOL_P(x) (ISYMP(x) || (!(IMP(x)) && SYMBOLP(x))) -#define VECTOR_P(x) (!(IMP(x)) && VECTORP(x)) -#define PAIR_P(x) (!(IMP(x)) && CONSP(x)) +#define SYMBOL_P(x) (ISYMP(x) || (!(IMP(x)) && SYMBOLP(x))) +#define VECTOR_P(x) (!(IMP(x)) && VECTORP(x)) +#define PAIR_P(x) (!(IMP(x)) && CONSP(x)) #define NUMBER_P INUMP #define INTEGER_P INUMP #define STRING_P(x) (!(IMP(x)) && STRINGP(x)) -- cgit v1.2.3