diff options
Diffstat (limited to 'src/interp/showimp.boot')
-rw-r--r-- | src/interp/showimp.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot index 000154f4..deb1f816 100644 --- a/src/interp/showimp.boot +++ b/src/interp/showimp.boot @@ -70,7 +70,7 @@ showImp(dom,:options) == missingOnlyFlag => 'done --first display those exported by the domain, then add chain guys - u := [:domexports,:constants,:SORTBY('CDDR,others)] + u := [:domexports,:constants,:reverse! sortBy(function CDDR,others)] while u repeat [.,.,:key] := first u sayBrightly @@ -78,14 +78,14 @@ showImp(dom,:options) == ["Constants implemented by",:bright form2String key,'":"] ["Functions implemented by",:bright form2String key,'":"] u := showDomainsOp1(u,key) - u := SORTBY('CDDR,defexports) + u := reverse! sortBy(function CDDR,defexports) while u repeat [.,.,:key] := first u defop := makeSymbol(subString((s := PNAME first key),0,maxIndex s)) domainForm := [defop,:CDDR key] sayBrightly ["Default functions from",:bright form2String domainForm,'":"] u := showDomainsOp1(u,key) - u := SORTBY('CDDR,unexports) + u := reverse! sortBy(function CDDR,unexports) while u repeat [.,.,:key] := first u sayBrightly ["Not exported: "] |