diff --git a/lib/init.g b/lib/init.g index 1111cdf4a7..52dc473f3d 100644 --- a/lib/init.g +++ b/lib/init.g @@ -95,7 +95,6 @@ Ignore := function ( arg ) end; ## SetFilterObj := "2b defined"; infinity := "2b defined"; -last:="2b defined"; ############################################################################# diff --git a/src/gap.c b/src/gap.c index f9517077c5..532a667875 100644 --- a/src/gap.c +++ b/src/gap.c @@ -1616,7 +1616,7 @@ static Int PostRestore ( StructInitInfo * module ) { /* construct the `ViewObj' variable */ - ViewObjGVar = GVarName( "ViewObj" ); + ViewObjGVar = GVarName( "ViewObj" ); /* construct the last and time variables */ Last = GVarName( "last" ); @@ -1624,8 +1624,12 @@ static Int PostRestore ( Last3 = GVarName( "last3" ); Time = GVarName( "time" ); MemoryAllocated = GVarName( "memory_allocated" ); - AssGVar_NoReadOnlyCheck(Time, INTOBJ_INT(0)); - AssGVar_NoReadOnlyCheck(MemoryAllocated, INTOBJ_INT(0)); + + AssReadOnlyGVar(GVarName("last"), Fail); + AssReadOnlyGVar(GVarName("last2"), Fail); + AssReadOnlyGVar(GVarName("last3"), Fail); + AssReadOnlyGVar(Time, INTOBJ_INT(0)); + AssReadOnlyGVar(MemoryAllocated, INTOBJ_INT(0)); QUITTINGGVar = GVarName( "QUITTING" ); /* return success */ diff --git a/src/scanner.c b/src/scanner.c index 86dceb0f09..d17c23decd 100644 --- a/src/scanner.c +++ b/src/scanner.c @@ -845,7 +845,6 @@ static void GetChar(void) { /* skip '\'' */ Char c = GET_NEXT_CHAR(); - /* handle escape equences */ if ( c == '\n' ) { SyntaxError("Character literal must not include ");