aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-09-18 03:16:31 +0000
committerdos-reis <gdr@axiomatics.org>2008-09-18 03:16:31 +0000
commitb470f6e697d62ac77ea6c880d7199de801988ba7 (patch)
treebde88839ea835fa4454db8dc8868ca8d19f45bcf /src/interp
parent48ce2222cc914d9eb522d0d474b9d48499bb891a (diff)
downloadopen-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.boot10
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
--%