1 files changed, 5 insertions, 5 deletions

diff --git a/src/gamma-expat.c b/src/gamma-expat.c
index a81d30e..cd3efaa 100644
--- a/src/gamma-expat.c
+++ b/src/gamma-expat.c
@@ -32,7 +32,7 @@ gamma_xml_parser_create(XML_Parser parser)
 {
         struct gamma_xml_parser *gp;
 
-        gp = scm_malloc(sizeof (*gp));
+        gp = scm_gc_malloc(sizeof (*gp), "xml_parser");
         gp->parser = parser;
         SCM_RETURN_NEWSMOB(gamma_xml_parser_tag, gp);
 }
@@ -40,7 +40,7 @@ gamma_xml_parser_create(XML_Parser parser)
 #define GAMMA_XML_PARSER_PTR(smob)              \
         ((struct gamma_xml_parser *)SCM_CDR(smob))
 
-static scm_sizet
+static size_t
 gamma_xml_parser_free(SCM smob)
 {
         struct gamma_xml_parser *gp = GAMMA_XML_PARSER_PTR(smob);
@@ -84,7 +84,7 @@ gamma_xml_parser_print(SCM smob, SCM port, scm_print_state *pstate)
 }
 
 static void
-gamma_xml_parser_init()
+gamma_xml_parser_init(void)
 {
          gamma_xml_parser_tag =
                  scm_make_smob_type("XML_Parser",
@@ -96,7 +96,7 @@ gamma_xml_parser_init()
 
 
 static struct gamma_expat_user_data *
-make_user_data ()
+make_user_data(void)
 {
         int i;
         
@@ -153,7 +153,7 @@ SCM_DEFINE_PUBLIC(scm_xml_primitive_make_parser, "xml-primitive-make-parser",
         } else
                 parser = XML_ParserCreate(encoding);
         if (!parser)
-                scm_memory_error(FUNC_NAME);
+                scm_report_out_of_memory();
         XML_SetUserData(parser, make_user_data());
         free(encoding);
         return gamma_xml_parser_create(parser);