Differences From Artifact [20afad44cb2390ff]:

File autopsy.rx part of check-in [4788ae3ab1] - autopsy: "nav" now replaced by "explore"; use "when" for conditional blocks; parse for name/address in "explore" by charleschilders on 2011-04-02 21:03:20. [annotate] [view]

To Artifact [254a8f6ffa7cb537]:

File autopsy.rx part of check-in [7326d0b4e8] - autopsy: add ":see" for non-parsing usage of decompiler by charleschilders on 2011-04-02 21:04:16. [annotate] [view]

@@ -124,12 +124,13 @@
     [ clear @x rows &decompile times drop handle @more? ] while ;
   : getAddress ( "- )
     getToken dup find [ nip @d->xt ] [ drop toNumber ] if ;
 ---reveal---
-  : see     ( "- )
-    getAddress cr @vertical
+  : :see    ( a- )
+    cr @vertical
     [ [ decompile dup 1- ^dissect'endOfWord? not ] while drop ] &.thread if ;
+  : see     ( "- ) getAddress :see ;
   : explore ( "- ) getAddress !x more? on browse ;
 }}
 ;chain
 
 global with autopsy'