Merge remote branch 'origin/master'

db4
Doug Coleman 2010-04-25 14:59:39 -05:00
commit ac9b29ccf3
2 changed files with 4 additions and 2 deletions

View File

@ -6,7 +6,7 @@ parser.notes lexer strings.parser vocabs sequences sequences.deep
sequences.private words memory kernel.private continuations io
vocabs.loader system strings sets vectors quotations byte-arrays
sorting compiler.units definitions generic generic.standard
generic.single tools.deploy.config combinators classes
generic.single tools.deploy.config combinators classes vocabs.loader.private
classes.builtin slots.private grouping command-line io.pathnames ;
QUALIFIED: bootstrap.stage2
QUALIFIED: classes.private
@ -349,6 +349,8 @@ IN: tools.deploy.shaker
lexer-factory
print-use-hook
root-cache
require-when-vocabs
require-when-table
source-files.errors:error-types
source-files.errors:error-observers
vocabs:dictionary

View File

@ -332,7 +332,7 @@ M: x11-ui-backend beep ( -- )
[ dup CHAR: ' = [ drop "'\\''" ] [ 1string ] if ] { } map-as concat ;
: xmessage ( string -- )
escape-' "/usr/X11R6/bin/xmessage '" "'" surround system drop ;
escape-' "/usr/bin/env xmessage '" "'" surround system drop ;
PRIVATE>
M: x11-ui-backend system-alert