mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(math-symclip, calcFunc-symclip, calc-symclip): Remove.

Browse source
This commit is contained in:
Jay Belanger 2009-11-16 23:29:20 +00:00
parent 497de631d5
commit 0cfc719dc7
1 changed files with 0 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

27
lisp/calc/calc-bin.el
View file

@ -850,33 +850,6 @@ the size of a Calc bignum digit.")
"##"
num)))
(defun math-symclip (a)
"Reduce A to between -2^(w-1) and 2^(w-1)-1."
(if (not (Math-num-integerp a))
(math-reject-arg a 'integerp)
(if (and (Math-lessp a math-half-2-word-size)
(let
((comparison (math-compare (Math-integer-neg a) math-half-2-word-size)))
(or (= comparison 0)
(= comparison -1))))
a
(let ((smalla (math-clip a)))
(if (Math-lessp smalla math-half-2-word-size)
smalla
(math-sub smalla math-2-word-size))))))
(defalias 'calcFunc-symclip 'math-symclip)
(defun calc-symclip (n)
"Reduce N to between -2^(w-1) and 2^(w-1)-1."
(interactive "P")
(calc-slow-wrapper
(calc-enter-result 1 "sclp"
(append '(calcFunc-symclip)
(calc-top-list-n 1)
(and n (list (prefix-numeric-value n)))))))
(provide 'calc-bin)
;; arch-tag: f6dba7bc-53b2-41ae-919c-c266ab0ca8b3