diff options
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) |