diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-02 23:14:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 23:14:08 +0000 |
| commit | 04b834e92508a407e8f51c730ddc9bdca862d4b6 (patch) | |
| tree | 7e0765dd690b31aa6aaf91989517470d3abc1428 /src/interp | |
| parent | 6c36217f8a6721a3695e6c8d0b5f86401b5ed18b (diff) | |
| download | open-axiom-04b834e92508a407e8f51c730ddc9bdca862d4b6.tar.gz | |
* boot/ast.boot (idList?, charList?, stringLits?): New.
(bfMember): Use them for special cases.
* boot/parser.boot (bpDefinition): Stop support MDEF forms.
(bpMdef, bpMDefTail): Remove.
* boot/tokens.boot: "==>" is no longer a token.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/buildom.boot | 2 | ||||
| -rw-r--r-- | src/interp/match.boot | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index f1b042c4..b5b3b3f3 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -54,7 +54,7 @@ $commonCategoryAncestors == ++ Default category packages for Record, Union, Mapping and ++ Enumeration domains. $commonCategoryDefaults == - ['(SetCategory_& $), '(BasicType_& $), nil] + ['(SetCategory& $), '(BasicType& $), nil] ++ The slot number in a domain shell that holds the first parameter to ++ a domain constructor. diff --git a/src/interp/match.boot b/src/interp/match.boot index c9addf40..97e139ab 100644 --- a/src/interp/match.boot +++ b/src/interp/match.boot @@ -99,7 +99,7 @@ patternCheck pattern == main where not(and/[equal(pattern,i + 1,$wildCard) for i in u]) => sayBrightly ['"Invalid use of underscores in pattern: ",pattern] '"!!!!!!!!!!!!!!" - c := wild(pattern,'(_$ _# _% _& _@)) + c := wild(pattern,'($ _# % _& _@)) -- sayBrightlyNT ['"Choosing new wild card"] -- pp c $oldWild :local := $wildCard |