[Commit] nickle ChangeLog,1.57,1.58 value.c,1.46,1.47

[Keith Packard]

Committed by: keithp

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv30879

Modified Files:
	ChangeLog value.c 
Log Message:
2004-05-27  Keith Packard  <keithp at keithp.com>
version 2.37

	* value.c: (ShiftR):
	Ceiling, not Round for negative left operand in shift right


Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- a/ChangeLog	27 May 2004 23:30:55 -0000	1.57
+++ b/ChangeLog	28 May 2004 01:26:38 -0000	1.58
@@ -1,6 +1,11 @@
 2004-05-27  Keith Packard  <keithp at keithp.com>
 version 2.37
 
+	* value.c: (ShiftR):
+	Ceiling, not Round for negative left operand in shift right
+
+2004-05-27  Keith Packard  <keithp at keithp.com>
+
 	* natural.c: (NaturalCompliment):
 	Bogus effort to truncate compliment answers resulted in
 	broken IntegerLand operation

Index: value.c
===================================================================
RCS file: /local/src/CVS/nickle/value.c,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- a/value.c	16 Apr 2004 05:26:45 -0000	1.46
+++ b/value.c	28 May 2004 01:26:38 -0000	1.47
@@ -462,7 +462,7 @@
 	Sign	sign = Positive;
 	if (Negativep (av))
 	{
-	    av = Minus (av, ShiftL (One, Minus (bv, One)));
+	    av = Minus (av, Minus (ShiftL (One, bv), One));
 	    sign = Negative;
 	}
 	av = Reduce (NewInteger (sign,