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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-11 10:38:36 -0800 (Fri, 11 Nov 2005)
New Revision: 2117

Modified:
   branches/r5rs/sigscheme/main.c
Log:
* sigscheme/main.c
  - (repl_loop, main): Trivial cleanup


Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-11-11 18:08:52 UTC (rev 2116)
+++ branches/r5rs/sigscheme/main.c	2005-11-11 18:38:36 UTC (rev 2117)
@@ -34,7 +34,7 @@
 /*=======================================
   System Include
 =======================================*/
-#include <stdio.h>
+#include <stdlib.h>
 
 /*=======================================
   Local Include
@@ -91,9 +91,9 @@
 
 static void repl_loop(void)
 {
-    ScmObj s_exp  = SCM_NULL;
-    ScmObj result = SCM_NULL;
-    int is_prompt      = is_repl_prompt();
+    ScmObj s_exp  = SCM_FALSE;
+    ScmObj result = SCM_FALSE;
+    int is_prompt = is_repl_prompt();
 
     if (is_prompt)
         SigScm_PortPrintf(scm_current_output_port, PROMPT_STR);
@@ -156,5 +156,5 @@
     }
 
     SigScm_Finalize();
-    return 0;
+    return EXIT_SUCCESS;
 }