# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1006323803 0
# Node ID 6ab66822975409045f115973b3c69e0310e7999c
# Parent  00ed4838100e9582f6cde148941ccd2bc117a403
(calc-slow-wrapper): Move (point) call outside of (function ...)
wrapper.

diff -r 00ed4838100e -r 6ab668229754 lisp/calc/calc-macs.el
--- a/lisp/calc/calc-macs.el	Wed Nov 21 02:53:52 2001 +0000
+++ b/lisp/calc/calc-macs.el	Wed Nov 21 06:23:23 2001 +0000
@@ -36,7 +36,7 @@
 
 (defmacro calc-slow-wrapper (&rest body)
   `(calc-do
-    (function (lambda () ,@body) (point))))
+    (function (lambda () ,@body)) (point)))
 
 (defmacro math-showing-full-precision (form)
   `(let ((calc-float-format calc-full-float-format))