[Maxima-commits] CVS: maxima/share/draw draw.lisp,1.79,1.80

[Andrej V. <an...@us...>]

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

Modified Files:
	draw.lisp 
Log Message:
draw_file: fixed a typo for the svg terminal.


Index: draw.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/draw/draw.lisp,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -d -r1.79 -r1.80
--- draw.lisp	23 Jul 2010 15:21:54 -0000	1.79
+++ draw.lisp	5 Aug 2010 08:09:12 -0000	1.80
@@ -3826,11 +3826,11 @@
                            (get-option '$pic_height)
                            (get-option '$file_bgcolor)
                            (get-option '$file_name))))
-      ($svg (format cmdstorage "set terminal svg enhanced ~a size ~a, ~a~%set out '~a.svg'"
-                           (write-font-type)
+      ($svg (setf str (format nil "set terminal svg enhanced ~a size ~a, ~a~%set out '~a.svg'"
+			   (write-font-type)
                            (get-option '$pic_width)
                            (get-option '$pic_height)
-                           (get-option '$file_name)))
+                           (get-option '$file_name))))
       (otherwise (merror "draw: unknown file format" )))
    (send-gnuplot-command (format nil "~a~%replot" str)) ))