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/match.boot | |
| 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/match.boot')
| -rw-r--r-- | src/interp/match.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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 |