From b2948fffd90e65c6556090fb8f4378d8aad23b81 Mon Sep 17 00:00:00 2001
From: Richard Frith-MacDonald <rfm@gnu.org>
Date: Sun, 22 Jul 2007 18:27:53 +0000
Subject: [PATCH] backport arghs types fix from trunk.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/branches/stable@25347 72102866-910b-0410-8b05-ffd578937521
---
 ChangeLog         | 5 +++++
 Tools/AGSOutput.m | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 123f4584b..540bdcd9d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-22  Richard Frith-Macdonald <rfm@gnu.org>
+
+        * Tools/AGSOutput.m: escape angle brackets in types of function
+	arguments.
+		
 2007-07-10  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/win32/GSFileHandleWin32.m: Backport fix for pipes.
diff --git a/Tools/AGSOutput.m b/Tools/AGSOutput.m
index eb04b9ee7..3054ab4e8 100644
--- a/Tools/AGSOutput.m
+++ b/Tools/AGSOutput.m
@@ -825,16 +825,16 @@ static BOOL snuggleStart(NSString *t)
       NSString		*s = [a objectForKey: @"BaseType"];
 
       [str appendString: @"        <arg type=\""];
-      [str appendString: s];
+      [str appendString: escapeType(s)];
       s = [a objectForKey: @"Prefix"];
       if (s != nil)
 	{
-	  [str appendString: s];
+	  [str appendString: escapeType(s)];
 	}
       s = [a objectForKey: @"Suffix"];
       if (s != nil)
 	{
-	  [str appendString: s];
+	  [str appendString: escapeType(s)];
 	}
       [str appendString: @"\">"];
       [str appendString: [a objectForKey: @"Name"]];