Update of /cvsroot/stack/stack-dev/maxima
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv27973/maxima
Modified Files:
stackmaxima.mac
Log Message:
Comma validation bug
Index: stackmaxima.mac
===================================================================
RCS file: /cvsroot/stack/stack-dev/maxima/stackmaxima.mac,v
retrieving revision 1.80
retrieving revision 1.81
diff -C2 -d -r1.80 -r1.81
*** stackmaxima.mac 30 Sep 2010 16:56:14 -0000 1.80
--- stackmaxima.mac 13 Oct 2010 12:14:28 -0000 1.81
***************
*** 260,263 ****
--- 260,265 ----
exs:errcatch(ev(expr,simp)),
if exs=[] then return(false),
+ if length(expr)#1 then print(StackAddFeedback("","CommaError",string(expr),string(setify(expr)))),
+ expr:first(expr),
/* Check for floats, and if there are any then throw an error */
if ForbidFloats and anyfloatex(expr) then
***************
*** 281,284 ****
--- 283,288 ----
exs:errcatch(ev(ex,simp)),
if exs=[] then return(false),
+ if length(expr)#1 then print(StackAddFeedback("","CommaError",expr,setify(expr))),
+ expr:first(expr),
/* Check for floats, and if there are any then throw an error */
if ForbidFloats and anyfloatex(ex) then
|
