diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-04 03:10:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-04 03:10:47 +0000 |
| commit | 5ec566efd3ae43b1bf470e5da19de940ac95c0dd (patch) | |
| tree | eef2d0cf2cbae2993cacc5ef83033635935d6e16 /src/boot/strap/translator.clisp | |
| parent | ffc2fe52c4d8f3b213e6f954ee262e9fc09b7248 (diff) | |
| download | open-axiom-5ec566efd3ae43b1bf470e5da19de940ac95c0dd.tar.gz | |
* boot/ast.boot (bfAlternative): New. Move single assignment in
pattern matching to the body of the branch.
(bfSequence): Use it.
Diffstat (limited to 'src/boot/strap/translator.clisp')
| -rw-r--r-- | src/boot/strap/translator.clisp | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index c243fe0c..bb464915 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -579,8 +579,7 @@ (RETURN (COND ((ATOM |b|) (LIST |b|)) - ((AND (CONSP |b|) (EQ (CAR |b|) 'TUPLE) - (PROGN (SETQ |xs| (CDR |b|)) T)) + ((AND (CONSP |b|) (EQ (CAR |b|) 'TUPLE)) (SETQ |xs| (CDR |b|)) (|coreError| "invalid AST")) (T (CASE (CAR |b|) (|%Signature| @@ -947,11 +946,9 @@ (T (HPUT |$bootDefined| |i| T))) (SETQ |bfVar#20| (CDR |bfVar#20|)))) (|defuse1| (APPEND |ndol| |e|) |b|)) - ((AND (CONSP |y|) (EQ (CAR |y|) 'QUOTE) - (PROGN (SETQ |a| (CDR |y|)) T)) + ((AND (CONSP |y|) (EQ (CAR |y|) 'QUOTE)) (SETQ |a| (CDR |y|)) NIL) - ((AND (CONSP |y|) (EQ (CAR |y|) '+LINE) - (PROGN (SETQ |a| (CDR |y|)) T)) + ((AND (CONSP |y|) (EQ (CAR |y|) '+LINE)) (SETQ |a| (CDR |y|)) NIL) (T (LET ((|bfVar#21| |y|) (|i| NIL)) (LOOP |