Changeset 339ba78 in tol

Timestamp:

Apr 8, 2011, 9:33:45 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

437b277

Parents:

71f1fbb

Message:

Fixes #1157

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3430 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/lang/language.cpp (modified) (3 diffs)

tol/lang/language.cpp

@@ -1476 +1476 @@
       {
       //Std(BText("\nTRACE BPackage::Load 6 "));
-        int oldLevel = BGrammar::Level();
-        BGrammar::PutLevel(0); 
+        BGrammar::IncLevel();
         BSyntaxObject* aux = BOisLoader::LoadFull(path);
         if(aux && (aux->Grammar()==GraSet()))
@@ -1487 +1486 @@
           //Std(BText("\nTRACE BPackage::Load 8 "));
             pkg = set[1];
+            pkg->PutLevel(0);
+            BGrammar::AddObject(pkg);
             pkg->IncNRefs();
             pkg->IncNRefs();
@@ -1495 +1496 @@
         }      
       //Std(BText("\nTRACE BPackage::Load 9 "));
-        BGrammar::PutLevel(oldLevel); 
+        BGrammar::DecLevel(); 
         ok = pkg!=NULL;
       //Std(BText("\nTRACE BPackage::Load 10 ok=")+ok);