diff options
Diffstat (limited to 'src/interp/br-op1.boot')
| -rw-r--r-- | src/interp/br-op1.boot | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 8df539d2..76aa6e69 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -365,7 +365,7 @@ dbGatherData(htPage,opAlist,which,key) == item is [.,'ASCONST,:.] => 'ASCONST nil newEntry := - u := ASSOC(entry,data) => --key seen before? look on DATA + u := assoc(entry,data) => --key seen before? look on DATA RPLACA(CDR u,CADR u or exposeFlag)--yes, expose if any 1 is exposed u data := [y := [entry,exposeFlag,:tail],:data] @@ -665,8 +665,8 @@ dbShowOpDocumentation(htPage,opAlist,which,data) == pred := predicate or true index := (exactlyOneOpSig => nil; base + j) if which = '"package operation" then - sig := SUBST(conform,'_$,sig) - origin := SUBST(conform,'_$,origin) + sig := substitute(conform,'_$,sig) + origin := substitute(conform,'_$,origin) displayDomainOp(htPage,newWhich,origin,op,sig,pred,doc,index,'dbChooseDomainOp,null exposeFlag,true) htSaySaturn '"\end{description}" @@ -862,7 +862,7 @@ dbExpandOpAlistIfNecessary(htPage,opAlist,which,needOrigins?,condition?) == -- must change any % into $ otherwise we will not pick up comments properly -- delete the SUBLISLIS when we fix on % or $ dbGetDocTable(op,SUBLISLIS(['$],['%],sig),dbDocTable origin,which,nil) - if packageSymbol then sig := SUBST('_$,packageSymbol,sig) + if packageSymbol then sig := substitute('_$,packageSymbol,sig) dbGetDocTable(op,sig,docTable,which,nil) origin := IFCAR u or origin docCode := IFCDR u --> (doc . code) @@ -957,9 +957,9 @@ getDomainOpTable(dom,fromIfTrue,:options) == f = 'nowhere => 'nowhere --see replaceGoGetSlot f = 'makeSpadConstant => 'constant f = function IDENTITY => 'constant - f = 'newGoGet => SUBST('_$,domname,devaluate CAR r) + f = 'newGoGet => substitute('_$,domname,devaluate CAR r) null VECP r => systemError devaluateList r - SUBST('_$,domname,devaluate r) + substitute('_$,domname,devaluate r) 'nowhere [sig1,:info] |