*** empty log message ***

This commit is contained in:
Brian Preble
1991-04-23 00:08:11 +00:00
parent 0101ec2ad0
commit 3666f39cfd

View File

@@ -84,8 +84,8 @@ item to make room."
(set-car (cdr ring) tl)))))
(defun comint-mod (n m)
"Returns N mod M. M is positive. Answer is guaranteed to be non-negative,
and less than m."
"Returns N mod M. M is positive.
Answer is guaranteed to be non-negative, and less than m."
(let ((n (% n m)))
(if (>= n 0) n
(+ n