diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-08-19 08:47:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-08-19 08:47:00 +0000 |
| commit | 71cb17550511a6abb225030cb25c16bef8f31ef5 (patch) | |
| tree | 41e1dc042870c6df23fd1e20cb92fac152a416e6 /src/boot/strap/translator.clisp | |
| parent | cd78da3860f838c41aedc3a0c475cfc8c23eaad3 (diff) | |
| download | open-axiom-71cb17550511a6abb225030cb25c16bef8f31ef5.tar.gz | |
* boot/ast.boot: Consistently prefix AST names by "%".
* boot/translator.boot: Adjust.
* boot/parser.boot: Likewise.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index cb67bdfb..fe895323 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -539,7 +539,7 @@ (PROG (|argTypes| |ISTMP#2| |valType| |ISTMP#1|) (RETURN (COND - ((AND (CONSP |t|) (EQ (CAR |t|) '|Mapping|) + ((AND (CONSP |t|) (EQ (CAR |t|) '|%Mapping|) (PROGN (SETQ |ISTMP#1| (CDR |t|)) (AND (CONSP |ISTMP#1|) @@ -569,7 +569,7 @@ (SETQ |bfVar#9| |d|) (SETQ |bfVar#10| (CDR |bfVar#9|)) (CASE (CAR |bfVar#9|) - (|Signature| + (|%Signature| (LET ((|n| (CAR |bfVar#10|)) (|t| (CADR |bfVar#10|))) (|genDeclaration| |n| |t|))) (T (|coreError| "signature expected"))))))) @@ -630,7 +630,7 @@ (SETQ |bfVar#16| |b|) (SETQ |bfVar#17| (CDR |bfVar#16|)) (CASE (CAR |bfVar#16|) - (|Signature| + (|%Signature| (LET ((|op| (CAR |bfVar#17|)) (|t| (CADR |bfVar#17|))) (LIST (|maybeExportDecl| (|genDeclaration| |op| |t|) |export?|)))) @@ -656,7 +656,7 @@ (|translateToplevel| |d| T)) |bfVar#15|)))) (SETQ |bfVar#14| (CDR |bfVar#14|)))))))) - (|Import| + (|%Import| (LET ((|m| (CAR |bfVar#17|))) (PROGN (COND @@ -664,7 +664,7 @@ "skip")) (|bootImport| (STRING |m|)))) (LIST (LIST 'IMPORT-MODULE (STRING |m|)))))) - (|ImportSignature| + (|%ImportSignature| (LET ((|x| (CAR |bfVar#17|)) (|sig| (CADR |bfVar#17|))) (|genImportDeclaration| |x| |sig|))) @@ -673,7 +673,7 @@ (|rhs| (CADR |bfVar#17|))) (LIST (|maybeExportDecl| (|genTypeAlias| |lhs| |rhs|) |export?|)))) - (|ConstantDefinition| + (|%ConstantDefinition| (LET ((|lhs| (CAR |bfVar#17|)) (|rhs| (CADR |bfVar#17|))) (PROGN |