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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-03 14:39:49 -0700 (Mon, 03 Oct 2005)
New Revision: 1781

Modified:
   branches/r5rs/sigscheme/main.c
Log:
* sigscheme/main.c
  - (repl): Fix the conditional codes for SIOD-compatible features on
    SCM_COMPAT_SIOD but not yet enabled by 'use'


Modified: branches/r5rs/sigscheme/main.c
===================================================================
--- branches/r5rs/sigscheme/main.c	2005-10-03 21:24:34 UTC (rev 1780)
+++ branches/r5rs/sigscheme/main.c	2005-10-03 21:39:49 UTC (rev 1781)
@@ -70,21 +70,28 @@
 #endif
     ScmObj s_exp  = SCM_NULL;
     ScmObj result = SCM_NULL;
+#if SCM_COMPAT_SIOD
+    ScmObj siod_sym = SCM_FALSE;
 
+    siod_sym = Scm_Intern("siod");
+#endif
+
 #if !SCM_GCC4_READY_GC
     /* start protecting stack */
     SigScm_GC_ProtectStack(&stack_start);
 #endif
 
 #if SCM_COMPAT_SIOD
-    if (SigScm_GetVerboseLevel() >= 2)
+    if (FALSEP(ScmOp_providedp(siod_sym))
+        || SigScm_GetVerboseLevel() >= 2)
 #endif
         printf("sscm> ");
 
     while (s_exp = SigScm_Read(scm_std_input_port), !EOFP(s_exp)) {
         result = EVAL(s_exp, SCM_INTERACTION_ENV);
 #if SCM_COMPAT_SIOD
-        if (SigScm_GetVerboseLevel() >= 1)
+        if (FALSEP(ScmOp_providedp(siod_sym))
+            || SigScm_GetVerboseLevel() >= 1)
 #endif
         {
 #if SCM_USE_SRFI38
@@ -96,7 +103,8 @@
         }
 
 #if SCM_COMPAT_SIOD
-        if (SigScm_GetVerboseLevel() >= 2)
+        if (FALSEP(ScmOp_providedp(siod_sym))
+            || SigScm_GetVerboseLevel() >= 2)
 #endif
             printf("sscm> ");
     }