[Maxima-commits] CVS: maxima/share/misc seqopt.lisp,1.5,1.6

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/share/misc
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv31620/share/misc

Modified Files:
	seqopt.lisp 
Log Message:
replaced increment by inf.


Index: seqopt.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/misc/seqopt.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- seqopt.lisp	25 Mar 2007 22:45:44 -0000	1.5
+++ seqopt.lisp	28 Mar 2007 21:55:45 -0000	1.6
@@ -329,7 +329,7 @@
    (let ((newvar (implode (nconc (exploden $sequence_optim_prefix)
                                  (exploden $sequence_optim_counter)
                                  (exploden $sequence_optim_suffix)))))
-     (increment $sequence_optim_counter)
+     (incf $sequence_optim_counter)
      (if optim-vars (setq optim-vars `(,.optim-vars ,newvar)))
      newvar))