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

[Robert D. <rob...@us...>]

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

Modified Files:
	nset.lisp 
Log Message:
Put declaration for kron_delta into global context, not initial context.
(global is for system-defined facts, initial is for user-defined.)

Index: nset.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/nset.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- nset.lisp	29 May 2005 20:25:59 -0000	1.3
+++ nset.lisp	22 Oct 2005 21:27:06 -0000	1.4
@@ -890,7 +890,10 @@
 
 (eval-when (compile load eval)
   ;(kind '$kron_delta '$symmetric)) <-- This doesn't work. Why?
-  (meval* '(($declare) $kron_delta $symmetric)))
+  ; Put new fact in global context; 
+  ; otherwise it goes in initial context, which is meant for the user.
+  (let (($context '$global) (context '$global))
+    (meval* '(($declare) $kron_delta $symmetric))))
 
 (defun simp-kron-delta (x y z)
   (twoargcheck x)