syntax: adding STARTUP-HOOK: and SHUTDOWN-HOOK:

diff --git a/basis/bootstrap/syntax.factor b/basis/bootstrap/syntax.factor
index 302bf7a0caa48791be441cfb8f1bdb86a4033ead..ba32f887ca890c3e771c8c0370fa949b98e91d56 100644 (file)
--- a/basis/bootstrap/syntax.factor
+++ b/basis/bootstrap/syntax.factor
@@ -114,6 +114,8 @@ IN: bootstrap.syntax
         "MACRO::"
         "MEMO::"
         "IDENTITY-MEMO::"
+        "STARTUP-HOOK:"
+        "SHUTDOWN-HOOK:"
     } [ "syntax" create-word drop ] each
 
     "t" "syntax" lookup-word define-symbol

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index 31001ea19cc81ec9fb791ba075cf1b08fe53f070..bd455574483709c6a7906b5029796bde49466d1f 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -334,4 +334,14 @@ IN: bootstrap.syntax
     "MACRO::" [ (::) define-macro ] define-core-syntax
     "MEMO::" [ (::) define-memoized ] define-core-syntax
     "IDENTITY-MEMO::" [ (::) define-identity-memoized ] define-core-syntax
+
+    "STARTUP-HOOK:" [
+        \ ; parse-until >quotation current-vocab name>>
+        add-startup-hook
+    ] define-core-syntax
+
+    "SHUTDOWN-HOOK:" [
+        \ ; parse-until >quotation current-vocab name>>
+        add-shutdown-hook
+    ] define-core-syntax
 ] with-compilation-unit