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/interp | |
| parent | c18910bfc61828f74e3d86c746f8d71685a52011 (diff) | |
| download | open-axiom-a3517dedf8b4791ce1b6378cb431802b647c7222.tar.gz | |
* interp/compiler.boot (compColon): Handle multiple declarations
properly.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/compiler.boot | 3 |
1 files changed, 2 insertions, 1 deletions
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 |