diff options
| -rw-r--r-- | src/ChangeLog | 7 | ||||
| -rw-r--r-- | src/interp/g-opt.boot | 2 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 2f1f304e..542be41b 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,4 +1,9 @@ -2010-06-09 Gabriel Dos Reis <gdr@cse.tamu.edu> +2010-06-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/g-opt.boot (optCollectVector): Generare %collect form, + not COLLECT. + +2010-06-09 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/compiler.boot (canReturn): Handle %when and %bind. (compMatchAlternative): Generate %bind form. diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index dae16cde..af9fb966 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -591,7 +591,7 @@ optCollectVector form == systemErrorHere ["optCollectVector", iter] -- if we draw from a list, then just build a list and convert to vector. fromList => - ["homogeneousListToVector",["getVMType",eltType], ["COLLECT",:iters,body]] + ["homogeneousListToVector",["getVMType",eltType], ['%collect,:iters,body]] vecSize = nil => systemErrorHere ["optCollectVector",form] -- get the actual size of the vector. vecSize := |