Mercurial > emacs

changeset 58511:0a3797785946

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish making previous changes.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 25 Nov 2004 06:29:11 +0000
parents b1042b68790c
children 881f9deeda21
files lisp/calc/calc-units.el
diffstat 1 files changed, 20 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-units.el	Thu Nov 25 06:28:25 2004 +0000
+++ b/lisp/calc/calc-units.el	Thu Nov 25 06:29:11 2004 +0000
@@ -665,25 +665,25 @@
 (defvar math-fbu-base)
 (defvar math-fbu-entry)
 
-(defun math-find-base-units (entry)
-  (if (eq (nth 4 entry) 'boom)
-      (error "Circular definition involving unit %s" (car entry)))
-  (or (nth 4 entry)
-      (let (base)
-	(setcar (nthcdr 4 entry) 'boom)
-	(math-find-base-units-rec (nth 1 entry) 1)
-	'(or base
-	    (error "Dimensionless definition for unit %s" (car entry)))
-	(while (eq (cdr (car base)) 0)
-	  (setq base (cdr base)))
-	(let ((b base))
+(defun math-find-base-units (math-fbu-entry)
+  (if (eq (nth 4 math-fbu-entry) 'boom)
+      (error "Circular definition involving unit %s" (car math-fbu-entry)))
+  (or (nth 4 math-fbu-entry)
+      (let (math-fbu-base)
+	(setcar (nthcdr 4 math-fbu-entry) 'boom)
+	(math-find-base-units-rec (nth 1 math-fbu-entry) 1)
+	'(or math-fbu-base
+	    (error "Dimensionless definition for unit %s" (car math-fbu-entry)))
+	(while (eq (cdr (car math-fbu-base)) 0)
+	  (setq math-fbu-base (cdr math-fbu-base)))
+	(let ((b math-fbu-base))
 	  (while (cdr b)
 	    (if (eq (cdr (car (cdr b))) 0)
 		(setcdr b (cdr (cdr b)))
 	      (setq b (cdr b)))))
-	(setq base (sort base 'math-compare-unit-names))
-	(setcar (nthcdr 4 entry) base)
-	base)))
+	(setq math-fbu-base (sort math-fbu-base 'math-compare-unit-names))
+	(setcar (nthcdr 4 math-fbu-entry) math-fbu-base)
+	math-fbu-base)))
 
 (defun math-compare-unit-names (a b)
   (memq (car b) (cdr (memq (car a) math-cu-unit-list))))
@@ -694,10 +694,11 @@
 	   (let ((ulist (math-find-base-units u)))
 	     (while ulist
 	       (let ((p (* (cdr (car ulist)) pow))
-		     (old (assq (car (car ulist)) base)))
+		     (old (assq (car (car ulist)) math-fbu-base)))
 		 (if old
 		     (setcdr old (+ (cdr old) p))
-		   (setq base (cons (cons (car (car ulist)) p) base))))
+		   (setq math-fbu-base 
+                         (cons (cons (car (car ulist)) p) math-fbu-base))))
 	       (setq ulist (cdr ulist)))))
 	  ((math-scalarp expr))
 	  ((and (eq (car expr) '^)
@@ -716,8 +717,8 @@
 	  ((eq (car expr) 'var)
 	   (or (eq (nth 1 expr) 'pi)
 	       (error "Unknown name %s in defining expression for unit %s"
-		      (nth 1 expr) (car entry))))
-	  (t (error "Malformed defining expression for unit %s" (car entry))))))
+		      (nth 1 expr) (car math-fbu-entry))))
+	  (t (error "Malformed defining expression for unit %s" (car math-fbu-entry))))))
 
 
 (defun math-units-in-expr-p (expr sub-exprs)