From 72482f964e76fa21c0ffa366692d35f561501291 Mon Sep 17 00:00:00 2001
From: pnenzi <pnenzi>
Date: Tue, 4 Nov 2008 11:40:17 +0000
Subject: [PATCH] Fixed segfaults when redirecting output < > -- Espice

---
 ChangeLog                     | 5 +++++
 src/frontend/parser/lexical.c | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 2b1cf2952..f7b9a18c5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2008-11-04 Paolo Nenzi
+ * src/frontend/parser/lexical.c: 
+   53: Fixed the problem of segmentation fault when redirecting output putting spaces
+       around "<" or ">". A. Roldan - Espice
+
 2008-11-02 Lionel Sainte Cluque
  * src/tclspice.c : tcl_vfprintf corrects the stou bug
  * README.tcl : Creation
diff --git a/src/frontend/parser/lexical.c b/src/frontend/parser/lexical.c
index 59cefb3ea..182e6f2d0 100644
--- a/src/frontend/parser/lexical.c
+++ b/src/frontend/parser/lexical.c
@@ -298,7 +298,8 @@ gotchar:
 	    } goto ldefault; /* else continue with default ... */
 	case '<':
 	case '>':  /* va: <=, >= are unbreakable words */
-	    if (i==0 && *string=='=') {
+       if(string)
+	    if (i==0 && (*string=='=')) {
 	        buf[i++]=c;
 	        break;
 	    } goto ldefault; /* else continue with default ... */