diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-12 21:25:26 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 21:25:26 +0000 |
| commit | 245f4067091550d9d89bc25b5e2e8c95729354b7 (patch) | |
| tree | df82fbfbfe47498d59ac7f7fc9528552aae5d681 /src/interp/i-resolv.boot | |
| parent | 51828facc9bb3dd130b723cb49b1b5eff04231dd (diff) | |
| download | open-axiom-245f4067091550d9d89bc25b5e2e8c95729354b7.tar.gz | |
Tidy expression matching against strings
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 |