diff --git a/basis/editors/editors.factor b/basis/editors/editors.factor index d7075bae44..df854ab105 100644 --- a/basis/editors/editors.factor +++ b/basis/editors/editors.factor @@ -19,6 +19,11 @@ SYMBOL: editor-class [ [ "Load " prepend ] keep ] { } map>assoc ; HOOK: editor-command editor-class ( file line -- command ) + +M: f editor-command + "Select an editor" editor-restarts throw-restarts require + editor-command ; + HOOK: editor-detached? editor-class ( -- ? ) M: object editor-detached? t ;