[uim-commit] r1889 - branches/r5rs/sigscheme

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-29 22:42:54 -0700 (Sat, 29 Oct 2005)
New Revision: 1889

Modified:
   branches/r5rs/sigscheme/fileport.c
   branches/r5rs/sigscheme/sigschemeinternal.h
Log:
* sigscheme/sigschemeinternal.h
  - (FALSE, TRUE): New macro
* sigscheme/fileport.c
  - (fileport_byte_readyp): Replace 1 with TRUE


Modified: branches/r5rs/sigscheme/fileport.c
===================================================================
--- branches/r5rs/sigscheme/fileport.c	2005-10-30 01:52:05 UTC (rev 1888)
+++ branches/r5rs/sigscheme/fileport.c	2005-10-30 05:42:54 UTC (rev 1889)
@@ -166,7 +166,7 @@
 {
     /* does not support a FILE based on a pipe, or opened by fdopen(3) */
     /* FIXME: support stdin properly */
-    return 1;
+    return TRUE;
 }
 
 static int

Modified: branches/r5rs/sigscheme/sigschemeinternal.h
===================================================================
--- branches/r5rs/sigscheme/sigschemeinternal.h	2005-10-30 01:52:05 UTC (rev 1888)
+++ branches/r5rs/sigscheme/sigschemeinternal.h	2005-10-30 05:42:54 UTC (rev 1889)
@@ -89,6 +89,13 @@
 /*=======================================
    Macro Declarations
 =======================================*/
+#ifndef FALSE
+#define FALSE 0
+#endif /* FALSE */
+#ifndef TRUE
+#define TRUE  (!FALSE)
+#endif /* TRUE */
+
 /* FreeCell Handling Macros */
 #if SCM_OBJ_COMPACT
 #define SCM_FREECELLP(a)            (SCM_CONSP(a))