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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-30 00:35:24 -0700 (Sun, 30 Oct 2005)
New Revision: 1892

Modified:
   branches/r5rs/sigscheme/baseport.h
Log:
* sigscheme/baseport.h
  - (SCM_PORT_DYNAMIC_CAST): Fix obsolete definition


Modified: branches/r5rs/sigscheme/baseport.h
===================================================================
--- branches/r5rs/sigscheme/baseport.h	2005-10-30 06:20:13 UTC (rev 1891)
+++ branches/r5rs/sigscheme/baseport.h	2005-10-30 07:35:24 UTC (rev 1892)
@@ -71,7 +71,7 @@
  * method must call SCM_PORT_DYNAMIC_CAST() explicitly.
  */
 #define SCM_PORT_DYNAMIC_CAST(type, obj)                                     \
-     ((type *)(*obj->vptr->dyn_cast)(obj, &type##_vtbl))
+     ((type *)(*obj->vptr->dyn_cast)(obj, type##_vptr))
 
 #define SCM_CHARPORT_CLOSE(cport)        ((*cport->vptr->close)(cport))
 #define SCM_CHARPORT_ENCODING(cport)     ((*cport->vptr->encoding)(cport))