diff options
Diffstat (limited to 'src/interp/topics.boot')
| -rw-r--r-- | src/interp/topics.boot | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/interp/topics.boot b/src/interp/topics.boot index 18e06e35..32a7d7bf 100644 --- a/src/interp/topics.boot +++ b/src/interp/topics.boot @@ -29,9 +29,10 @@ -- NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS -- SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +)package "BOOT" $topicsDefaults := '( - (basic elt setelt qelt qsetelt eval xRange yRange zRange map map! qsetelt!) + (basic elt setelt qelt qsetelt eval xRange yRange zRange map map_! qsetelt_!) (conversion coerce convert retract) (hidden retractIfCan Zero One) (predicate _< _=) @@ -40,7 +41,7 @@ $topicsDefaults := '( (hyperbolic acosh acoth acsch asech asinh atanh cosh coth csch sech sinh tanh) (destructive setelt qsetelt) (extraction xRange yRange zRange elt qelt) - (transformation map map!)) + (transformation map map_!)) $topicSynonyms := '( (b . basic) @@ -138,7 +139,7 @@ skipBlanks(u,i,m) == -- Compute Topic Code for Operation --======================================================================= topicCode lst == - u := [y for x in lst] where y == + u := [y for x in lst] where y() == rename := LASSOC(x,$topicSynonyms) => rename x if null intersection('(basic extended hidden),u) then u := ['extended,:u] @@ -156,7 +157,7 @@ topicCode lst == --called to modify DOCUMENTATION property for each "con" addTopic2Documentation(con,docAlist) == alist := HGET($conTopicHash,con) or return docAlist - [y for x in docAlist] where y == + [y for x in docAlist] where y() == [op,:pairlist] := x code := LASSOC(op,alist) or 0 for sigDoc in pairlist repeat |