aimmath-commit

[<nps...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple
In directory sc8-pr-cvs1:/tmp/cvs-serv22576/WEB-INF/maple

Modified Files:
	Class.mpl 
Log Message:
Class/IndexFunction modified so that field assignments do not 
automatically evaluate the expression being assigned.  This seems
like it is the right behaviour, but there may be other changes that
need to be made in response.

Index: Class.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Class.mpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Class.mpl	25 Aug 2003 21:47:18 -0000	1.3
--- Class.mpl	27 Aug 2003 22:34:37 -0000	1.4
***************
*** 143,151 ****
  
     if member(index,class['Fields']) then 
!     tbl[index] := eval(val);  
     elif member(index,class['StaticFields']) then
!     class['StaticFieldValue'][index] := eval(val);
     elif member(index,class['IndirectFields']) then
!     tbl[class['FieldIndirectionTable'][index]][index] := eval(val);
     fi;
    fi;
--- 143,154 ----
  
     if member(index,class['Fields']) then 
! # WAS:    tbl[index] := eval(val);  
!     tbl[index] := eval(val,1);  
     elif member(index,class['StaticFields']) then
! # WAS:    class['StaticFieldValue'][index] := eval(val);
!     class['StaticFieldValue'][index] := eval(val,1);
     elif member(index,class['IndirectFields']) then
! # WAS:    tbl[class['FieldIndirectionTable'][index]][index] := eval(val);
!     tbl[class['FieldIndirectionTable'][index]][index] := eval(val,1);
     fi;
    fi;