bootstrap.syntax: Fix bootstrap.
parent
a2e8fb9050
commit
c53892a128
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue