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

[James A. <amu...@us...>]

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

Modified Files:
	suprv1.lisp 
Log Message:
Set %i=%I to work around case problems after inchar change.


Index: suprv1.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/suprv1.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- suprv1.lisp	11 May 2004 02:27:19 -0000	1.14
+++ suprv1.lisp	14 May 2004 22:25:29 -0000	1.15
@@ -164,6 +164,11 @@
 (DEFMVAR $% '$% "The last out-line computed, corresponds to lisp *" NO-RESET)
 (DEFMVAR $INCHAR '|$%i|
   "The alphabetic prefix of the names of expressions typed by the user.")
+;;; jfa: begin case-sensitivity hack
+;;;      delete this when case-sensitivity is fixed!!!! 05/11/2004
+(defmvar |$%i| '|$%I|
+  "%i = %I until maxima's case behavior is fixed.")
+;;; jfa: end case-sensitivity hack
 (DEFMVAR $OUTCHAR '|$%o|
   "The alphabetic prefix of the names of expressions returned by the system.")
 (DEFMVAR $LINECHAR '|$%t|