[uim commit] r4750 - trunk/uim

[codesite-noreply]

Author: yamakenz
Date: Thu Jul 19 19:59:16 2007
New Revision: 4750

Modified:
   trunk/uim/uim-scm.c

Log:
* uim/uim-scm.c
  - (uim_scm_callf_internal): Replace ordinary assertion with SCM_NOTREACHED


Modified: trunk/uim/uim-scm.c
==============================================================================
--- trunk/uim/uim-scm.c (original)
+++ trunk/uim/uim-scm.c Thu Jul 19 19:59:16 2007
@@ -797,12 +797,9 @@
       arg = SCM_MAKE_INT(va_arg(args->args, intmax_t));
       break;
 
-    /* FIXME: enable R6RS chars by default */
-#if SCM_USE_CHAR
     case 'c':
       arg = SCM_MAKE_CHAR(va_arg(args->args, int));
       break;
-#endif
 
     case 's':
       arg = SCM_MAKE_STRING_COPYING(va_arg(args->args, const char *),
@@ -827,7 +824,7 @@
       break;
 
     default:
-      assert(scm_false);
+      SCM_NOTREACHED;
     }
     SCM_QUEUE_ADD(argq, arg);
   }