[uim-commit] r1599 - branches/r5rs/uim

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-09-26 17:34:07 -0700 (Mon, 26 Sep 2005)
New Revision: 1599

Modified:
   branches/r5rs/uim/uim-scm.c
Log:
* uim/uim-scm.c
  - (uim_scm_init_subr_0, uim_scm_init_subr_1, uim_scm_init_subr_2,
    uim_scm_init_subr_3, uim_scm_init_subr_4, uim_scm_init_subr_5):
    Replace Scm_RegisterFuncn() with Scm_RegisterProcedureFixedn() to
    follow the recent API change of SigScheme


Modified: branches/r5rs/uim/uim-scm.c
===================================================================
--- branches/r5rs/uim/uim-scm.c	2005-09-27 00:26:10 UTC (rev 1598)
+++ branches/r5rs/uim/uim-scm.c	2005-09-27 00:34:07 UTC (rev 1599)
@@ -562,39 +562,39 @@
 void
 uim_scm_init_subr_0(const char *name, uim_lisp (*func)(void))
 {
-  Scm_RegisterFunc0(name, (ScmFuncType0)func);
+  Scm_RegisterProcedureFixed0(name, (ScmFuncType0)func);
 }
 
 void
 uim_scm_init_subr_1(const char *name, uim_lisp (*func)(uim_lisp))
 {
-  Scm_RegisterFunc1(name, (ScmFuncType1)func);
+  Scm_RegisterProcedureFixed1(name, (ScmFuncType1)func);
 }
 
 void
 uim_scm_init_subr_2(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp))
 {
-  Scm_RegisterFunc2(name, (ScmFuncType2)func);
+  Scm_RegisterProcedureFixed2(name, (ScmFuncType2)func);
 }
 
 void
 uim_scm_init_subr_3(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp, uim_lisp))
 {
-  Scm_RegisterFunc3(name, (ScmFuncType3)func);
+  Scm_RegisterProcedureFixed3(name, (ScmFuncType3)func);
 }
 
 void
 uim_scm_init_subr_4(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp, uim_lisp,
 						uim_lisp))
 {
-  Scm_RegisterFunc4(name, (ScmFuncType4)func);
+  Scm_RegisterProcedureFixed4(name, (ScmFuncType4)func);
 }
 
 void
 uim_scm_init_subr_5(const char *name, uim_lisp (*func)(uim_lisp, uim_lisp, uim_lisp,
 						uim_lisp, uim_lisp))
 {
-  Scm_RegisterFunc5(name, (ScmFuncType5)func);
+  Scm_RegisterProcedureFixed5(name, (ScmFuncType5)func);
 }
 
 static void