nice-commit

[<bo...@us...>]

Update of /cvsroot/nice/Nice/src/bossa/modules
In directory sc8-pr-cvs1:/tmp/cvs-serv14064/src/bossa/modules

Modified Files:
	Package.java 
Log Message:
Put closures needed by a class in the implementation class, not the
dispatch class, since classes are again only generated during the initial 
compilation.


Index: Package.java
===================================================================
RCS file: /cvsroot/nice/Nice/src/bossa/modules/Package.java,v
retrieving revision 1.104
retrieving revision 1.105
diff -C2 -d -r1.104 -r1.105
*** Package.java	27 Nov 2003 00:54:43 -0000	1.104
--- Package.java	27 Nov 2003 14:57:56 -0000	1.105
***************
*** 610,628 ****
      
      ClassExp res = new ClassExp(classe);
!     addImplementationClass(res);
      return res;
    }
  
!   public void addImplementationClass(gnu.expr.ClassExp classe)
    {
      thisPkg.addClass(classe);
  
!     /* If a class need an outer frame (for instance if the constructor
!        defines an anonymous function), then use the dispatch class.
!        The implementation class would be inappropriate, since it is
!        not regenerated when importing a compiled package, while
!        classes and the dispatch class are. 
!     */
!     classe.outer = dispatchClass;
    }
  
--- 610,624 ----
      
      ClassExp res = new ClassExp(classe);
!     addUserClass(res);
      return res;
    }
  
!   public void addUserClass(gnu.expr.ClassExp classe)
    {
      thisPkg.addClass(classe);
  
!     // A class only needs an outer frame if we are compiling the package.
!     if (compiling())
!       classe.outer = getImplementationClass();
    }