Nice/src/bossa/syntax dispatchTest.nice,1.9,1.10 typeConstructors.nice,1.3,1.4

Update of /cvsroot/nice/Nice/src/bossa/syntax
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10634/F:/nice/src/bossa/syntax

Modified Files:
	dispatchTest.nice typeConstructors.nice 
Log Message:
Fixed bug in shortcut dispatch test.

Index: typeConstructors.nice
===================================================================
RCS file: /cvsroot/nice/Nice/src/bossa/syntax/typeConstructors.nice,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** typeConstructors.nice	16 Jan 2005 00:28:21 -0000	1.3
--- typeConstructors.nice	24 Mar 2005 22:36:46 -0000	1.4
***************
*** 80,83 ****
  boolean isClassTC(mlsub.typing.TypeConstructor tc)
  {
!   return nice.tools.code.Types.get(tc) != null;
  }  
--- 80,87 ----
  boolean isClassTC(mlsub.typing.TypeConstructor tc)
  {
!   let c = nice.tools.code.Types.get(tc);
!   if (c instanceof gnu.bytecode.ClassType)
!     return ! c.isInterface();
! 
!   return false;
  }  

Index: dispatchTest.nice
===================================================================
RCS file: /cvsroot/nice/Nice/src/bossa/syntax/dispatchTest.nice,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** dispatchTest.nice	24 Mar 2005 21:58:11 -0000	1.9
--- dispatchTest.nice	24 Mar 2005 22:36:46 -0000	1.10
***************
*** 67,71 ****
  
    if (! trivialTestOK(sortedAlternatives))
!     if (true || ! shortTestOk(m, sortedAlternatives))
       testMethod(m, sortedAlternatives, false);
  
--- 67,71 ----
  
    if (! trivialTestOK(sortedAlternatives))
!     if (! shortTestOk(m, sortedAlternatives))
       testMethod(m, sortedAlternatives, false);
  



-------------------------------------------------------
SF email is sponsored by - The IT Product Guide
Read honest & candid reviews on hundreds of IT Products from real users.
Discover which products truly live up to the hype. Start reading now.
http://ads.osdn.com/?ad_id=6595&alloc_id=14396&op=click