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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-10-31 21:55:09 -0800 (Mon, 31 Oct 2005)
New Revision: 1916

Modified:
   branches/r5rs/sigscheme/baseport.h
Log:
* sigscheme/baseport.h
  - (SCM_PORT_ALLOC): Fix invalid arg for SCM_PORT_ERROR_NOMEM()


Modified: branches/r5rs/sigscheme/baseport.h
===================================================================
--- branches/r5rs/sigscheme/baseport.h	2005-11-01 05:51:00 UTC (rev 1915)
+++ branches/r5rs/sigscheme/baseport.h	2005-11-01 05:55:09 UTC (rev 1916)
@@ -76,7 +76,7 @@
     do {                                                                     \
         port = malloc(sizeof(type));                                         \
         if (!port)                                                           \
-            SCM_PORT_ERROR_NOMEM(klass, port, type);                         \
+            SCM_PORT_ERROR_NOMEM(klass, NULL, type);                         \
     } while (/* CONSTCOND */ 0)
 
 /*