diff options
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r-- | src/interp/br-saturn.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index 0b627a34..d2fb762c 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -1221,9 +1221,9 @@ displayDomainOp(htPage,which,origin,op,sig,predicate, ops := escapeSpecialChars STRINGIMAGE op n := #sig do - n = 2 and LASSOC('Nud,PROPLIST op) => + n = 2 and symbolLassoc('Nud,PROPLIST op) => htSay(ops,'" {\em ",quickForm2HtString KAR args,'"}") - n = 3 and LASSOC('Led,PROPLIST op) => + n = 3 and symbolLassoc('Led,PROPLIST op) => htSay('"{\em ",quickForm2HtString KAR args,'"} ",ops,'" {\em ",quickForm2HtString KAR KDR args,'"}") if unexposed? and $includeUnexposed? then htSayUnexposed() @@ -1328,7 +1328,7 @@ displayDomainOp(htPage,which,origin,op,sig,predicate, htSaySaturn '"{\em Where:}" htSayStandard('"\newline\tab{2}{\em Where:}") firstTime := true - if ASSOC("$",$whereList) then + if symbolAssoc("$",$whereList) then htSayIndentRel(15,true) htSaySaturnAmpersand() htSayStandard '"{\em \$} is " |