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