Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
removed unused local vars
authorClaus Gittinger <cg@exept.de>
Sat, 17 Jan 1998 18:20:54 +0100
changeset 3185 1c7bd090a822
parent 3184 d99302322139
child 3186 16e7ba00e786
removed unused local vars
LPReal.st file | annotate | diff | comparison | revisions
LimitedPrecisionReal.st file | annotate | diff | comparison | revisions 
--- a/LPReal.st	Sat Jan 17 16:50:14 1998 +0100
+++ b/LPReal.st	Sat Jan 17 18:20:54 1998 +0100
@@ -237,7 +237,7 @@
 asInteger
     "return an integer with same value - might truncate"
 
-    |l v sign max maxF|
+    |max maxF|
 
     self isNaN ifTrue:[
         ^ DomainErrorSignal raise
@@ -490,5 +490,5 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LPReal.st,v 1.23 1998-01-07 12:04:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LPReal.st,v 1.24 1998-01-17 17:20:54 cg Exp $'
 ! !
--- a/LimitedPrecisionReal.st	Sat Jan 17 16:50:14 1998 +0100
+++ b/LimitedPrecisionReal.st	Sat Jan 17 18:20:54 1998 +0100
@@ -237,7 +237,7 @@
 asInteger
     "return an integer with same value - might truncate"
 
-    |l v sign max maxF|
+    |max maxF|
 
     self isNaN ifTrue:[
         ^ DomainErrorSignal raise
@@ -490,5 +490,5 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.23 1998-01-07 12:04:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.24 1998-01-17 17:20:54 cg Exp $'
 ! !
hg/stx-libbasic