[Stack-cvs] stack-dev/maxima stackmaxima.mac,1.80,1.81

[Chris S. <san...@us...>]

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