diff options
Diffstat (limited to 'src/interp/wi2.boot')
| -rw-r--r-- | src/interp/wi2.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index fddd93ca..b0142f43 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -565,7 +565,7 @@ compFormWithModemap1(form,m,e,modemap,Rep2Dollar?) == -- try to deal with new-style Unions where we know the conditions op = "elt" and f is ['XLAM,:.] and IDENTP(z:=CAR argl) and (c:=get(z,'condition,e)) and - c is [['case,=z,c1]] and + c is [["case",=z,c1]] and (c1 is ['_:,=(CADR argl),=m] or EQ(c1,CADR argl) ) => -- first is a full tag, as placed by getInverseEnvironment -- second is what getSuccessEnvironment will place there |