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 | |
| parent | 4a4bc97750020f7c31ca8b29fdc4a104f7825367 (diff) | |
| download | open-axiom-e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb.tar.gz | |
* boot/ast.boot (bfSTEP): Synthetize artificial variable for
unnamed loop index.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/boot/ast.boot | 2 | ||||
| -rw-r--r-- | src/boot/strap/ast.clisp | 1 |
3 files changed, 8 insertions, 0 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index a6e5f0a6..2cdd0ced 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2011-08-03 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * boot/ast.boot (bfSTEP): Synthetize artificial variable for + unnamed loop index. + 2011-07-14 Gabriel Dos Reis <gdr@cs.tamu.edu> * boot/ast.boot (bfIS1): Tidy test for cons cells. 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| |