diff options
author | dos-reis <gdr@axiomatics.org> | 2011-08-04 01:15:12 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-08-04 01:15:12 +0000 |
commit | e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (patch) | |
tree | 703653619aa22af3e5e1cde30dc592dfb2b45842 /src/boot | |
parent | 4a4bc97750020f7c31ca8b29fdc4a104f7825367 (diff) | |
download | open-axiom-e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb.tar.gz |
* boot/ast.boot (bfSTEP): Synthetize artificial variable for
unnamed loop index.
Diffstat (limited to 'src/boot')
-rw-r--r-- | src/boot/ast.boot | 2 | ||||
-rw-r--r-- | src/boot/strap/ast.clisp | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index 1af82d64..3cc190ae 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -267,6 +267,8 @@ bfForTree(OP,lhs,whole)== bfSTEP(id,fst,step,lst)== + if id is "DOT" then + id := bfGenSymbol() initvar := [id] initval := [fst] inc := diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 8a8a75d7..10dea59c 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -367,6 +367,7 @@ (PROG (|suc| |ex| |pred| |final| |g2| |inc| |g1| |initval| |initvar|) (RETURN (PROGN + (COND ((EQ |id| 'DOT) (SETQ |id| (|bfGenSymbol|)))) (SETQ |initvar| (LIST |id|)) (SETQ |initval| (LIST |fst|)) (SETQ |inc| |