diff options
author | dos-reis <gdr@axiomatics.org> | 2010-02-14 15:33:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-02-14 15:33:14 +0000 |
commit | dbe91668915a487380cfbde6e0036264b5d766d6 (patch) | |
tree | 948be346855f226a6ccbe479c7494c1c57d690ed /src/interp/wi2.boot | |
parent | 28d261c72d6347990c751e43e4fc5604716f301c (diff) | |
download | open-axiom-dbe91668915a487380cfbde6e0036264b5d766d6.tar.gz |
Fix SF/2910351
* interp/nruncomp.boot (deltaTran): Avoid use of user-visible
names for compiler internal tags.
(genDeltaEntry): Likewise.
(NRTassocIndex): Likewise.
(NRTgetLocalIndex): Likewise.
(NRTsubstDelta): Likewise.
* interp/wi2.boot (genDeltaEntry): Likewise.
Diffstat (limited to 'src/interp/wi2.boot')
-rw-r--r-- | src/interp/wi2.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/wi2.boot b/src/interp/wi2.boot index e3871acb..b4e4c7f5 100644 --- a/src/interp/wi2.boot +++ b/src/interp/wi2.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2009, Gabriel Dos Reis. +-- Copyright (C) 2007-2010, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -717,8 +717,8 @@ genDeltaEntry opMmPair == [op,[dc,:[genDeltaSig x for x in sig]],['T,cform]] -- force pred to T if null NRTassocIndex dc and (member(dc,$functorLocalParameters) or null atom dc) then - --create "domain" entry to $NRTdeltaList - $NRTdeltaList:= [['domain,NRTaddInner dc,:dc],:$NRTdeltaList] + --create "%domain" entry to $NRTdeltaList + $NRTdeltaList:= [["%domain",NRTaddInner dc,:dc],:$NRTdeltaList] saveNRTdeltaListComp:= $NRTdeltaListComp:=[nil,:$NRTdeltaListComp] $NRTdeltaLength := $NRTdeltaLength+1 compEntry:= |