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/database.boot | |
| parent | 51828facc9bb3dd130b723cb49b1b5eff04231dd (diff) | |
| download | open-axiom-245f4067091550d9d89bc25b5e2e8c95729354b7.tar.gz | |
Tidy expression matching against strings
Diffstat (limited to 'src/interp/database.boot')
| -rw-r--r-- | src/interp/database.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index f7cff26a..00584999 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -430,7 +430,7 @@ modemapPattern(mmPattern,sig) == partial := false for xTails in tails mmPattern repeat x := first xTails - if x is ['Union,dom,tag] and tag = '"failed" and xTails=sig then + if x is ['Union,dom,'"failed"] and xTails=sig then x := dom partial := true patvar := rassoc(x,patternAlist) |