# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1100152284 0
# Node ID e40a741663002de2954ed4116051f8a1ffd485e0
# Parent  349b9aab8e8202bcf21e68461cfe1331ccb6d0c3
(math-read-angle-bracket):  Use declared variables math-exp-pos,
math-exp-str.

diff -r 349b9aab8e82 -r e40a74166300 lisp/calc/calc-forms.el
--- a/lisp/calc/calc-forms.el	Thu Nov 11 05:50:09 2004 +0000
+++ b/lisp/calc/calc-forms.el	Thu Nov 11 05:51:24 2004 +0000
@@ -1791,8 +1791,8 @@
 
 
 (defun math-read-angle-brackets ()
-  (let* ((last (or (math-check-for-commas t) (length exp-str)))
-	 (str (substring exp-str exp-pos last))
+  (let* ((last (or (math-check-for-commas t) (length math-exp-str)))
+	 (str (substring math-exp-str math-exp-pos last))
 	 (res
 	  (if (string-match "\\` *\\([a-zA-Z#][a-zA-Z0-9#]* *,? *\\)*:" str)
 	      (let ((str1 (substring str 0 (1- (match-end 0))))
@@ -1818,7 +1818,7 @@
 	(throw 'syntax res))
     (if (eq (car-safe res) 'error)
 	(throw 'syntax (nth 2 res)))
-    (setq exp-pos (1+ last))
+    (setq math-exp-pos (1+ last))
     (math-read-token)
     res))