[FIX] Interval class>>newFrom: ( [er][et][sm][cd] Saved as change set; Works as advertized; Recommend including. )

[tomkoenig at mindspring.com]

I saved this as a change set, cleaning up the code slightly.  And then
tested using examples from method and examples relavant to Richard's
fix.  For example:
     Interval newFrom: {1. 2. 3} ==>(1 to: 3)
	{33. 5. -23} as: Interval ==>(33 to: -23 by: -28)
	{33. 5. -22} as: Interval    (an error)
	(-4 to: -12 by: -1) as: Interval ==>(-4 to: -12 by: -1)
	Interval newFrom: (1 to: 1) ==>(1 to: 1)
	Interval newFrom: (1 to: 0) ==>(1 to: 0)
     #(1) as: Interval ==>(1 to: 1)
     #() as: Interval ==>(1 to: 0)
Tested on 3.7a #5623.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: intervalFix.1.cs.gz
Type: application/octet-stream
Size: 669 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-harvest/attachments/20040124/30112a10/intervalFix.1.cs-0001.obj