From 9232685eacc1349c3930be22040f100935e8f6d9 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 9 Jun 2010 18:11:53 +0000 Subject: * interp/g-opt.boot (optCollectVector): Generare %collect form, not COLLECT. --- src/ChangeLog | 7 ++++++- src/interp/g-opt.boot | 2 +- 2 files changed, 7 insertions(+), 2 deletions(-) (limited to 'src') 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 +2010-06-09 Gabriel Dos Reis + + * interp/g-opt.boot (optCollectVector): Generare %collect form, + not COLLECT. + +2010-06-09 Gabriel Dos Reis * 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 := -- cgit v1.2.3