ui.tools.operations: fix crash clicking on a model that hasn't been initialized properly.

diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor
index 198cf3eff0e7b5cd5e178fc88fdb1e0c90f836e9..f9f57ccee2d9e1f6abf7c315aeee16cb6944a9e6 100644 (file)
--- a/basis/ui/tools/operations/operations.factor
+++ b/basis/ui/tools/operations/operations.factor
@@ -1,16 +1,14 @@
 ! Copyright (C) 2006, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: continuations definitions generic help.topics threads
-stack-checker summary io.pathnames io.styles kernel namespaces
-parser prettyprint quotations tools.crossref tools.annotations
-editors tools.test tools.time tools.walker vocabs
-vocabs.loader words sequences classes compiler.errors
-compiler.units accessors vocabs.parser macros.expander ui
-ui.tools.browser ui.tools.listener ui.tools.listener.completion
-ui.tools.inspector ui.tools.traceback
-ui.commands ui.gadgets.editors ui.gestures ui.operations
-ui.tools.deploy models help.tips source-files.errors destructors
-libc libc.private ;
+USING: accessors combinators.short-circuit compiler.errors
+compiler.units continuations definitions destructors editors
+help.topics io.pathnames io.styles kernel libc.private
+macros.expander models parser prettyprint quotations
+source-files.errors stack-checker threads tools.annotations
+tools.crossref tools.test tools.time tools.walker ui.commands
+ui.gestures ui.operations ui.tools.browser ui.tools.deploy
+ui.tools.inspector ui.tools.listener ui.tools.traceback vocabs
+vocabs.loader vocabs.parser words ;
 IN: ui.tools.operations
 
 ! Objects
@@ -35,7 +33,7 @@ IN: ui.tools.operations
 [ drop t ] \ com-unparse H{ } define-operation
 
 ! Models
-[ model? ] \ inspect-model H{
+[ { [ model? ] [ ref>> ] } 1&& ] \ inspect-model H{
     { +primary+ t }
 } define-operation