Stop using InstallValue (#21)

Author: fingolfin

lib/resclass.gd

@@ -218,10 +218,8 @@ DeclareProperty( "IsResidueClass", IsObject );
 
 #############################################################################
 ##
-#V  RESCLASSES_VIEWINGFORMAT . . . current viewing format ("short" or "long")
 #F  ResidueClassUnionViewingFormat( format ) . short <--> long viewing format
 ##
-DeclareGlobalVariable( "RESCLASSES_VIEWINGFORMAT" );
 DeclareGlobalFunction( "ResidueClassUnionViewingFormat" );
 
 #############################################################################

lib/resclass.gi

@@ -3316,7 +3316,7 @@ InstallMethod( ViewObj,
 #V  RESCLASSES_VIEWINGFORMAT . . . current viewing format ("short" or "long")
 #F  ResidueClassUnionViewingFormat( format ) . short <--> long viewing format
 ##
-InstallValue( RESCLASSES_VIEWINGFORMAT, "long" );
+BindGlobal( "RESCLASSES_VIEWINGFORMAT", "long" );
 InstallGlobalFunction( ResidueClassUnionViewingFormat,
 
   function ( format )

lib/resclaux.g

@@ -24,10 +24,10 @@ RESCLASSES_VIEWINGFORMAT_BACKUP := "long";
 BindGlobal( "ResClassesDoThingsToBeDoneBeforeTest",
 
   function (  )
-    RESCLASSES_WARNINGLEVEL_BACKUP := InfoLevel(InfoWarning);;
+    RESCLASSES_WARNINGLEVEL_BACKUP := InfoLevel(InfoWarning);
     SetInfoLevel(InfoWarning,0);
     SetAssertionLevel(0);
-    RESCLASSES_VIEWINGFORMAT_BACKUP := RESCLASSES_VIEWINGFORMAT;;
+    RESCLASSES_VIEWINGFORMAT_BACKUP := ValueGlobal("RESCLASSES_VIEWINGFORMAT");
     ResidueClassUnionViewingFormat("long");
   end );