# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1014062749 0
# Node ID b7527fba7b15e7dc173b602e412f193ddf9e05b9
# Parent  bec15ab7a002b30bec506da7f24d09693dce15c2
(calc-with-default-simplification): Use &rest for body.

diff -r bec15ab7a002 -r b7527fba7b15 lisp/calc/calc-macs.el
--- a/lisp/calc/calc-macs.el	Mon Feb 18 20:05:23 2002 +0000
+++ b/lisp/calc/calc-macs.el	Mon Feb 18 20:05:49 2002 +0000
@@ -51,7 +51,7 @@
   `(if (eq calc-display-working-message 'lots)
        (math-do-working ,msg ,arg)))
 
-(defmacro calc-with-default-simplification (body)
+(defmacro calc-with-default-simplification (&rest body)
   `(let ((calc-simplify-mode (and (not (memq calc-simplify-mode '(none num)))
 				  calc-simplify-mode)))
      ,@body))