factor: SYMBOL: foo foo [ bar ] initialize -> INITIALIZED-SYMBOL: foo [ bar ]

basis/cocoa/cocoa.factor

@@ -4,9 +4,7 @@ USING: assocs cocoa.messages compiler.units core-foundation.bundles
 hashtables init io kernel lexer namespaces sequences vocabs ;
 IN: cocoa
 
-SYMBOL: sent-messages
+INITIALIZED-SYMBOL: sent-messages [ H{ } clone ]
-
-sent-messages [ H{ } clone ] initialize
 
 : remember-send ( selector -- )
     dup sent-messages get set-at ;
@@ -25,9 +23,7 @@ SYNTAX: \selector:
     [ remember-send ]
     [ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ;
 
-SYMBOL: super-sent-messages
+INITIALIZED-SYMBOL: super-sent-messages [ H{ } clone ]
-
-super-sent-messages [ H{ } clone ] initialize
 
 : remember-super-send ( selector -- )
     dup super-sent-messages get set-at ;
@@ -35,9 +31,8 @@ super-sent-messages [ H{ } clone ] initialize
 SYNTAX: \super:
     scan-token unescape-token dup remember-super-send
     [ lookup-method suffix! ] [ suffix! ] bi \ super-send suffix! ;
-SYMBOL: frameworks
 
-frameworks [ V{ } clone ] initialize
+INITIALIZED-SYMBOL: frameworks [ V{ } clone ]
 
 [ frameworks get [ load-framework ] each ] "cocoa" add-startup-hook
 

basis/cocoa/messages/messages.factor

@@ -24,11 +24,8 @@ SPECIALIZED-ARRAY: void*
     over first large-struct? [ "_stret" append ] when
     make-sender dup infer define-declared ;
 
-SYMBOL: message-senders
+INITIALIZED-SYMBOL: message-senders [ H{ } clone ]
-SYMBOL: super-message-senders
+INITIALIZED-SYMBOL: super-message-senders [ H{ } clone ]
-
-message-senders [ H{ } clone ] initialize
-super-message-senders [ H{ } clone ] initialize
 
 :: cache-stub ( signature function assoc -- )
     signature assoc [ function sender-stub ] cache drop ;

basis/compiler/crossref/crossref.factor

@@ -4,13 +4,9 @@ USING: assocs combinators compiler.units fry grouping kernel
 namespaces sequences sets stack-checker.dependencies words ;
 IN: compiler.crossref
 
-SYMBOL: compiled-crossref
+INITIALIZED-SYMBOL: compiled-crossref [ H{ } clone ]
 
-compiled-crossref [ H{ } clone ] initialize
+INITIALIZED-SYMBOL: generic-call-site-crossref [ H{ } clone ]
-
-SYMBOL: generic-call-site-crossref
-
-generic-call-site-crossref [ H{ } clone ] initialize
 
 : all-dependencies-of ( word -- assoc )
     compiled-crossref get at ;

basis/compiler/utilities/utilities.factor

@@ -25,9 +25,7 @@ IN: compiler.utilities
 : pad-tail-shorter ( seq1 seq2 elt -- seq1' seq2' )
     2over longer length swap [ pad-tail ] 2curry bi@ ;
 
-SYMBOL: yield-hook
+INITIALIZED-SYMBOL: yield-hook [ [ ] ]
-
-yield-hook [ [ ] ] initialize
 
 : alist-most ( alist quot -- pair )
     [ [ ] ] dip '[ [ [ second ] bi@ @ ] most ] map-reduce ; inline

basis/cpu/x86/assembler/syntax/syntax.factor

@@ -4,9 +4,7 @@ USING: kernel words words.symbol sequences lexer parser fry
 namespaces combinators assocs math ;
 IN: cpu.x86.assembler.syntax
 
-SYMBOL: registers
+INITIALIZED-SYMBOL: registers [ H{ } clone ]
-
-registers [ H{ } clone ] initialize
 
 : define-register ( name num size -- word )
     [ create-word-in ] 2dip {

basis/definitions/icons/icons.factor

@@ -12,9 +12,7 @@ GENERIC: definition-icon ( definition -- path )
 
 <<
 
-SYMBOL: icons
+INITIALIZED-SYMBOL: icons [ H{ } clone ]
-
-icons [ H{ } clone ] initialize
 
 : define-icon ( class name -- )
     [ swap icons get set-at ]

basis/endian/endian.factor

@@ -9,11 +9,9 @@ SINGLETONS: big-endian little-endian ;
 : compute-native-endianness ( -- class )
     1 int <ref> char deref 0 = big-endian little-endian ? ; foldable
 
-SYMBOL: native-endianness
+INITIALIZED-SYMBOL: native-endianness [ compute-native-endianness ]
-native-endianness [ compute-native-endianness ] initialize
 
-SYMBOL: endianness
+INITIALIZED-SYMBOL: endianness [ native-endianness get-global ]
-endianness [ native-endianness get-global ] initialize
 
 HOOK: >native-endian native-endianness ( obj n -- bytes )
 

basis/game/input/input.factor

@@ -2,9 +2,9 @@ USING: arrays accessors continuations kernel math system
 sequences namespaces init vocabs combinators ;
 IN: game.input
 
-SYMBOLS: game-input-backend game-input-opened ;
+SYMBOL: game-input-backend
 
-game-input-opened [ 0 ] initialize
+INITIALIZED-SYMBOL: game-input-opened [ 0 ]
 
 HOOK: (open-game-input)  game-input-backend ( -- )
 HOOK: (close-game-input) game-input-backend ( -- )

basis/gobject-introspection/common/common.factor

@@ -5,8 +5,7 @@ IN: gobject-introspection.common
 
 SYMBOL: current-namespace-name
 
-SYMBOL: implement-structs
+INITIALIZED-SYMBOL: implement-structs [ V{ } ]
-implement-structs [ V{ } ] initialize
 
 : implement-struct? ( c-type -- ? )
     implement-structs get-global member? ;

basis/gobject-introspection/types/types.factor

@@ -5,11 +5,9 @@ gobject-introspection.common gobject-introspection.repository kernel
 locals namespaces parser sequences sets ;
 IN: gobject-introspection.types
 
-SYMBOL: type-infos
+INITIALIZED-SYMBOL: type-infos [ H{ } ]
-type-infos [ H{ } ] initialize
 
-SYMBOL: standard-types
+INITIALIZED-SYMBOL: standard-types [ V{ } ]
-standard-types [ V{ } ] initialize
 
 TUPLE: type-info c-type ;
 

basis/help/help.factor

@@ -142,9 +142,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
     [ $title ($blank-line) ]
     [ article-content print-content nl ] bi ;
 
-SYMBOL: help-hook
+INITIALIZED-SYMBOL: help-hook [ [ print-topic ] ]
-
-help-hook [ [ print-topic ] ] initialize
 
 : help ( topic -- )
     help-hook get call( topic -- ) ;

basis/help/lint/lint.factor

@@ -6,9 +6,7 @@ namespaces parser sequences source-files.errors system
 tools.errors vocabs vocabs.hierarchy ;
 IN: help.lint
 
-SYMBOL: lint-failures
+INITIALIZED-SYMBOL: lint-failures [ H{ } clone ]
-
-lint-failures [ H{ } clone ] initialize
 
 TUPLE: help-lint-error < source-file-error ;
 

basis/help/tips/tips.factor

@@ -5,9 +5,7 @@ help.stylesheet io io.styles kernel literals namespaces parser
 random sequences ui.theme ;
 IN: help.tips
 
-SYMBOL: tips
+INITIALIZED-SYMBOL: tips [ V{ } clone ]
-
-tips [ V{ } clone ] initialize
 
 TUPLE: tip < identity-tuple content loc ;
 

basis/help/topics/topics.factor

@@ -30,13 +30,9 @@ M: link summary
     ] "" make ;
 
 ! Help articles
-SYMBOL: articles
+INITIALIZED-SYMBOL: articles [ H{ } clone ]
 
-articles [ H{ } clone ] initialize
+INITIALIZED-SYMBOL: article-xref [ H{ } clone ]
-
-SYMBOL: article-xref
-
-article-xref [ H{ } clone ] initialize
 
 GENERIC: valid-article? ( topic -- ? )
 GENERIC: article-title ( topic -- string )

basis/html/templates/chloe/syntax/syntax.factor

@@ -7,9 +7,7 @@ multiline xml xml.data xml.writer xml.syntax html.components
 html.templates ;
 IN: html.templates.chloe.syntax
 
-SYMBOL: tags
+INITIALIZED-SYMBOL: tags [ H{ } clone ]
-
-tags [ H{ } clone ] initialize
 
 : define-chloe-tag ( name quot -- ) swap tags get set-at ;
 

basis/http/server/requests/requests.factor

@@ -30,9 +30,7 @@ ERROR: bad-request-line < request-error parse-error ;
 : read-request-header ( request -- request )
     read-header >>header ;
 
-SYMBOL: upload-limit
+INITIALIZED-SYMBOL: upload-limit [ 200,000,000 ]
-
-upload-limit [ 200,000,000 ] initialize
 
 : parse-multipart-form-data ( string -- separator )
     ";" split1 nip

basis/http/server/server.factor

@@ -197,9 +197,7 @@ LOG: httpd-benchmark DEBUG
 
 TUPLE: http-server < threaded-server ;
 
-SYMBOL: request-limit
+INITIALIZED-SYMBOL: request-limit [ 64 1024 * ]
-
-request-limit [ 64 1024 * ] initialize
 
 LOG: httpd-bad-request NOTICE
 

basis/images/loader/loader.factor

@@ -9,8 +9,7 @@ ERROR: unknown-image-extension extension ;
 
 <PRIVATE
 
-SYMBOL: types
+INITIALIZED-SYMBOL: types [ H{ } clone ]
-types [ H{ } clone ] initialize
 
 : (image-class) ( type -- class )
     >lower types get ?at [ unknown-image-extension ] unless ;

basis/io/backend/unix/unix.factor

@@ -185,9 +185,7 @@ M: stdin cancel-operation
         size-read-fd <fd> init-fd <input-port> >>size
         data-read-fd <fd> >>data ;
 
-SYMBOL: dispatch-signal-hook
+INITIALIZED-SYMBOL: dispatch-signal-hook [ [ drop ] ]
-
-dispatch-signal-hook [ [ drop ] ] initialize
 
 : signal-pipe-fd ( -- n )
     OBJ-SIGNAL-PIPE special-object ; inline

basis/io/directories/search/search.factor

@@ -6,11 +6,10 @@ kernel kernel.private locals math namespaces sequences sorting
 strings system unicode vocabs ;
 IN: io.directories.search
 
-SYMBOL: traversal-method
 
 SYMBOLS: +depth-first+ +breadth-first+ ;
 
-traversal-method [ +depth-first+ ] initialize
+INITIALIZED-SYMBOL: traversal-method [ +depth-first+ ]
 
 <PRIVATE
 

basis/io/servers/servers.factor

@@ -24,8 +24,7 @@ handler
 server-stopped
 secure-context ;
 
-SYMBOL: running-servers
+INITIALIZED-SYMBOL: running-servers [ HS{ } clone ]
-running-servers [ HS{ } clone ] initialize
 
 ERROR: server-not-running threaded-server ;
 

basis/logging/logging.factor

@@ -10,9 +10,7 @@ IN: logging
 
 SYMBOLS: DEBUG NOTICE WARNING ERROR CRITICAL ;
 
-SYMBOL: log-level
+INITIALIZED-SYMBOL: log-level [ DEBUG ]
-
-log-level [ DEBUG ] initialize
 
 : log-levels ( -- assoc )
     H{

basis/tools/annotations/annotations.factor

@@ -111,9 +111,7 @@ PRIVATE>
 : watch-vars ( word vars -- )
     dupd '[ [ _ _ ] dip (watch-vars) ] annotate ;
 
-SYMBOL: word-timing
+INITIALIZED-SYMBOL: word-timing [ H{ } clone ]
-
-word-timing [ H{ } clone ] initialize
 
 : reset-word-timing ( -- )
     word-timing get clear-assoc ;

basis/tools/deprecation/deprecation.factor

@@ -8,9 +8,7 @@ words ;
 IN: tools.deprecation
 
 SYMBOL: +deprecation-note+
-SYMBOL: deprecation-notes
+INITIALIZED-SYMBOL: deprecation-notes [ H{ } clone ]
-
-deprecation-notes [ H{ } clone ] initialize
 
 TUPLE: deprecation-note < source-file-error ;
 

basis/tools/profiler/sampling/sampling.factor

@@ -12,9 +12,7 @@ PRIMITIVE: (get-samples) ( -- samples/f )
 PRIMITIVE: profiling ( n -- )
 PRIVATE>
 
-SYMBOL: samples-per-second
+INITIALIZED-SYMBOL: samples-per-second [ 1,000 ]
-
-samples-per-second [ 1,000 ] initialize
 
 <PRIVATE
 SYMBOL: raw-profile-data

basis/tools/test/fuzz/fuzz.factor

@@ -5,8 +5,7 @@ summary tools.test tools.test.private ;
 IN: tools.test.fuzz
 
 ! Fuzz testing parameters
-SYMBOL: fuzz-test-trials
+INITIALIZED-SYMBOL: fuzz-test-trials [ 100 ]
-fuzz-test-trials [ 100 ] initialize
 
 : fuzz-test-failures* ( trials generator: ( -- ..a ) predicate: ( ..a -- ? ) -- failures )
     '[

basis/tools/test/test.factor

@@ -18,9 +18,7 @@ SYMBOL: +test-failure+
 
 M: test-failure error-type drop +test-failure+ ;
 
-SYMBOL: test-failures
+INITIALIZED-SYMBOL: test-failures [ V{ } clone ]
-
-test-failures [ V{ } clone ] initialize
 
 T{ error-type-holder
    { type +test-failure+ }
@@ -44,8 +42,7 @@ t restartable-tests? set-global
         swap >>error
         error-continuation get >>continuation ;
 
-SYMBOL: long-unit-tests-enabled?
+INITIALIZED-SYMBOL: long-unit-tests-enabled? [ t ]
-long-unit-tests-enabled? [ t ] initialize
 
 <PRIVATE
 

basis/ui/backend/cocoa/cocoa.factor

@@ -207,11 +207,9 @@ M: cocoa-ui-backend system-alert
 : install-app-delegate ( -- )
     NSApp FactorApplicationDelegate install-delegate ;
 
-SYMBOL: cocoa-startup-hook
+INITIALIZED-SYMBOL: cocoa-startup-hook [
-
-cocoa-startup-hook [
     [ "MiniFactor.nib" load-nib install-app-delegate ]
-] initialize
+]
 
 M: cocoa-ui-backend (with-ui)
     "UI" assert.app [

basis/ui/backend/gtk/gtk.factor

@@ -179,9 +179,7 @@ CONSTANT: default-icon-path "resource:misc/icons/Factor_128x128.png"
         default-icon-path binary file-contents
     ] [ drop f ] recover ;
 
-SYMBOL: icon-data
+INITIALIZED-SYMBOL: icon-data [ default-icon-data ]
-
-icon-data [ default-icon-data ] initialize
 
 : vocab-icon-data ( vocab-name -- byte-array )
     dup vocab-dir { "icon.png" "icon.ico" } [

basis/ui/backend/windows/windows.factor

@@ -502,17 +502,7 @@ SYMBOL: nc-buttons
 : handle-wm-dwmcompositionchanged ( hWnd uMsg wParam lParam -- )
     3drop [ window ] keep ?make-glass ;
 
-SYMBOL: wm-handlers
+INITIALIZED-SYMBOL: wm-handlers [
-
-: add-wm-handler ( quot: ( hWnd Msg wParam lParam -- LRESULT ) wm -- )
-    dup array?
-    [ [ execute( -- wm ) add-wm-handler ] with each ]
-    [ wm-handlers get-global set-at ] if ;
-
-: remove-wm-handler ( wm -- )
-    wm-handlers get-global delete-at ;
-
-wm-handlers [
     H{
         ${ WM_CLOSE [ handle-wm-close 0 ] }
         ${ WM_PAINT [ 4dup handle-wm-paint DefWindowProc ] }
@@ -548,7 +538,15 @@ wm-handlers [
         ${ WM_CANCELMODE [ handle-wm-cancelmode 0 ] }
         ${ WM_MOUSELEAVE [ handle-wm-mouseleave 0 ] }
     } expand-keys-set-at
-] initialize
+]
+
+: add-wm-handler ( quot: ( hWnd Msg wParam lParam -- LRESULT ) wm -- )
+    dup array?
+    [ [ execute( -- wm ) add-wm-handler ] with each ]
+    [ wm-handlers get-global set-at ] if ;
+
+: remove-wm-handler ( wm -- )
+    wm-handlers get-global delete-at ;
 
 SYMBOL: trace-messages?
 

basis/ui/gadgets/worlds/worlds.factor

@@ -165,9 +165,7 @@ M: world remove-gadget
     2dup layers>> member-eq?
     [ layers>> remove-eq! drop ] [ call-next-method ] if ;
 
-SYMBOL: flush-layout-cache-hook
+INITIALIZED-SYMBOL: flush-layout-cache-hook [ [ ] ]
-
-flush-layout-cache-hook [ [ ] ] initialize
 
 GENERIC: begin-world ( world -- )
 GENERIC: end-world ( world -- )
@@ -206,12 +204,11 @@ TUPLE: world-error error world ;
 
 C: <world-error> world-error
 
-SYMBOL: ui-error-hook ! ( error -- )
+INITIALIZED-SYMBOL: ui-error-hook [ [ rethrow ] ] ! ( error -- )
 
 : ui-error ( error -- )
     ui-error-hook get [ call( error -- ) ] [ die drop ] if* ;
 
-ui-error-hook [ [ rethrow ] ] initialize
 
 : draw-world ( world -- )
     dup draw-world? [

basis/ui/operations/operations.factor

@@ -30,9 +30,7 @@ M: operation command-word command>> command-word ;
 : operation-gesture ( operation -- gesture )
     command>> +keyboard+ word-prop ;
 
-SYMBOL: operations
+INITIALIZED-SYMBOL: operations [ <linked-hash> ]
-
-operations [ <linked-hash> ] initialize
 
 : object-operations ( obj -- operations )
     operations get values

basis/ui/theme/theme.factor

@@ -3,7 +3,11 @@
 USING: colors colors.constants colors.hex namespaces ;
 IN: ui.theme
 
-SYMBOL: theme
+SINGLETON: light-theme
+
+SINGLETON: dark-theme
+
+INITIALIZED-SYMBOL: theme [ light-theme ]
 
 HOOK: toolbar-background theme ( -- color )
 HOOK: toolbar-button-pressed-background theme ( -- color )
@@ -91,9 +95,6 @@ HOOK: labeled-border-color theme ( -- color )
 
 HOOK: table-border-color theme ( -- color )
 
-SINGLETON: light-theme
-theme [ light-theme ] initialize
-
 M: light-theme toolbar-background color: grey95 ;
 M: light-theme toolbar-button-pressed-background color: dark-gray ;
 
@@ -180,8 +181,6 @@ M: light-theme labeled-border-color color: grey85 ;
 
 M: light-theme table-border-color color: FactorTan ;
 
-SINGLETON: dark-theme
-
 M: dark-theme toolbar-background color: solarized-base02 ;
 M: dark-theme toolbar-button-pressed-background color: solarized-base0 ;
 

basis/unix/signals/signals.factor

@@ -6,9 +6,7 @@ IN: unix.signals
 
 <PRIVATE
 
-SYMBOL: signal-handlers
+INITIALIZED-SYMBOL: signal-handlers [ H{ } ]
-
-signal-handlers [ H{ } ] initialize
 
 : dispatch-signal ( sig -- )
     signal-handlers get-global at [ in-thread ] each ;

core/alien/libraries/libraries.factor

@@ -18,9 +18,7 @@ PRIMITIVE: (dlsym-raw) ( name dll -- alien )
 
 HOOK: dlerror os ( -- message/f )
 
-SYMBOL: libraries
+INITIALIZED-SYMBOL: libraries [ H{ } clone ]
-
-libraries [ H{ } clone ] initialize
 
 TUPLE: library { path string } dll dlerror { abi abi initial: cdecl } ;
 
@@ -90,9 +88,7 @@ M: library dispose dll>> [ dispose ] when* ;
     2dup library-dll dlsym-raw
     [ 2nip ] [ no-such-symbol ] if* ;
 
-SYMBOL: deploy-libraries
+INITIALIZED-SYMBOL: deploy-libraries [ V{ } clone ]
-
-deploy-libraries [ V{ } clone ] initialize
 
 : deploy-library ( name -- )
     dup libraries get key?

core/bootstrap/syntax.factor

@@ -13,14 +13,11 @@ IN: bootstrap.syntax
         ":"
         ";"
         "<PRIVATE"
-        "<WINDOWS"
+        "<UNIX" "UNIX>"
-        "<UNIX"
+        "<LINUX" "LINUX>"
-        "<LINUX"
+        "<MACOS" "MACOS>"
-        "<MACOS"
+        "<WINDOWS" "WINDOWS>"
-        "WINDOWS>"
+        "<FACTOR" "FACTOR>"
-        "UNIX>"
-        "LINUX>"
-        "MACOS>"
         "B{"
         "BV{"
         "C:"
@@ -49,6 +46,7 @@ IN: bootstrap.syntax
         "SINGLETON:"
         "SINGLETONS:"
         "BUILTIN:"
+        "INITIALIZED-SYMBOL:"
         "SYMBOL:"
         "SYMBOLS:"
         "CONSTANT:"
@@ -157,7 +155,6 @@ IN: bootstrap.syntax
         "'let["
         "FUNCTOR:"
         "VARIABLES-FUNCTOR:"
-        "INITIALIZED-SYMBOL:"
         "STARTUP-HOOK:"
         "SHUTDOWN-HOOK:"
     } [ "syntax" create-word drop ] each

core/compiler/errors/errors.factor

@@ -5,18 +5,14 @@ source-files.errors summary ;
 IN: compiler.errors
 
 SYMBOL: +compiler-error+
-SYMBOL: compiler-errors
+INITIALIZED-SYMBOL: compiler-errors [ H{ } clone ]
-
-compiler-errors [ H{ } clone ] initialize
 
 TUPLE: compiler-error < source-file-error ;
 
 M: compiler-error error-type drop +compiler-error+ ;
 
 SYMBOL: +linkage-error+
-SYMBOL: linkage-errors
+INITIALIZED-SYMBOL: linkage-errors [ H{ } clone ]
-
-linkage-errors [ H{ } clone ] initialize
 
 TUPLE: linkage-error < source-file-error ;
 

core/continuations/continuations.factor

@@ -117,14 +117,16 @@ PRIVATE>
 
 GENERIC: error-in-thread ( error thread -- * )
 
-SYMBOL: thread-error-hook ! ( error thread -- * )
+DEFER: rethrow
+
+INITIALIZED-SYMBOL: thread-error-hook [ [ die drop rethrow ] ] ! ( error thread -- * )
 
 M: object error-in-thread
     thread-error-hook get-global call( error thread -- * ) ;
 
 : in-callback? ( -- ? ) CONTEXT-OBJ-IN-CALLBACK-P context-object ;
 
-SYMBOL: callback-error-hook ! ( error -- * )
+INITIALIZED-SYMBOL: callback-error-hook [ [ die rethrow ] ] ! ( error -- * )
 
 : rethrow ( error -- * )
     dup save-error
@@ -135,10 +137,6 @@ SYMBOL: callback-error-hook ! ( error -- * )
         if
     ] [ pop continue-with ] if-empty ;
 
-thread-error-hook [ [ die drop rethrow ] ] initialize
-
-callback-error-hook [ [ die rethrow ] ] initialize
-
 : recover ( ..a try: ( ..a -- ..b ) recovery: ( ..a error -- ..b ) -- ..b )
     [
         [

core/init/init.factor

@@ -4,11 +4,8 @@ USING: assocs continuations continuations.private kernel
 kernel.private namespaces ;
 IN: init
 
-SYMBOL: startup-hooks
+INITIALIZED-SYMBOL: startup-hooks [ V{ } clone ]
-SYMBOL: shutdown-hooks
+INITIALIZED-SYMBOL: shutdown-hooks [ V{ } clone ]
-
-startup-hooks [ V{ } clone ] initialize
-shutdown-hooks [ V{ } clone ] initialize
 
 : do-hooks ( symbol -- )
     get [ nip call( -- ) ] assoc-each ;

core/io/backend/backend.factor

@@ -4,11 +4,9 @@ USING: assocs init io io.encodings io.encodings.utf8 kernel
 namespaces system ;
 IN: io.backend
 
-SYMBOL: io-backend
-
 SINGLETON: c-io-backend
 
-io-backend [ c-io-backend ] initialize
+INITIALIZED-SYMBOL: io-backend [ c-io-backend ]
 
 HOOK: init-io io-backend ( -- )
 

core/parser/parser.factor

@@ -167,9 +167,7 @@ SYMBOL: bootstrap-syntax
         call
     ] with-manifest ; inline
 
-SYMBOL: print-use-hook
+INITIALIZED-SYMBOL: print-use-hook [ [ ] ]
-
-print-use-hook [ [ ] ] initialize
 
 : parse-fresh ( lines -- quot )
     [

core/source-files/errors/errors.factor

@@ -36,9 +36,7 @@ TUPLE: error-type-holder type word plural icon quot forget-quot { fatal? initial
 
 GENERIC: error-type ( error -- type )
 
-SYMBOL: error-types
+INITIALIZED-SYMBOL: error-types [ V{ } clone ]
-
-error-types [ V{ } clone ] initialize
 
 : define-error-type ( error-type -- )
     dup type>> error-types get set-at ;

core/stack-checker/alien/alien.factor

@@ -124,9 +124,7 @@ TUPLE: alien-callback-params < alien-node-params
 
 GENERIC: wrap-callback-quot ( params quot -- quot' )
 
-SYMBOL: wait-for-callback-hook
+INITIALIZED-SYMBOL: wait-for-callback-hook [ [ drop ] ]
-
-wait-for-callback-hook [ [ drop ] ] initialize
 
 M: callable wrap-callback-quot
     swap [ callback-parameter-quot ] [ callback-return-quot ] bi surround

core/strings/parser/parser.factor

@@ -33,11 +33,9 @@ ERROR: bad-escape char ;
         { char: \) char: \) }
     } ?at [ bad-escape ] unless ;
 
-SYMBOL: name>char-hook
+INITIALIZED-SYMBOL: name>char-hook [
-
-name>char-hook [
     [ "Unicode support not available" throw ]
-] initialize
+]
 
 : hex-escape ( str -- ch str' )
     2 cut-slice [ hex> ] dip ;

core/syntax/syntax.factor

@@ -52,7 +52,11 @@ IN: bootstrap.syntax
     dup [ define-fry-specifier ] curry each ;
 
 [
-    { "]" "}" ";" ">>" "UNIX>" "MACOS>" "LINUX>" "WINDOWS>" } [ define-delimiter ] each
+    {
+        "]" "}" ";" ">>"
+        "UNIX>" "MACOS>" "LINUX>" "WINDOWS>"
+        "FACTOR>"
+    } [ define-delimiter ] each
 
     "PRIMITIVE:" [
         current-vocab name>>
@@ -89,6 +93,9 @@ IN: bootstrap.syntax
         os windows? [ ".windows" parse-platform-section ] [ drop ] if
     ] define-core-syntax
 
+    "<FACTOR" [
+        "FACTOR>" parse-multiline-string "" parse-platform-section
+    ] define-core-syntax
 
     "USE:" [ scan-token use-vocab ] define-core-syntax
 
@@ -172,14 +179,11 @@ IN: bootstrap.syntax
         (parse-tuple-definition) 2drop check-builtin
     ] define-core-syntax
 
-    "SYMBOL:" [
+    "INITIALIZED-SYMBOL:" [
-        scan-new-word define-symbol
+        scan-new-word [ define-symbol ] keep scan-object '[ _ _ initialize ] append!
-    ] define-core-syntax
-
-    "SYMBOLS:" [
-        ";" [ create-word-in [ reset-generic ] [ define-symbol ] bi ] each-token
     ] define-core-syntax
 
+![[
     "INITIALIZED-SYMBOL:" [
         scan-new-word [ define-symbol ]
         [
@@ -187,6 +191,15 @@ IN: bootstrap.syntax
             scan-object dupd [ initialize ] curry curry ( -- ) define-declared
         ] bi
     ] define-core-syntax
+]]
+
+    "SYMBOL:" [
+        scan-new-word define-symbol
+    ] define-core-syntax
+
+    "SYMBOLS:" [
+        ";" [ create-word-in [ reset-generic ] [ define-symbol ] bi ] each-token
+    ] define-core-syntax
 
     "STARTUP-HOOK:" [
         scan-new-word scan-object

core/vocabs/loader/loader.factor

@@ -26,8 +26,7 @@ CONSTANT: default-vocab-roots {
     trim-tail-separators dup vocab-roots get ?adjoin
     [ add-vocab-root-hook get-global call( root -- ) ] [ drop ] if ;
 
-SYMBOL: root-cache
+INITIALIZED-SYMBOL: root-cache [ H{ } clone ]
-root-cache [ H{ } clone ] initialize
 
 ERROR: not-found-in-roots path ;
 
@@ -71,16 +70,13 @@ PRIVATE>
 SYMBOL: load-help?
 
 ! Defined by vocabs.metadata
-SYMBOL: check-vocab-hook
+INITIALIZED-SYMBOL: check-vocab-hook [ [ drop ] ]
-check-vocab-hook [ [ drop ] ] initialize
 
 <PRIVATE
 
-SYMBOL: require-when-vocabs
+INITIALIZED-SYMBOL: require-when-vocabs [ HS{ } clone ]
-require-when-vocabs [ HS{ } clone ] initialize
 
-SYMBOL: require-when-table
+INITIALIZED-SYMBOL: require-when-table [ V{ } clone ]
-require-when-table [ V{ } clone ] initialize
 
 : load-conditional-requires ( vocab -- )
     vocab-name require-when-vocabs get in? [

extra/alien/fortran/fortran.factor

@@ -25,9 +25,9 @@ DEFER: fortran-ret-type>c-type
 DEFER: fortran-arg-type>c-type
 DEFER: fortran-name>symbol-name
 
-SYMBOL: library-fortran-abis
+INITIALIZED-SYMBOL: library-fortran-abis [ H{ } clone ]
+
 SYMBOL: fortran-abi
-library-fortran-abis [ H{ } clone ] initialize
 
 <PRIVATE
 

extra/alien/handles/handles.factor

@@ -6,10 +6,8 @@ IN: alien.handles
 
 <PRIVATE
 
-SYMBOLS: alien-handle-counter alien-handles ;
+INITIALIZED-SYMBOL: alien-handle-counter [ 0 ]
-
+INITIALIZED-SYMBOL: alien-handles [ H{ } clone ]
-alien-handle-counter [ 0 ] initialize
-alien-handles [ H{ } clone ] initialize
 
 : biggest-handle ( -- n )
     -1 32 bits ; inline

extra/audio/loader/loader.factor

@@ -6,8 +6,7 @@ IN: audio.loader
 
 ERROR: unknown-audio-extension extension ;
 
-SYMBOL: audio-types
+INITIALIZED-SYMBOL: audio-types [ H{ } clone ]
-audio-types [ H{ } clone ] initialize
 
 : register-audio-extension ( extension quot -- )
     swap audio-types get set-at ;

extra/cli/git/git.factor

@@ -6,8 +6,7 @@ io.pathnames kernel math namespaces sequences splitting
 system-info unicode ;
 IN: cli.git
 
-SYMBOL: cli-git-num-parallel
+INITIALIZED-SYMBOL: cli-git-num-parallel [ cpus 2 * ]
-cli-git-num-parallel [ cpus 2 * ] initialize
 
 : git-command>string ( quot -- string )
     utf8 <process-reader> stream-contents [ blank? ] trim-tail ;

extra/codebook/codebook.factor

@@ -198,11 +198,9 @@ TUPLE: code-file
 : write-dest-file ( xml name ext -- )
     append utf8 [ write-xml ] with-file-writer ;
 
-SYMBOL: kindlegen-path
+INITIALIZED-SYMBOL: kindlegen-path [ "kindlegen" ]
-kindlegen-path [ "kindlegen" ] initialize
 
-SYMBOL: codebook-output-path
+INITIALIZED-SYMBOL: codebook-output-path [ "resource:codebooks" ]
-codebook-output-path [ "resource:codebooks" ] initialize
 
 : kindlegen ( path -- )
     [ kindlegen-path get "-unicode" ] dip 3array try-process ;

extra/cuda/libraries/libraries.factor

@@ -14,8 +14,7 @@ VARIANT: cuda-abi
 SYMBOL: cuda-modules
 SYMBOL: cuda-functions
 
-SYMBOL: cuda-libraries
+INITIALIZED-SYMBOL: cuda-libraries [ H{ } clone ]
-cuda-libraries [ H{ } clone ] initialize
 
 SYMBOL: current-cuda-library
 

extra/dns/dns.factor

@@ -35,7 +35,7 @@ ENUM: dns-opcode QUERY IQUERY STATUS ;
 ENUM: dns-rcode NO-ERROR FORMAT-ERROR SERVER-FAILURE
 NAME-ERROR NOT-IMPLEMENTED REFUSED ;
 
-SYMBOL: dns-servers
+INITIALIZED-SYMBOL: dns-servers [ initial-dns-servers >vector ]
 
 : add-dns-server ( string -- )
     dns-servers get push ;
@@ -424,4 +424,3 @@ UNIX>
 : with-dns-servers ( servers quot -- )
     [ dns-servers ] dip with-variable ; inline
 
-dns-servers [ initial-dns-servers >vector ] initialize

extra/euler/b-rep/b-rep.factor

@@ -40,8 +40,7 @@ TUPLE: b-rep < identity-tuple faces edges vertices ;
 : <b-rep> ( -- b-rep )
     V{ } clone V{ } clone V{ } clone b-rep boa ;
 
-SYMBOL: sharpness-stack
+INITIALIZED-SYMBOL: sharpness-stack [ V{ t } ]
-sharpness-stack [ V{ t } ] initialize
 
 : set-sharpness ( sharp? -- ) >boolean sharpness-stack get set-last ;
 : get-sharpness ( -- sharp? ) sharpness-stack get last ;

extra/game/models/loader/loader.factor

@@ -10,8 +10,7 @@ ERROR: unknown-models-extension extension ;
 
 <PRIVATE
 
-SYMBOL: types
+INITIALIZED-SYMBOL: types [ H{ } clone ]
-types [ H{ } clone ] initialize
 
 : models-class ( path -- class )
     file-extension >lower types get ?at

extra/gml/macros/macros.factor

@@ -8,11 +8,9 @@ IN: gml.macros
 
 TUPLE: macro macro-id timestamp log ;
 
-SYMBOL: next-macro-id
+INITIALIZED-SYMBOL: next-macro-id [ 0 ]
-next-macro-id [ 0 ] initialize
 
-SYMBOL: macros
+INITIALIZED-SYMBOL: macros [ H{ } clone ]
-macros [ H{ } clone ] initialize
 
 SYMBOL: current-macro
 

extra/gml/runtime/runtime.factor

@@ -8,9 +8,7 @@ IN: gml.runtime
 
 TUPLE: gml-name < identity-tuple { string read-only } ;
 
-SYMBOL: gml-names
+INITIALIZED-SYMBOL: gml-names [ H{ } clone ]
-
-gml-names [ H{ } clone ] initialize
 
 : >gml-name ( string -- name ) gml-names get-global [ \ gml-name boa ] cache ;
 
@@ -172,9 +170,7 @@ MACRO: gml-primitive (
 )
     swap '[ _ inputs @ _ outputs ] ;
 
-SYMBOL: global-dictionary
+INITIALIZED-SYMBOL: global-dictionary [ H{ } clone ]
-
-global-dictionary [ H{ } clone ] initialize
 
 : add-primitive ( word name -- )
     >gml-name global-dictionary get-global set-at ;

extra/io/encodings/detect/detect.factor

@@ -7,8 +7,7 @@ io.encodings.utf32 io.encodings.utf8 io.files kernel literals
 math namespaces sequences strings ;
 IN: io.encodings.detect
 
-SYMBOL: default-encoding
+INITIALIZED-SYMBOL: default-encoding [ latin1 ]
-default-encoding [ latin1 ] initialize
 
 <PRIVATE
 

extra/irc/messages/base/base.factor

@@ -8,8 +8,7 @@ IN: irc.messages.base
 TUPLE: irc-message line prefix command parameters trailing timestamp sender ;
 TUPLE: unhandled < irc-message ;
 
-SYMBOL: string-irc-type-mapping
+INITIALIZED-SYMBOL: string-irc-type-mapping [ H{ } clone ]
-string-irc-type-mapping [ H{ } clone ] initialize
 
 : register-irc-message-type ( type string -- )
     string-irc-type-mapping get set-at ;

extra/managed-server/chat/chat.factor

@@ -8,11 +8,9 @@ IN: managed-server.chat
 
 TUPLE: chat-server < managed-server ;
 
-SYMBOL: commands
+INITIALIZED-SYMBOL: commands [ H{ } clone ]
-commands [ H{ } clone ] initialize
 
-SYMBOL: chat-docs
+INITIALIZED-SYMBOL: chat-docs [ H{ } clone ]
-chat-docs [ H{ } clone ] initialize
 
 CONSTANT: line-beginning "-!- "
 

extra/marvel/marvel.factor

@@ -7,9 +7,9 @@ IN: marvel
 
 ! http://developer.marvel.com/docs
 ! Register for an api key.
-SYMBOLS: marvel-base-url marvel-public-key marvel-private-key ;
+SYMBOLS: marvel-public-key marvel-private-key ;
 
-marvel-base-url [ "http://gateway.marvel.com/v1/public/" ] initialize
+INITIALIZED-SYMBOL: marvel-base-url [ "http://gateway.marvel.com/v1/public/" ]
 
 : calculate-hash ( ts -- hash )
     number>string

extra/mason/config/config.factor

@@ -36,14 +36,10 @@ SYMBOL: boot-flags
 SYMBOL: builder-debug
 
 ! URL for counter notifications.
-SYMBOL: counter-url
+INITIALIZED-SYMBOL: counter-url [ "http://builds.factorcode.org/counter" ]
-
-counter-url [ "http://builds.factorcode.org/counter" ] initialize
 
 ! URL for status notifications.
-SYMBOL: status-url
+INITIALIZED-SYMBOL: status-url [ "http://builds.factorcode.org/status-update" ]
-
-status-url [ "http://builds.factorcode.org/status-update" ] initialize
 
 ! Password for status notifications.
 SYMBOL: status-secret
@@ -62,9 +58,7 @@ SYMBOL: docs-username
 SYMBOL: docs-directory
 
 ! URL to notify server about new docs
-SYMBOL: docs-update-url
+INITIALIZED-SYMBOL: docs-update-url [ "http://builds.factorcode.org/docs-update" ]
-
-docs-update-url [ "http://builds.factorcode.org/docs-update" ] initialize
 
 ! Boolean. Do we upload package binaries?
 SYMBOL: upload-package?
@@ -106,8 +100,6 @@ SYMBOL: upload-timeout
 1 hours upload-timeout set-global
 
 ! Optional: override ssh and scp command names
-SYMBOL: scp-command
+INITIALIZED-SYMBOL: scp-command [ "scp" ]
-scp-command [ "scp" ] initialize
 
-SYMBOL: ssh-command
+INITIALIZED-SYMBOL: ssh-command [ "ssh" ]
-ssh-command [ "ssh" ] initialize

extra/math/blas/config/config.factor

@@ -2,9 +2,7 @@ USING: alien.fortran combinators kernel math namespaces
 sequences system system-info ;
 IN: math.blas.config
 
-SYMBOLS: blas-library blas-fortran-abi deploy-blas? ;
+INITIALIZED-SYMBOL: blas-library [
-
-blas-library [
     {
         { [ os macosx?  ] [ "libblas.dylib" ] }
         { [ os windows? ] [ "blas.dll"      ] }
@@ -12,7 +10,7 @@ blas-library [
     } cond
 ] initialize
 
-blas-fortran-abi [
+INITIALIZED-SYMBOL: blas-fortran-abi [
     {
         { [ os macosx? cpu x86.32? and ] [ intel-unix-abi ] }
         { [ os macosx? cpu x86.64? and ]
@@ -31,6 +29,6 @@ ou will need to install a third-party BLAS library and configure Factor. See `\"
         { [ os linux?                   ] [ gfortran-abi   ] }
         [ f2c-abi ]
     } cond
-] initialize
+]
 
-deploy-blas? [ os macosx? not ] initialize
+INITIALIZED-SYMBOL: deploy-blas? [ os macosx? not ]

extra/modern/compiler/compiler.factor

@@ -7,8 +7,7 @@ splitting strings ;
 IN: modern.compiler
 
 <<
-SYMBOL: left-decorators
+INITIALIZED-SYMBOL: left-decorators [ HS{ } clone ]
-left-decorators [ HS{ } clone ] initialize
 >>
 <<
 : make-left-decorator ( string -- )
@@ -31,9 +30,8 @@ LEFT-DECORATOR: recursive
     left-decorators get in? ;
 
 <<
-SYMBOL: arities
 ! Initialize with : foo ( -- ) .. ; already
-arities [ H{ } clone 2 "" pick set-at ] initialize
+INITIALIZED-SYMBOL: arities [ H{ } clone 2 "" pick set-at ]
 >>
 <<
 : make-arity ( n string -- )
@@ -82,8 +80,7 @@ ARITY: \: 2
     arities get at ;
 
 <<
-SYMBOL: variable-arities
+INITIALIZED-SYMBOL: variable-arities [ H{ } clone ]
-variable-arities [ H{ } clone ] initialize
 >>
 <<
 : make-variable-arity ( n string -- )
@@ -399,4 +396,4 @@ M: object fixup-arity ;
 
 : postprocess-modern ( seq -- seq' )
     collapse-decorators [ fixup-arity ] map flatten ;
-]]
+]]

extra/robots/robots.factor

@@ -9,8 +9,7 @@ IN: robots
 ! visit-time is GMT, request-rate is pages/second
 ! crawl-rate is seconds
 
-SYMBOL: robot-identities
+INITIALIZED-SYMBOL: robot-identities [ { "FactorSpider" } ]
-robot-identities [ { "FactorSpider" } ] initialize
 
 TUPLE: robots site sitemap rules rules-quot ;
 

extra/site-watcher/email/email.factor

@@ -3,8 +3,7 @@
 USING: smtp namespaces accessors kernel arrays site-watcher.db ;
 IN: site-watcher.email
 
-SYMBOL: site-watcher-from
+INITIALIZED-SYMBOL: site-watcher-from [ "factor-site-watcher@gmail.com" ]
-site-watcher-from [ "factor-site-watcher@gmail.com" ] initialize
 
 : send-site-email ( watching-site body subject -- )
     [ account>> email>> ] 2dip

extra/smalltalk/classes/classes.factor

@@ -3,9 +3,7 @@
 USING: kernel namespaces assocs accessors words sequences classes.tuple ;
 IN: smalltalk.classes
 
-SYMBOL: classes
+INITIALIZED-SYMBOL: classes [ H{ } clone ]
-
-classes [ H{ } clone ] initialize
 
 : create-class ( class -- class )
     "smalltalk.classes" create-word ;

extra/twitter/twitter.factor

@@ -6,9 +6,9 @@ io.sockets.secure fry oauth1 urls ;
 IN: twitter
 
 ! Configuration
-SYMBOLS: twitter-source twitter-consumer-token twitter-access-token ;
+INITIALIZED-SYMBOL: twitter-source [ "factor" ]
 
-twitter-source [ "factor" ] initialize
+SYMBOLS: twitter-consumer-token twitter-access-token ;
 
 <PRIVATE