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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-01 02:02:12 -0800 (Tue, 01 Nov 2005)
New Revision: 1926

Modified:
   branches/r5rs/sigscheme/sbcport.c
Log:
* sigscheme/sbcport.c
  - (Scm_sbcport_init): Simplify for human


Modified: branches/r5rs/sigscheme/sbcport.c
===================================================================
--- branches/r5rs/sigscheme/sbcport.c	2005-11-01 09:53:57 UTC (rev 1925)
+++ branches/r5rs/sigscheme/sbcport.c	2005-11-01 10:02:12 UTC (rev 1926)
@@ -230,11 +230,15 @@
 void
 Scm_sbcport_init(void)
 {
+    ScmCharPortVTbl *vptr;
+
     ScmSingleByteCharPort_vtbl = *ScmBaseCharPort_vptr;
-    ScmSingleByteCharPort_vtbl.dyn_cast = (ScmCharPortMethod_dyn_cast)&sbcport_dyn_cast;
-    ScmSingleByteCharPort_vtbl.encoding = (ScmCharPortMethod_encoding)&sbcport_encoding;
-    ScmSingleByteCharPort_vtbl.inspect  = (ScmCharPortMethod_inspect)&sbcport_inspect;
-    ScmSingleByteCharPort_vtbl.put_char = (ScmCharPortMethod_put_char)&sbcport_put_char;
+
+    vptr = &ScmSingleByteCharPort_vtbl;
+    vptr->dyn_cast = (ScmCharPortMethod_dyn_cast)&sbcport_dyn_cast;
+    vptr->encoding = (ScmCharPortMethod_encoding)&sbcport_encoding;
+    vptr->inspect  = (ScmCharPortMethod_inspect)&sbcport_inspect;
+    vptr->put_char = (ScmCharPortMethod_put_char)&sbcport_put_char;
 }
 
 void