[Maxima-commits] CVS: maxima/src mrgmac.lisp,1.14,1.15

[Andreas E. <ar...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16:/tmp/cvs-serv16408/src

Modified Files:
	mrgmac.lisp 
Log Message:
replaced call to sel-err (an undefined function) with merror.


Index: mrgmac.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/mrgmac.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- mrgmac.lisp	27 Apr 2007 16:02:16 -0000	1.14
+++ mrgmac.lisp	29 Apr 2007 20:01:19 -0000	1.15
@@ -161,7 +161,7 @@
 (defmacro sel (&rest x)
   (push 'sel x )
   (let ((s (fsel (mode (second x)) (cddr x))))
-    (cond ((null s) (sel-err (second x) (cddr x)))
+    (cond ((null s) (merror "sel: ~a ~a" (second x) (cddr x)))
 	  (t (setq x (second x))
 	     (do ()
 		 ((null (cdr s)) x)