[Maxima-commits] CVS: maxima/share/contrib/graphs isomorphism.lisp, 1.3, 1.3.2.1

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

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

Modified Files:
      Tag: RELEASE-5_16-BRANCH
	isomorphism.lisp 
Log Message:
Fixed isomorphism computation for digraphs.

Index: isomorphism.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/graphs/isomorphism.lisp,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -u -d -r1.3 -r1.3.2.1
--- isomorphism.lisp	5 May 2008 21:49:13 -0000	1.3
+++ isomorphism.lisp	6 Aug 2008 06:33:02 -0000	1.3.2.1
@@ -37,7 +37,7 @@
 	((digraph-p gr1)
 	 (if (digraph-p gr2)
 	     (let (res
-		   (iso (isomorphism-graphs gr1 gr2)))
+		   (iso (isomorphism-digraphs gr1 gr2)))
 	       (when iso
 		 (maphash
 		  (lambda (key val)