[Maxima-commits] CVS: maxima/share/contrib/ezunits ezunits.mac, 1.31, 1.32

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib/ezunits
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv17449/share/contrib/ezunits

Modified Files:
	ezunits.mac 
Log Message:
New function remove_constvalue to revert the effect of declare_constvalue.

Index: ezunits.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/ezunits/ezunits.mac,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- ezunits.mac	9 Sep 2010 15:46:39 -0000	1.31
+++ ezunits.mac	19 Oct 2010 15:00:00 -0000	1.32
@@ -23,6 +23,8 @@
 
 declare_constvalue (a, x) ::= buildq ([a, x], put (a, x, 'constvalue));
 
+remove_constvalue (a) ::= buildq ([a], rem (a, 'constvalue));
+
 /* Hold off on this display symbol business.
  * :lisp (put '$\` '(#\space #\space) 'dissym)
  */