[Nice-commit] Nice/src/bossa/syntax compilation.nice,1.9,1.10

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

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

Modified Files:
	compilation.nice 
Log Message:
Really find out the first argument to create a meaningful error message
(a functional value was printed instead).


Index: compilation.nice
===================================================================
RCS file: /cvsroot/nice/Nice/src/bossa/syntax/compilation.nice,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** compilation.nice	21 May 2005 16:24:58 -0000	1.9
--- compilation.nice	16 Jun 2005 16:12:19 -0000	1.10
***************
*** 206,210 ****
    String msg = m + " is a native method.\n";
  
!   if (maybeNull(firstArgument) == null)
      msg += "It cannot be implemented without dispatch on the first argument";
    else
--- 206,212 ----
    String msg = m + " is a native method.\n";
  
!   ?mlsub.typing.TypeConstructor firstArgument = alt.getPatterns()[0].getTC();
! 
!   if (firstArgument == null)
      msg += "It cannot be implemented without dispatch on the first argument";
    else