Add IsHPCGAP global Constant variable

gap-system · Sep 16, 2017 · f245a79 · f245a79
1 parent b7d1545
commit f245a79
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/gap.c b/src/gap.c
@@ -2998,12 +2998,20 @@ static Int InitLibrary (
     /* create windows command buffer                                       */
     WindowCmdString = NEW_STRING( 1000 );
 
+    UInt isvar = GVarName( "IsHPCGAP" );
+
 #ifdef HPCGAP
     UInt var = GVarName( "HPCGAP" );
     AssGVar( var, True );
-    MakeReadOnlyGVar( var );
+    MakeConstantGVar( var );
+
+    AssGVar( isvar, True );
+#else
+    AssGVar( isvar, False );
 #endif
 
+    MakeConstantGVar(isvar);
+
     /* return success                                                      */
     return PostRestore( module );
 }