removed unused vars
authorClaus Gittinger <cg@exept.de>
Tue, 15 Oct 1996 22:35:55 +0200
changeset 450 efbbe6d6c6f5
parent 449 25bc9f97233e
child 451 61c26881eab6
removed unused vars
RunArray.st
Text.st
UnitConverter.st
--- a/RunArray.st	Mon Oct 14 23:34:03 1996 +0200
+++ b/RunArray.st	Tue Oct 15 22:35:55 1996 +0200
@@ -275,7 +275,7 @@
      splitted."
 
     |runSz runIndex runOffset len l1 l2 prevIdx nextIdx
-     val newRuns newValues prevLen prevVal nextLen nextVal idx|
+     val newRuns prevLen prevVal nextLen nextVal idx|
 
     runSz := contentsArray size.
 
@@ -932,5 +932,5 @@
 !RunArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.11 1996-05-18 17:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RunArray.st,v 1.12 1996-10-15 20:35:49 cg Exp $'
 ! !
--- a/Text.st	Mon Oct 14 23:34:03 1996 +0200
+++ b/Text.st	Tue Oct 15 22:35:55 1996 +0200
@@ -337,8 +337,6 @@
     "return true, if e1 includes e2.
      e2 should be a single emphasis."
 
-    |ne|
-
     e1 isNil ifTrue:[^ false].
     e2 isNil ifTrue:[^ false].
     e1 == e2 ifTrue:[^ true].
@@ -368,8 +366,6 @@
      Otherwise, if a n association with that key is included, return the value.
      Otherwise, return nil."
 
-    |ne|
-
     e isNil ifTrue:[^ nil].
     key == e ifTrue:[^ e].
 "/    e isSymbol ifTrue:[^ nil].
@@ -1048,7 +1044,7 @@
 widthOn:aGC
     "return the number of device units, required on aGC's device"
 
-    |savedFont savedPaint boldFont italicFont bold italic pos f l device|
+    |savedFont boldFont italicFont bold italic pos f l device|
 
     device := aGC graphicsDevice.
 
@@ -1128,6 +1124,6 @@
 !Text  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.28 1996-08-23 08:30:04 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.29 1996-10-15 20:35:53 cg Exp $'
 ! !
 Text initialize!
--- a/UnitConverter.st	Mon Oct 14 23:34:03 1996 +0200
+++ b/UnitConverter.st	Tue Oct 15 22:35:55 1996 +0200
@@ -314,7 +314,7 @@
      to destUnit (symbolic); return nil, if the conversion is
      unknown."
 
-    |u factor conversions alias rslt sU dU|
+    |u conversions alias rslt sU dU|
 
     "/ somehow, recursion must end ...
     sourceUnit == destUnit ifTrue:[
@@ -538,6 +538,6 @@
 !UnitConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.5 1996-06-04 15:15:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/UnitConverter.st,v 1.6 1996-10-15 20:35:55 cg Exp $'
 ! !
 UnitConverter initialize!