Suppress 'Unbound global variable' warning in IsBound

gap-system · May 12, 2017 · 4398c7b · 4398c7b
1 parent 24ae980
commit 4398c7b
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/src/read.c b/src/read.c
@@ -502,6 +502,7 @@ void ReadCallVarAss (
       WarnOnUnboundGlobalsRNam = RNamName("WarnOnUnboundGlobals");
 
     if ( type == 'g'
+      && mode != 'i'
       && STATE(CountNams) != 0
       && var != STATE(CurrLHSGVar)
       && VAL_GVAR(var) == 0

diff --git a/tst/testinstall/bound.tst b/tst/testinstall/bound.tst
@@ -21,4 +21,21 @@ gap> f := ( -> IsBound(r.b) );; f();
 true
 gap> f := ( -> IsBound(r.c) );; f();
 false
+gap> f := ( -> IsBound(BADVARNAME) );; f();
+false
+gap> f := ( -> IsBound(BADVARNAME.BADRECNAME) );;
+gap> f();
+Error, Variable: 'BADVARNAME' must have an assigned value
+gap> f := ( -> BADVARNAME );;
+Syntax warning: Unbound global variable in stream:1
+f := ( -> BADVARNAME );;
+                     ^
+gap> f();
+Error, Variable: 'BADVARNAME' must have an assigned value
+gap> f := ( -> IsBound(BADVARNAME[BADLISTNAME]) );;
+Syntax warning: Unbound global variable in stream:1
+f := ( -> IsBound(BADVARNAME[BADLISTNAME]) );;
+                                        ^
+gap> f();
+Error, Variable: 'BADVARNAME' must have an assigned value
 gap> STOP_TEST("bound.tst", 1);