diff options
author | dos-reis <gdr@axiomatics.org> | 2008-09-18 03:16:31 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-09-18 03:16:31 +0000 |
commit | b470f6e697d62ac77ea6c880d7199de801988ba7 (patch) | |
tree | bde88839ea835fa4454db8dc8868ca8d19f45bcf /src/interp | |
parent | 48ce2222cc914d9eb522d0d474b9d48499bb891a (diff) | |
download | open-axiom-b470f6e697d62ac77ea6c880d7199de801988ba7.tar.gz |
* interp/g-util.boot (getTypeOfSyntax): Infer more syntax domains.
* algebra/syntax.spad.pamphlet: Add more syntax domains.
* algebra/exposed.lsp.pamphlet: Expose more syntax object domains.
* algebra/Makefile.pamphlet (axiom_algebra_layer_user): Add more
syntax object files.
Diffstat (limited to 'src/interp')
-rw-r--r-- | src/interp/g-util.boot | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index 6d3fe39f..220518ee 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -145,6 +145,16 @@ getTypeOfSyntax t == op = "::" => '(CoerceAst) op = "@" => '(RestrictAst) op = "%LET" => '(LetAst) + op = "|" => '(SuchThatAst) + op = ":" => '(ColonAst) + op = "CAPSULE" => '(CapsuleAst) + op = "case" => '(CaseAst) + op = "has" => '(HasAst) + op = "is" => '(IsAst) + op = "CATEGORY" => '(CategoryAst) + op = "DEF" => '(DefinitionAst) + op = "MDEF" => '(MacroAst) + op in '(ATTRIBUTE %Attribute) => '(AttributeAst) $Syntax --% |