[Maxima-commits] CVS: maxima-pre59/src sloop.lisp,1.2,1.3

[Vadim V. Z. <vv...@us...>]

Update of /cvsroot/maxima/maxima-pre59/src
In directory usw-pr-cvs1:/tmp/cvs-serv22724/src

Modified Files:
	sloop.lisp 
Log Message:
type-error in sloop is renamed to sloop-type-error


Index: sloop.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima-pre59/src/sloop.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** sloop.lisp	2001/02/24 02:21:59	1.2
--- sloop.lisp	2001/12/05 05:58:26	1.3
***************
*** 593,597 ****
  	(t symbol)))
  
! (defun type-error ()
    (error "While checking a bound of a sloop, I found the wrong type 
  for something in sloop::*automatic-declarations*.
--- 593,597 ----
  	(t symbol)))
  
! (defun sloop-type-error ()
    (error "While checking a bound of a sloop, I found the wrong type 
  for something in sloop::*automatic-declarations*.
***************
*** 641,645 ****
  			      (or chk value))
  			   ',type)
! 			  (type-error))
  			 ,(or chk value)))))))
  	(t (list value))))
--- 641,645 ----
  			      (or chk value))
  			   ',type)
! 			  (sloop-type-error))
  			 ,(or chk value)))))))
  	(t (list value))))
***************
*** 837,841 ****
  				 (t `(> ,var  ,(+ most-negative-fixnum
  						  (or inc 1)))))
! 			  (type-error))
  		       *loop-increment*)
  		     )))))
--- 837,841 ----
  				 (t `(> ,var  ,(+ most-negative-fixnum
  						  (or inc 1)))))
! 			  (sloop-type-error))
  		       *loop-increment*)
  		     )))))