diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-17 17:35:52 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-17 17:35:52 +0000 |
commit | a3517dedf8b4791ce1b6378cb431802b647c7222 (patch) | |
tree | 5f27a6c5c5b68c7fd8ea46373cd4866b9b98e495 /src | |
parent | c18910bfc61828f74e3d86c746f8d71685a52011 (diff) | |
download | open-axiom-a3517dedf8b4791ce1b6378cb431802b647c7222.tar.gz |
* interp/compiler.boot (compColon): Handle multiple declarations
properly.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 5 | ||||
-rw-r--r-- | src/interp/compiler.boot | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index d5248517..de3d39a2 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2011-12-17 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/compiler.boot (compColon): Handle multiple declarations + properly. + +2011-12-17 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/compiler.boot (finishVectorCollect): Rename from optCollectVector. Move here. (compRepeatOrCollect): Use it. diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 64715539..a76987d9 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -1698,7 +1698,8 @@ compColon([":",f,t],m,e) == unknownTypeError t t f is ["LISTOF",:l] => - (for x in l repeat T:= [.,.,e]:= compColon([":",x,t],m,e); T) + z := [T.expr for x in l while ([.,.,e] := T := compColon([":",x,t],m,e))] + [['%seq,:z],t,e] e:= f is [op,:argl] => --for MPOLY--replace parameters by formal arguments: RDJ 3/83 |