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

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

Update of /cvsroot/stack/stack-dev/maxima
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv27313/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.81
retrieving revision 1.82
diff -C2 -d -r1.81 -r1.82
*** stackmaxima.mac	13 Oct 2010 12:14:28 -0000	1.81
--- stackmaxima.mac	13 Oct 2010 14:32:11 -0000	1.82
***************
*** 278,297 ****
  )$
  
! /*JPH validate an expression without type checking. Floats and mathematical errors only. */
! stack_validate_typeless(ex,ForbidFloats,LowestTerms) := block( [simp:false,exs],
    /* Try to simply the expression to catch CAS errors */
!   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
      print(StackAddFeedback("","Illegal_floats")),
    /* Checks fractions are in lowest terms */
!   if LowestTerms and all_lowest_termsex(ex)=false then
      print(StackAddFeedback("","Lowest_Terms")),
    /* Now display the result */
    simp:false,
!   return(ex)
  )$
  
--- 278,297 ----
  )$
  
! /*validate an expression without type checking. Floats and mathematical errors only. */
! stack_validate_typeless(expr,ForbidFloats,LowestTerms) := block( [simp:false,exs],
    /* Try to simply the expression to catch CAS errors */
!   exs:errcatch(ev(expr,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(expr) then
      print(StackAddFeedback("","Illegal_floats")),
    /* Checks fractions are in lowest terms */
!   if LowestTerms and all_lowest_termsex(expr)=false then
      print(StackAddFeedback("","Lowest_Terms")),
    /* Now display the result */
    simp:false,
!   return(expr)
  )$