[cvs-nhc98] Fix a bug in translating (n+k) patterns to code.

malcolm: Fri Sep 14 18:12:57 CEST 2001 Update of /usr/src/master/nhc/src/compiler98 In directory hinken:/tmp/cvs-serv722 Modified Files: Case.hs Log Message: Fix a bug in translating (n+k) patterns to code. The symptom was that foo (n+1) Foo = 1 foo (n+1) Bar = 2 foo _ _ = 3 main = print (foo 1 Bar) was offering 3 as result, not 2 as expected. The cause was that the two equations were being matched in an nested if..then..else sequence, with (n>=1) as the condition. The correct way is to sequence the matches with FATBAR, so the second match is actually attempted.