core/basis/extra: using STARTUP-HOOK: and SHUTDOWN-HOOK:

[factor.git] / core / io / files / files.factor

diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 3190bc68841640932b6e90dd29db6091fa3fdbe7..da74c316c762b4f0e824d144e8042e0c21d8e954 100644 (file)
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -90,9 +90,9 @@ PRIVATE>
     ] map-find drop
     [ image-path parent-directory ] unless* "resource-path" set-global ;
 
-[
+STARTUP-HOOK: [
     cwd current-directory set-global
     OBJ-IMAGE special-object alien>native-string \ image-path set-global
     OBJ-EXECUTABLE special-object alien>native-string \ vm-path set-global
     init-resource-path
-] "io.files" add-startup-hook
+]