Mercurial > emacs
changeset 106068:c3e7e20da11d
(math-symclip, calcFunc-symclip, calc-symclip): Remove.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 16 Nov 2009 23:29:20 +0000 |
| parents | f5ddc2cbc74b |
| children | 440ff06cbf46 |
| files | lisp/calc/calc-bin.el |
| diffstat | 1 files changed, 0 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-bin.el Mon Nov 16 22:59:09 2009 +0000 +++ b/lisp/calc/calc-bin.el Mon Nov 16 23:29:20 2009 +0000 @@ -850,33 +850,6 @@ "##" 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