# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1101834026 0
# Node ID 5a5ce0d66410ecdf90f8fca52201615ab6d37c22
# Parent  157fd661769ff3dcd77817b614f311fe83bea97b
Add a provide statement.
(calc-Need-calc-alg, math-need-std-simps): Remove them.
(math-defsimplify): Move from calc-ext.el.

diff -r 157fd661769f -r 5a5ce0d66410 lisp/calc/calc-alg.el
--- a/lisp/calc/calc-alg.el	Tue Nov 30 16:59:39 2004 +0000
+++ b/lisp/calc/calc-alg.el	Tue Nov 30 17:00:26 2004 +0000
@@ -27,12 +27,10 @@
 ;;; Code:
 
 ;; This file is autoloaded from calc-ext.el.
+
 (require 'calc-ext)
-
 (require 'calc-macs)
 
-(defun calc-Need-calc-alg () nil)
-
 ;;; Algebra commands.
 
 (defun calc-alg-evaluate (arg)
@@ -333,9 +331,19 @@
       aa)))
 
 
-;; Placeholder, to synchronize autoloading.
-(defun math-need-std-simps ()
-  nil)
+(defmacro math-defsimplify (funcs &rest code)
+  (append '(progn)
+          (mapcar (function
+                   (lambda (func)
+                     (list 'put (list 'quote func) ''math-simplify
+                           (list 'nconc
+                                 (list 'get (list 'quote func) ''math-simplify)
+                                 (list 'list
+                                       (list 'function
+                                             (append '(lambda (math-simplify-expr))
+                                                     code)))))))
+                  (if (symbolp funcs) (list funcs) funcs))))
+(put 'math-defsimplify 'lisp-indent-hook 1)
 
 ;; The function created by math-defsimplify uses the variable
 ;; math-simplify-expr, and so is used by functions in math-defsimplify
@@ -1692,5 +1700,7 @@
 				    (math-scale-int 1 (- (nth 2 f)))))))
       f))
 
+(provide 'calc-alg)
+
 ;;; arch-tag: 52e7dcdf-9688-464d-a02b-4bbe789348d0
 ;;; calc-alg.el ends here