diff options
| -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 |