diff options
Diffstat (limited to 'src/interp/br-data.boot')
| -rw-r--r-- | src/interp/br-data.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot index e704fc31..3aeb8249 100644 --- a/src/interp/br-data.boot +++ b/src/interp/br-data.boot @@ -508,7 +508,7 @@ getParentsFor(cname,formalParams,constructorCategory) == for x in folks constructorCategory repeat x := SUBLISLIS(formalParams,formals,x) x := SUBLISLIS(IFCDR constructorForm,formalParams,x) - x := SUBST('Type,'Object,x) + x := substitute('Type,'Object,x) acc := [:explodeIfs x,:acc] NREVERSE acc @@ -575,7 +575,7 @@ childrenOf conform == childAssoc(conform,parentsOfForm first pair)] childAssoc(form,alist) == - null (argl := CDR form) => ASSOC(form,alist) + null (argl := CDR form) => assoc(form,alist) u := assocCar(opOf form, alist) => childArgCheck(argl,rest CAR u) and u nil @@ -647,7 +647,7 @@ ancestorsAdd(pred,form) == --called by ancestorsRecur null pred => nil op := IFCAR form or form alist := HGET($if,op) - existingNode := ASSOC(form,alist) => + existingNode := assoc(form,alist) => RPLACD(existingNode,quickOr(CDR existingNode,pred)) HPUT($if,op,[[form,:pred],:alist]) |