[uim-commit] r3031 - branches/r5rs/sigscheme/src

[yamaken at freedesktop.org]

Author: yamaken
Date: 2006-01-29 17:53:11 -0800 (Sun, 29 Jan 2006)
New Revision: 3031

Modified:
   branches/r5rs/sigscheme/src/eval.c
Log:
* sigscheme/src/eval.c
  - (call, map_eval): Fix invalid ERR() with ERR_OBJ()


Modified: branches/r5rs/sigscheme/src/eval.c
===================================================================
--- branches/r5rs/sigscheme/src/eval.c	2006-01-30 01:29:55 UTC (rev 3030)
+++ branches/r5rs/sigscheme/src/eval.c	2006-01-30 01:53:11 UTC (rev 3031)
@@ -291,7 +291,7 @@
             call_continuation(proc, args, eval_state, need_eval);
             /* NOTREACHED */
         }
-        ERR("procedure or syntax required but got", proc);
+        ERR_OBJ("procedure or syntax required but got", proc);
     }
 
     /* We have a C function. */
@@ -330,7 +330,7 @@
         /* Since this check is expensive, each syntax should do. Other
          * procedures are already ensured that having proper args here. */
         else if (syntaxp && !PROPER_LISTP(args))
-            ERR(SCM_ERRMSG_IMPROPER_ARGS, args);
+            ERR_OBJ(SCM_ERRMSG_IMPROPER_ARGS, args);
 #endif
         argbuf[i++] = args;
     } else {
@@ -480,7 +480,7 @@
         SCM_QUEUE_ADD(q, elm);
     }
     if (!NULLP(rest))
-        ERR(SCM_ERRMSG_IMPROPER_ARGS, args);
+        ERR_OBJ(SCM_ERRMSG_IMPROPER_ARGS, args);
 
     *args_len = len;
     return res;