From 7e086ab1ad79547dc9c93e56f38d0834c9f0080c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 9 Apr 2008 22:03:04 +0000
Subject: 	* boot/translator.boot (bpOutItem): Tidy. 	*
 boot/parser.boot (bpTypeAliasDefition): Support parameterized alias. 	*
 boot/ast.boot (quote): New. 	(backquote): Likewise. 	(genTypeAlias):
 Likewise.

---
 src/boot/translator.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/boot/translator.boot')

diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index b5245d92..8222cab4 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -418,8 +418,8 @@ bpOutItem()==
       ImportSignature(x, sig) =>
         bpPush genImportDeclaration(x, sig)
 
-      TypeAlias(t, args, rhs) => 
-        bpPush [["DEFTYPE", t, args, ["QUOTE", rhs]]]
+      TypeAlias(lhs, rhs) => 
+        bpPush [genTypeAlias(lhs,rhs)]
 
       ConstantDefinition(n, e) =>
         bpPush [["DEFCONSTANT", n, e]]
-- 
cgit v1.2.3