diff options
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r-- | src/interp/functor.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index a52b6347..a317a844 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -786,7 +786,7 @@ InvestigateConditions catvecListMaker == for [v,:.] in newS repeat for v' in [v,:first CatEval(v).4] repeat if (w:=assoc(v',$HackSlot4)) then - RPLAC(rest w,if rest w then mkOr(u,rest w) else u) + w.rest := if rest w then mkOr(u,rest w) else u (list:= update(list,u,secondaries,newS)) where update(list,cond,secondaries,newS) == (list2:= @@ -988,10 +988,10 @@ getAbbreviation(name,c) == N:= ASSQ(name,rest X) => C:= ASSQ(c,rest N) => rest C --already there newAbbreviation:= mkAbbrev(X,x) - RPLAC(rest N,[[c,:newAbbreviation],:rest N]) + N.rest := [[c,:newAbbreviation],:rest N] newAbbreviation newAbbreviation:= mkAbbrev(X,x) - RPLAC(rest X,[[name,[c,:newAbbreviation]],:rest X]) + X.rest := [[name,[c,:newAbbreviation]],:rest X] newAbbreviation $abbreviationTable:= [[x,[name,[c,:x]]],:$abbreviationTable] x |