From: Jaime E. V. <vi...@us...> - 2009-03-27 00:14:59
|
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 } { |