bootstrap.syntax: Fix bootstrap.

modern-harvey2
Doug Coleman 2018-02-18 11:34:48 -06:00
parent a2e8fb9050
commit c53892a128
2 changed files with 11 additions and 10 deletions

View File

@ -215,16 +215,14 @@ cocoa-startup-hook [
M: cocoa-ui-backend (with-ui)
"UI" assert.app [
[
init-clipboard
cocoa-startup-hook get call( -- )
start-ui
stop-io-thread
init-thread-timer
reset-thread-timer
NSApp send: run
NSApp send: run
] with-ui-running
init-clipboard
cocoa-startup-hook get call( -- )
start-ui
stop-io-thread
init-thread-timer
reset-thread-timer
NSApp send: run
NSApp send: run
] with-cocoa ;
cocoa-ui-backend ui-backend set-global

View File

@ -140,6 +140,9 @@ IN: bootstrap.syntax
"'let["
"FUNCTOR:"
"VARIABLES-FUNCTOR:"
"INITIALIZED-SYMBOL:"
"STARTUP-HOOK:"
"SHUTDOWN-HOOK:"
} [ "syntax" create-word drop ] each
"t" "syntax" lookup-word define-symbol