[Maxima-commits] CVS: maxima/src mactex.lisp,1.62,1.63

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

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24481/src

Modified Files:
	mactex.lisp 
Log Message:
Output TeX \choose for binomial instead of \pmatrix,
as recommended in SF bug report [ 534874 ] Fixes for mactex.lisp.

Index: mactex.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/mactex.lisp,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- mactex.lisp	29 Mar 2008 16:53:15 -0000	1.62
+++ mactex.lisp	16 Apr 2008 04:33:54 -0000	1.63
@@ -724,13 +724,13 @@
 (defprop %binomial tex-choose tex)
 
 (defun tex-choose (x l r)
-  `(,@l
-    "\\pmatrix{"
-    ,@(tex (cadr x) nil nil 'mparen 'mparen)
-    "\\\\"
-    ,@(tex (caddr x) nil nil 'mparen 'mparen)
-    "}"
-    ,@r))
+  (append l
+          '("{{")
+          (tex (cadr x) nil nil 'mparen 'mparen)
+          '("}\\choose{")
+          (tex (caddr x) nil nil 'mparen 'mparen)
+          '("}}")
+          r))
 
 (defprop rat tex-rat tex)
 (defun tex-rat(x l r) (tex-mquotient x l r))