Function: math-binary-arg

math-binary-arg is a byte-compiled function defined in calc-bin.el.gz.

Signature

(math-binary-arg A W)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-bin.el.gz
(defun math-binary-arg (a w)
  (if (not (Math-integerp a))
      (setq a (math-trunc a)))
  (let ((w (if w (math-trunc w) calc-word-size)))
    (if (and (< a 0) (not (zerop w)))
        (logand a (1- (ash 1 w)))
      a)))