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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-04 19:50:18 -0800 (Wed, 04 Jan 2006)
New Revision: 2798

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (scm_p_add, scm_p_multiply, scm_p_subtract, scm_p_divide,
    COMPARATOR_BODY): Replace the never-met error check with SCM_ASSERT()


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2006-01-05 03:45:42 UTC (rev 2797)
+++ branches/r5rs/sigscheme/operations.c	2006-01-05 03:50:18 UTC (rev 2798)
@@ -238,7 +238,7 @@
     case SCM_REDUCE_0:
         break;
     default:
-        ERR("(internal error) unrecognized state specifier: %d", *state);
+        SCM_ASSERT(scm_false);
     }
 
     return MAKE_INT(result);
@@ -264,7 +264,7 @@
     case SCM_REDUCE_0:
         break;
     default:
-        ERR("(internal error) unrecognized state specifier: %d", *state);
+        SCM_ASSERT(scm_false);
     }
 
     return MAKE_INT(result);
@@ -291,7 +291,7 @@
     case SCM_REDUCE_0:
         ERR("at least 1 argument required");
     default:
-        ERR("(internal error) unrecognized state specifier: %d", *state);
+        SCM_ASSERT(scm_false);
     }
     return MAKE_INT(result);
 }
@@ -318,7 +318,7 @@
     case SCM_REDUCE_0:
         ERR("at least 1 argument required");
     default:
-        ERR("(internal error) unrecognized state specifier: %d", *state);
+        SCM_ASSERT(scm_false);
     }
     return MAKE_INT(result);
 }
@@ -345,7 +345,7 @@
         *state = SCM_REDUCE_STOP;                                            \
         return SCM_FALSE;                                                    \
     default:                                                                 \
-        ERR("(internal error) unrecognized state specifier: %d", *state);    \
+        SCM_ASSERT(scm_false);                                               \
     }                                                                        \
     return SCM_INVALID