diff options
Diffstat (limited to 'src/interp/i-resolv.boot')
| -rw-r--r-- | src/interp/i-resolv.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-resolv.boot b/src/interp/i-resolv.boot index da007339..38ac6a62 100644 --- a/src/interp/i-resolv.boot +++ b/src/interp/i-resolv.boot @@ -144,7 +144,7 @@ resolveTTUnion(t1 is ['Union,:doms],t2) == ud := nil bad := nil for d in doms while not bad repeat - d = '"failed" => ud := [d,:ud] + d is '"failed" => ud := [d,:ud] null (d' := resolveTT(d,t2)) => bad := true ud := [d',:ud] bad => NIL @@ -152,7 +152,7 @@ resolveTTUnion(t1 is ['Union,:doms],t2) == ud := nil bad := nil for d in doms2 while not bad repeat - d = '"failed" => ud := append(ud,[d]) + d is '"failed" => ud := append(ud,[d]) null (d' := resolveTTUnion(t1,d)) => bad := true ud := append(ud,rest d') bad => NIL |