UI walker fixes

library/tools/describe.factor

@@ -93,7 +93,8 @@ DEFER: describe
     [
         hilite-index set dup hilite-quotation set
         1 nesting-limit set
-        .
+        pprint
+        terpri
     ] with-scope ;
 
 : callstack. ( seq -- seq )

library/tools/interpreter.factor

@@ -99,16 +99,6 @@ SYMBOL: callframe-end
 
 : host-word ( word -- ) unit host-quot ;
 
-: end-quot ( -- )
-    callframe-scan get callframe get (host-quot) [ ] (meta-call) ;
-
-: end ( -- )
-    save-callframe
-    meta-c [ V{ [ stop ] 0 1 } swap append ] change
-    meta-interp schedule-thread yield
-    V{ } clone meta-c set
-    [ ] (meta-call) ;
-
 GENERIC: do-1 ( object -- )
 
 M: word do-1 ( word -- )
@@ -144,4 +134,14 @@ M: object do ( object -- ) do-1 ;
 
 : step ( -- ) [ do-1 ] next ;
 
-: into ( -- ) [ do ] next ;
+: step-in ( -- ) [ do ] next ;
+
+: step-out ( -- )
+    callframe-scan get callframe get (host-quot) [ ] (meta-call) ;
+
+: step-all ( -- )
+    save-callframe
+    meta-c [ V{ [ stop ] 0 1 } swap append ] change
+    meta-interp schedule-thread yield
+    V{ } clone meta-c set
+    [ ] (meta-call) ;

library/ui/tools/walker.factor

@@ -46,9 +46,9 @@ TUPLE: walker-gadget track ds rs cs quot ;
 : <walker-toolbar> ( -- gadget )
     {
         { "Step" step }
-        { "Step in" into }
-        { "Step out" end-quot }
-        { "Step all" end }
+        { "Step in" step-in }
+        { "Step out" step-out }
+        { "Continue" step-all }
     } [
         [
             first2 [ walker-command ] curry <bevel-button> ,