[Emacs-diffs] Changes to emacs/lisp/calculator.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/27 01:26:57

Index: calculator.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calculator.el,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- calculator.el       27 Apr 2008 01:20:10 -0000      1.35
+++ calculator.el       27 Apr 2008 01:26:57 -0000      1.36
@@ -5,7 +5,7 @@
 
 ;; Author: Eli Barzilay <address@hidden>
 ;; Keywords: tools, convenience
-;; Time-stamp: <Sat 26-Apr-2008 18:18:44 gm on grasmoor>
+;; Time-stamp: <Sat 26-Apr-2008 18:25:36 gm on grasmoor>
 
 ;; This file is part of GNU Emacs.
 
@@ -1806,7 +1806,7 @@
       ;; The range errors come from large integer y.
       ((< y 0.0)
        0.0)
-      ((not (zerop (% (truncate y) 2)))
+      ((eq (logand (truncate y) 1) 1)   ; expansion of cl `oddp'
        ;; If y is odd
        -1.0e+INF)
       (t