diff options
Diffstat (limited to 'src/interp/compiler.boot')
| -rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index 1b5fbe75..0254f3db 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -953,7 +953,7 @@ setqSingle(id,val,m,E) == --e.g. the %LET form below will be changed by putInLocalDomainReferences form := db := constructorDB currentConstructor e' - k := NRTassocIndex(db,id) => ['%store,['%tref,'$,k],x] + k := assocIndex(db,id) => ['%store,['%tref,'$,k],x] ["%LET",id,x] [form,m',e'] @@ -2410,7 +2410,7 @@ numberize x == ++ If there is a local reference to mode `m', return it. localReferenceIfThere(m,e) == m is "$" => m - idx := NRTassocIndex(constructorDB currentConstructor e,m) => ['%tref,'$,idx] + idx := assocIndex(constructorDB currentConstructor e,m) => ['%tref,'$,idx] quote m massageLoop x == main x where |