[Maxima-commits] CVS: maxima/src mactex.lisp,1.20,1.21

[James A. <amu...@us...>]

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

Modified Files:
	mactex.lisp 
Log Message:
fix for tex(%) from Jay Belanger.


Index: mactex.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/mactex.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- mactex.lisp	12 May 2004 01:41:52 -0000	1.20
+++ mactex.lisp	14 May 2004 22:27:25 -0000	1.21
@@ -123,7 +123,7 @@
 		     (setq mexp (list '(mdefine) (cons (list x 'array) (cdadr y)) (caddr y)))))))
 	(cond ((and (null(atom mexp))
 		    (memq (caar mexp) '(mdefine mdefmacro)))
-               (setq mexplabel (quote-% mexplabel))
+               (if mexplabel (setq mexplabel (quote-% mexplabel)))
 	       (format texport "|~%" ) ;delimit with |marks
 	       (cond (mexplabel (format texport "~a " mexplabel)))
 	       (mgrind mexp texport) ;write expression as string
@@ -144,7 +144,7 @@
 	       (mgrind mexp texport) ;write expression as string
 	       (format texport ";|~%"))
 	      (t 
-                 (setq mexplabel (quote-% mexplabel))
+                 (if mexplabel (setq mexplabel (quote-% mexplabel)))
                  ; display the expression for TeX now:
 		 (myprinc "$$")
 		 (mapc #'myprinc