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

db4
John Benediktsson 2012-08-13 17:02:39 -07:00
parent 36a4a59efc
commit 93a2775248
1 changed files with 10 additions and 12 deletions

View File

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