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

[ekato at freedesktop.org]

Author: ekato
Date: 2005-09-28 22:03:03 -0700 (Wed, 28 Sep 2005)
New Revision: 1679

Modified:
   branches/r5rs/uim/uim-compat-scm.c
Log:
* uim/uim-compat-scm.c (uim_scm_init_fsubr) : Follow new FUNCTYPE scheme.


Modified: branches/r5rs/uim/uim-compat-scm.c
===================================================================
--- branches/r5rs/uim/uim-compat-scm.c	2005-09-28 19:46:49 UTC (rev 1678)
+++ branches/r5rs/uim/uim-compat-scm.c	2005-09-29 05:03:03 UTC (rev 1679)
@@ -294,7 +294,7 @@
 void
 uim_scm_init_fsubr(char *name, uim_lisp (*fcn)(uim_lisp, uim_lisp))
 {
-  Scm_RegisterFuncRawList(name, (ScmFuncTypeRawList)fcn);
+  Scm_RegisterSyntaxVariadic0(name, (ScmObj (*)(ScmObj, ScmObj))fcn);
 }
 
 void