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

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

@ -215,7 +215,6 @@ 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
@ -224,7 +223,6 @@ M: cocoa-ui-backend (with-ui)
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