[Maxima-commits] CVS: maxima/share/contrib/graphs draw_graph.mac, 1.5, 1.6

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

Update of /cvsroot/maxima/maxima/share/contrib/graphs
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv18433

Modified Files:
	draw_graph.mac 
Log Message:
Load the draw package only if it has not been loaded before.


Index: draw_graph.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/graphs/draw_graph.mac,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- draw_graph.mac	27 Oct 2007 09:06:28 -0000	1.5
+++ draw_graph.mac	15 Nov 2007 08:52:09 -0000	1.6
@@ -22,7 +22,7 @@
 define_variable(gp_file_in, "in.txt", any)$
 define_variable(draw_graph_program, 'spring_embedding, any)$
 
-load("draw")$
+if draw_loaded#true then load("draw")$
 
 circular_positions(G) := block(
   [v_list, numer : true, n : graph_size(G)],