# HG changeset patch # User Jay Belanger # Date 1258414160 0 # Node ID c3e7e20da11d0c46bee181613f25939acf89979d # Parent f5ddc2cbc74bcf36b337aec15ab00457813a6400 (math-symclip, calcFunc-symclip, calc-symclip): Remove. diff -r f5ddc2cbc74b -r c3e7e20da11d lisp/calc/calc-bin.el --- 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