diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-01-08 14:55:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-01-08 14:55:53 +0000 |
| commit | c95f1b3efced12df21e9e99369cdb1a0a7d8ec2d (patch) | |
| tree | bb14c435c048163f87a83ae27366415fd753372f /src/boot/ast.boot | |
| parent | 041f2e9f7c59fd11a182760e31dd3bdb75d3ea79 (diff) | |
| download | open-axiom-c95f1b3efced12df21e9e99369cdb1a0a7d8ec2d.tar.gz | |
* boot/ast.boot (bfEnum): New.
* boot/translator.boot (translateToplevel): Use it to translate
enumeration definitions.
* interp/types.boot (%ConstructorKind): Use new syntax.
Diffstat (limited to 'src/boot/ast.boot')
| -rw-r--r-- | src/boot/ast.boot | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 656fdceb..23bd1425 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1312,6 +1312,9 @@ bfDs n == n = 0 => '"" strconc('"D",bfDs(n-1)) +bfEnum(t,csts) == + ['DEFTYPE,t,nil,backquote(['MEMBER,:csts],nil)] + bfHandlers(n,e,hs) == main(n,e,hs,nil) where main(n,e,hs,xs) == hs = nil => |