[Maxima-commits] CVS: maxima/src scs.lisp,1.3,1.4

[Barton W. <wil...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16624/src

Modified Files:
	scs.lisp 
Log Message:
Applying fix suggested in bug 846112.

Index: scs.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/scs.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- scs.lisp	7 Nov 2005 17:37:12 -0000	1.3
+++ scs.lisp	20 Dec 2005 13:02:34 -0000	1.4
@@ -15,8 +15,7 @@
 
 (defmfun $scsimp n 
   (do ((i n (f1- i)) (zrs)) ((= 1 i) (scs (arg 1) zrs))
-    (setq zrs (cons (ifn (eq 'mequal (caar (arg i))) (arg i)
-			 (sub (cadr (arg i)) (caddr (arg i)))) zrs))))
+    (setq zrs (cons (meqhk (arg i)) zrs))))
 
 (defun scs (x zrs)
   (do ((flag t) (sz (conssize x)) (nx) (nsz)) ((not flag) x)