[ViewVC] Diff of: cvs/cvsroot/microscheme/scheme.c

Comparing cvsroot/microscheme/scheme.c (file contents):
Revision 1.3 by root, Wed Nov 25 10:30:34 2015 UTC vs.
Revision 1.4 by root, Wed Nov 25 10:49:29 2015 UTC

   for (;;)
     {
       op_code_info *pcd = dispatch_table + SCHEME_V->op;
+#if USE_ERROR_CHECKING
       if (pcd->name)       /* if built-in function, check arguments */
         {
-#if USE_ERROR_CHECKING
+          int ok = 1;
           char msg[STRBUFFSIZE];
-          int ok = 1;
           int n = list_length (SCHEME_A_ SCHEME_V->args);
           /* Check number of arguments */
           if (n < pcd->min_arity)
             {
             {
               ok = 0;
               snprintf (msg, STRBUFFSIZE, "%s: needs%s %d argument(s)",
                         pcd->name, pcd->min_arity == pcd->max_arity ? "" : " at most", pcd->max_arity);
             }
-#endif
           if (ok)
             {
-              if (pcd->arg_tests_encoding && USE_ERROR_CHECKING)
+              if (pcd->arg_tests_encoding)
                 {
                   int i = 0;
                   int j;
                   const char *t = pcd->arg_tests_encoding;
                   pointer arglist = SCHEME_V->args;
                 return;
               pcd = dispatch_table + SCHEME_V->op;
             }
         }
+#endif
       ok_to_freely_gc (SCHEME_A);
       if (pcd->func (SCHEME_A_ SCHEME_V->op) == NIL)
         return;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines