diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-09 21:12:35 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-09 21:12:35 +0000 |
commit | e6d7d0e6a6a710b4a6ebcb0431dc19bbd666ced0 (patch) | |
tree | 256009958c8e69d2cd02ce2add85cf20a72bf9f5 /src/interp/g-error.boot | |
parent | 5663732162b1010ab0b506c87f576f2b78c27994 (diff) | |
download | open-axiom-e6d7d0e6a6a710b4a6ebcb0431dc19bbd666ced0.tar.gz |
Add MappingCategory as a (builtin) category.
* interp/sys-constants.boot ($CategoryNames): Include MappingCategory.
* interp/g-cndata.boot (unabbrevSpecialForms): Handle
MappingCategory, RecordCategory, and UnionCategory.
* interp/buildom.boot (MappingCategory): New.
* interp/compiler.boot: Elaboration MappingCategory forms.
* interp/g-error.boot (needsToSplitMessage): Fix thinko from
type-based dispatch done by the Boot translator.
* interp/nrunfast.boot (builtinConstructor?): New.
(generalizedBuiltinConstructor?): Likewise.
(lazyMatch): Use them.
(newHasTest): Properly recognize all flavours of category forms.
Diffstat (limited to 'src/interp/g-error.boot')
-rw-r--r-- | src/interp/g-error.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index e0c0c905..aafefd93 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2010, Gabriel Dos Reis. +-- Copyright (C) 2007-2011, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -79,9 +79,9 @@ errorSupervisor(errorType,errorMsg) == errorSupervisor1(errorType,errorMsg,$BreakMode) needsToSplitMessage msg == - "%b" in msg or '"%b" in msg => false - "%d" in msg or '"%d" in msg => false - "%l" in msg or '"%l" in msg => false + member("%b",msg) or member('"%b",msg) => false + member("%d",msg) or member('"%d",msg) => false + member("%l",msg) or member('"%l",msg) => false true errorSupervisor1(errorType,errorMsg,$BreakMode) == |