diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-21 17:45:38 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-21 17:45:38 +0000 |
| commit | ccfc014767d89490db78605b6d7dfc26732b306f (patch) | |
| tree | 0a6297baac3ac224a699f75977f0656555e188ed /src/interp/define.boot | |
| parent | ef6b327bbe17984f85225b6654d0654e355453bc (diff) | |
| download | open-axiom-ccfc014767d89490db78605b6d7dfc26732b306f.tar.gz | |
* interp/nruncomp.boot (getLocalIndex): Rename from NRTgetLocalIndex.
Adjust callers.
* interp/compiler.boot: Adjust.
* interp/define.boot: Likewise.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 719f81e8..df1f1dd4 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1417,8 +1417,8 @@ compDefineFunctor1(df is ['DEF,form,signature,body], $functionLocations: local := nil --locations of defined functions in source -- Generate slots for arguments first, then implicit parameters, -- then for $NRTaddForm (if any) in compAdd - for x in argl repeat NRTgetLocalIndex x - for x in dbImplicitParameters db repeat NRTgetLocalIndex x + for x in argl repeat getLocalIndex x + for x in dbImplicitParameters db repeat getLocalIndex x [.,.,$e] := compMakeDeclaration("$",target,$e) if not $insideCategoryPackageIfTrue then $e := augModemapsFromCategory('_$,'_$,target,$e) @@ -2111,7 +2111,7 @@ compAdd(['add,$addForm,capsule],m,e) == $addFormLhs: local:= $addForm if $addForm is ["SubDomain",domainForm,predicate] then $NRTaddForm := domainForm - NRTgetLocalIndex domainForm + getLocalIndex domainForm registerInlinableDomain(domainForm,e) --need to generate slot for add form since all $ go-get -- slots will need to access it @@ -2120,7 +2120,7 @@ compAdd(['add,$addForm,capsule],m,e) == $NRTaddForm := $addForm [$addForm,.,e]:= $addForm is ["%Comma",:.] => - $NRTaddForm := ["%Comma",:[NRTgetLocalIndex x for x in $addForm.args]] + $NRTaddForm := ["%Comma",:[getLocalIndex x for x in $addForm.args]] for x in $addForm.args repeat registerInlinableDomain(x,e) compOrCroak(compTuple2Record $addForm,$EmptyMode,e) registerInlinableDomain($addForm,e) @@ -2231,7 +2231,7 @@ doIt(item,$predl) == code is ["%LET",:.] => item.op := '%store rhsCode := rhs' - item.args := [['%tref,'$,NRTgetLocalIndex lhs],rhsCode] + item.args := [['%tref,'$,getLocalIndex lhs],rhsCode] item.op := code.op item.rest := rest code item is [":",a,t] => [.,.,$e]:= compOrCroak(item,$EmptyMode,$e) |