From: Robert D. <rob...@us...> - 2005-12-02 06:37:30
|
Update of /cvsroot/maxima/maxima/share/contrib/lurkmathml In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1579/share/contrib/lurkmathml Modified Files: mathml.lisp Log Message: Fix closing tags. Bug fix from a newer version of mathml.lisp (by the same author) which I found on the web; this bit is the only part that was different. Index: mathml.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/contrib/lurkmathml/mathml.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- mathml.lisp 7 Nov 2005 17:37:10 -0000 1.3 +++ mathml.lisp 2 Dec 2005 06:37:22 -0000 1.4 @@ -415,7 +415,7 @@ (mathml x (list "</mrow> <mfenced separators=\"\" open=\"<\" close=\">\">")(cons "</mfenced></msup>" r) 'mparen 'mparen) (if (and (numberp x) (< x 10)) (mathml x (list "</mrow> ")(cons "</msup> " r) 'mparen 'mparen) - (mathml x (list "</mrow> <mrow>")(cons "</mrow><mrow> " r) 'mparen 'mparen)) + (mathml x (list "</mrow> <mrow>")(cons "</mrow></msup> " r) 'mparen 'mparen)) ))))) (append l r))) |