From 2e464d0c7c161931e8767b6019d93c92d7fd9586 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 17 Sep 2007 15:05:35 +0000 Subject: * i-spec1.boot.pamphlet (mkAndApplyZippedPredicates): Fix typo. (mkIterZippedFun): Use indexList, not the global $indexVars. --- src/interp/i-spec1.boot.pamphlet | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/interp/i-spec1.boot.pamphlet') diff --git a/src/interp/i-spec1.boot.pamphlet b/src/interp/i-spec1.boot.pamphlet index 3b4427cd..8175bc6a 100644 --- a/src/interp/i-spec1.boot.pamphlet +++ b/src/interp/i-spec1.boot.pamphlet @@ -945,21 +945,21 @@ mkAndApplyZippedPredicates (s,zipType,itrl) == -- for one index variable case for now. may generalize later for iter in itrl repeat iter is ['WHILE,pred] => - predVec := mkIterZippedFun($indexList,pred,zipType,$localVars) + predVec := mkIterZippedFun($indexVars,pred,zipType,$localVars) s := [mkAtreeNode 'swhile,predVec,s] iter is ['UNTIL,pred] => - predVec := mkIterZippedFun($indexList,pred,zipType,$localVars) + predVec := mkIterZippedFun($indexVars,pred,zipType,$localVars) s := [mkAtreeNode 'suntil,predVec,s] iter is ['SUCHTHAT,pred] => putTarget(pred,$Boolean) - predVec := mkIterZippedFun($indexList,pred,zipType,$localVars) + predVec := mkIterZippedFun($indexVars,pred,zipType,$localVars) s := [mkAtreeNode 'select,predVec,s] s mkIterZippedFun(indexList,funBody,zipType,$localVars) == -- transform funBody into a lamda with $index as the parameter - numVars:= #$indexVars - for [var,:.] in $indexVars repeat + numVars:= #indexList + for [var,:.] in indexList repeat funBody := subVecNodes(mkIterVarSub(var,numVars),var,funBody) put($index,'mode,zipType,$env) mkLocalVar($mapName,$index) -- cgit v1.2.3