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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-11-01 11:15:51 -0800 (Tue, 01 Nov 2005)
New Revision: 1935

Modified:
   branches/r5rs/sigscheme/operations.c
Log:
* sigscheme/operations.c
  - (ScmOp_car): fixed typo of DECLARE_FUNCTION
  - (ScmOp_string2list): fixed typo of DECLARE_FUNCTION


Modified: branches/r5rs/sigscheme/operations.c
===================================================================
--- branches/r5rs/sigscheme/operations.c	2005-11-01 14:24:16 UTC (rev 1934)
+++ branches/r5rs/sigscheme/operations.c	2005-11-01 19:15:51 UTC (rev 1935)
@@ -579,7 +579,7 @@
 ==============================================================================*/
 ScmObj ScmOp_car(ScmObj obj)
 {
-    DECLARE_FUNCTION("car", PocedureFixed1);
+    DECLARE_FUNCTION("car", ProcedureFixed1);
 #if SCM_COMPAT_SIOD_BUGS
     if (NULLP(obj))
         return SCM_NULL;
@@ -1434,7 +1434,7 @@
     ScmMultibyteString mbs;
     ScmMultibyteCharInfo ch;
     char *buf;
-    DECLARE_FUNCTION("string->list", string);
+    DECLARE_FUNCTION("string->list", ProcedureFixed1);
 
     ASSERT_STRINGP(string);