===================================================================
RCS file: /cvs/mandoc/Attic/mdocml.c,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -p -r1.37 -r1.38
--- mandoc/Attic/mdocml.c	2009/01/08 14:55:59	1.37
+++ mandoc/Attic/mdocml.c	2009/01/09 14:45:44	1.38
@@ -1,4 +1,4 @@
-/* $Id: mdocml.c,v 1.37 2009/01/08 14:55:59 kristaps Exp $ */
+/* $Id: mdocml.c,v 1.38 2009/01/09 14:45:44 kristaps Exp $ */
 /*
  * Copyright (c) 2008 Kristaps Dzonsons <kristaps@kth.se>
  *
@@ -222,6 +222,10 @@ print_node(const struct mdoc_node *n, int indent)
 		argv = n->data.block.argv;
 		argc = n->data.block.argc;
 		break;
+	case (MDOC_ROOT):
+		p = "root";
+		t = "root";
+		break;
 	default:
 		abort();
 		/* NOTREACHED */
@@ -262,6 +266,8 @@ parse_leave(struct md_parse *p, int code)
 	if ((n = mdoc_result(p->mdoc)))
 		print_node(n, 0);
 
+	mdoc_free(p->mdoc);
+
 	return(code);
 }
 
@@ -499,6 +505,9 @@ msg_warn(void *arg, int line, int col, enum mdoc_warn 
 		break;
 	case (WARN_SEC_OO):
 		lit = "section is out of conventional order";
+		break;
+	case (WARN_SEC_REP):
+		lit = "section repeated";
 		break;
 	case (WARN_ARGS_GE1):
 		lit = "macro suggests one or more arguments";