compiler internal error

[WILLIAMS Dominic]

Hello,

The following (incorrect) code produces an internal compiler error (R9B under Win2000)

-module(testing).
-export([run/0,fun1/0]).

run() ->
	{ok,fun1/0} = e3:run_tests([fun fun1/0]).

fun1() ->
	ok = ok.

Here is the output:

./testing.erl:none: internal error in v3_core;
crash reason: {{case_clause,{'EXIT',{'EXIT',
                                        {function_clause,
                                            [{v3_core,
                                                 pattern,
                                                 [{op,5,
                                                      '/',
                                                      {atom,5,fun1},
                                                      {integer,5,0}}]},
                                             {lists,map,2},
                                             {v3_core,pattern,1},
                                             {v3_core,expr,2},
                                             {v3_core,exprs,2},
                                             {v3_core,clause,2},
                                             {v3_core,clauses,2},
                                             {v3_core,body,3}|
                                             more]}}}},
               [{compile,'-select_passes/2-anonymous-2-',2},
                {compile,'-internal_comp/4-anonymous-1-',2},
                {compile,fold_comp,3},
                {compile,internal_comp,4},
                {compile,internal,3}]}
error

I know what is wrong with the code, but just wanted to let you know about the compiler crash.

Regards,

Dominic.