[Maxima-commits] CVS: maxima/src suprv1.lisp,1.87,1.88

[Dieter K. <cra...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28007/src

Modified Files:
	suprv1.lisp 
Log Message:
Cutting out historical code from the routine makelabel and the no longer used variables $dsksize and $filesize.

No problems with the testsuite.


Index: suprv1.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/suprv1.lisp,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -d -r1.87 -r1.88
--- suprv1.lisp	7 Nov 2009 16:11:23 -0000	1.87
+++ suprv1.lisp	8 Nov 2009 20:54:58 -0000	1.88
@@ -78,7 +78,6 @@
 
 (defmvar $filenum 0)
 (defmvar $storenum 1000.)
-(defmvar $filesize 16.)
 (defmvar $dskall t)
 (defmvar $errorfun nil)
 (defmvar $disptime nil)
@@ -99,7 +98,6 @@
                  $dependencies $let_rule_packages $structures))
 
 (defmvar $labels (list '(mlist simp)))
-(defmvar $dskuse nil)
 (defmvar $device '$dsk)
 (defmvar $dispflag t)
 
@@ -164,9 +162,6 @@
     (clearsign)))
 
 (defmfun makelabel (x)
-  (when (and $dskuse (not $nolabels) (> (incf dcount) $filesize))
-    (setq dcount 0)
-    (dsksave))
   (setq linelable ($concat '|| x $linenum))
   (unless $nolabels
     (when (or (null (cdr $labels))