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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-30 01:35:36 -0800 (Sun, 30 Oct 2005)
New Revision: 1898

Modified:
   branches/r5rs/sigscheme/fileport.c
Log:
* sigscheme/fileport.c
  - (fileport_dyn_cast): Fix incorrect error message


Modified: branches/r5rs/sigscheme/fileport.c
===================================================================
--- branches/r5rs/sigscheme/fileport.c	2005-10-30 09:29:51 UTC (rev 1897)
+++ branches/r5rs/sigscheme/fileport.c	2005-10-30 09:35:36 UTC (rev 1898)
@@ -131,7 +131,7 @@
 fileport_dyn_cast(ScmBytePort *bport, const ScmBytePortVTbl *dst_vptr)
 {
     if (dst_vptr != ScmFilePort_vptr)
-        SCM_PORT_ERROR_INVALID_TYPE(BYTE, bport, ScmBytePort);
+        SCM_PORT_ERROR_INVALID_TYPE(BYTE, bport, ScmFilePort);
 
     return bport;
 }