ui.tools.browser: one browser to rule them all.

basis/ui/tools/browser/browser.factor

@@ -98,12 +98,6 @@ M: browser-gadget focusable-child* search-field>> ;
 : browser-window ( -- )
     "help.home" (browser-window) ;
 
-: error-help-window ( error -- )
-    {
-        [ error-help ]
-        [ dup tuple? [ class-of ] [ drop "errors" ] if ]
-    } 1|| (browser-window) ;
-
 \ browser-window H{ { +nullary+ t } } define-command
 
 : com-browse ( link -- )
@@ -111,6 +105,12 @@ M: browser-gadget focusable-child* search-field>> ;
     [ [ raise-window ] [ gadget-child show-help ] bi ]
     [ (browser-window) ] if* ;
 
+: help-error ( error -- )
+    {
+        [ error-help ]
+        [ dup tuple? [ class-of ] [ drop "errors" ] if ]
+    } 1|| com-browse ;
+
 : show-browser ( -- )
     [ browser-gadget? ] find-window
     [ [ raise-window ] [ request-focus ] bi ] [ browser-window ] if* ;

basis/ui/tools/debugger/debugger.factor

@@ -81,7 +81,7 @@ debugger "gestures" f {
 
 : com-traceback ( debugger -- ) continuation>> traceback-window ;
 
-: com-help ( debugger -- ) error>> error-help-window ;
+: com-help ( debugger -- ) error>> help-error ;
 
 : com-edit ( debugger -- ) error>> edit-error ;
 

basis/ui/tools/error-list/error-list.factor

@@ -136,7 +136,7 @@ TUPLE: error-display < track ;
     control-value [ inspector ] when* ;
 
 : com-help ( error-display -- )
-    control-value [ error>> error-help-window ] when* ;
+    control-value [ error>> help-error ] when* ;
 
 : com-edit ( error-display -- )
     control-value [ edit-error ] when* ;