steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Messages tool fix

slava 2006-09-24 05:08:34 +00:00
parent 03046508d8
commit 1614670834
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
library/ui/tools/messages.factor
View File

@ -16,14 +16,19 @@ M: messages batch-begins
M: messages compile-begins M: messages compile-begins
2drop ; 2drop ;
: messages-errors+
dup messages-errors# 1+ swap set-messages-errors# ;
: messages-warnings+
dup messages-warnings# 1+ swap set-messages-warnings# ;
M: messages compile-error M: messages compile-error
over inference-error-major? [ over inference-error?
dup messages-errors# 1+ over set-messages-errors# [ over inference-error-major? ]
messages-errors [ t ] if
] [ [ dup messages-errors+ messages-errors ]
dup messages-warnings# 1+ over set-messages-warnings# [ dup messages-warnings+ messages-warnings ] if
messages-warnings [ error. ] with-stream ;
] if [ error. ] with-stream ;
: <messages-button> ( -- gadget ) : <messages-button> ( -- gadget )
"Compiler messages" "Compiler messages"