diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-09 18:11:53 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-09 18:11:53 +0000 |
| commit | 9232685eacc1349c3930be22040f100935e8f6d9 (patch) | |
| tree | edb75a06ddd9a50f77a34d4aa6476c80e208fe84 /src | |
| parent | 050ebc37a782f65ea7d305d32d79f1427057787f (diff) | |
| download | open-axiom-9232685eacc1349c3930be22040f100935e8f6d9.tar.gz | |
* interp/g-opt.boot (optCollectVector): Generare %collect form,
not COLLECT.
Diffstat (limited to 'src')
| -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 := |