[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima Parse.tcl, 1.7, 1.8

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv11632

Modified Files:
	Parse.tcl 
Log Message:
Fixes bug 2624705 defining ^- as an aditional operator in the parser

Index: Parse.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Parse.tcl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Parse.tcl	1 Oct 2006 23:58:30 -0000	1.7
+++ Parse.tcl	27 Mar 2009 00:14:45 -0000	1.8
@@ -12,7 +12,7 @@
 if {[info exists Parser]} {catch { unset Parser }}
 
 foreach v  { { ( 120 } { \[ 120 } { ) 120 } { \] 120 }  { ^ 110}
-{* 100} { / 100} {% 100}  {- 90 } { + 90 }
+{ ^- 110} {* 100} { / 100} {% 100}  {- 90 } { + 90 }
 { << 80} { >> 80 } { < 70 } { > 70 } { <= 70 } {>= 70}
 { == 60 } { & 50} { | 40 } { , 40 } {= 40}
 { && 30 } { || 20 } { ? 10 } { : 10 }  { ; 5 }}  {
@@ -129,7 +129,8 @@
 	append ans "[list	$Parser(result)] "
 	set Parser(result) "" 	
     }
-    return $ans
+    regsub \\^- $ans {PRE_MINUS ^} ans2
+    return $ans2
 }
 
 proc parseMatch { t } {