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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/ui/backend/cocoa/cocoa.factor
View File

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

3
core/bootstrap/syntax.factor
View File

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