From 89b07d98bc6f43226d8d34b39450e57f4c3301cc Mon Sep 17 00:00:00 2001
From: Oldes Huhuman <oldes.huhuman@gmail.com>
Date: Sat, 20 Jul 2024 14:41:35 +0200
Subject: [PATCH] FEAT: included an `upgrade` module (currently just a
 placeholder)

---
 src/boot/sysobj.reb     |  1 +
 src/modules/upgrade.reb | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 src/modules/upgrade.reb

diff --git a/src/boot/sysobj.reb b/src/boot/sysobj.reb
index 07a38a792e..a2df5f7c90 100644
--- a/src/boot/sysobj.reb
+++ b/src/boot/sysobj.reb
@@ -261,6 +261,7 @@ modules: object [
 	thru-cache:       https://src.rebol.tech/modules/thru-cache.reb
 	to-ascii:         https://src.rebol.tech/modules/to-ascii.reb
 	unicode-utils:    https://src.rebol.tech/modules/unicode-utils.reb
+	upgrade:          https://src.rebol.tech/modules/upgrade.red
 	daytime:          https://src.rebol.tech/mezz/prot-daytime.reb
 	mail:             https://src.rebol.tech/mezz/prot-mail.reb
 	mysql:            https://src.rebol.tech/mezz/prot-mysql.reb
diff --git a/src/modules/upgrade.reb b/src/modules/upgrade.reb
new file mode 100644
index 0000000000..00e2275478
--- /dev/null
+++ b/src/modules/upgrade.reb
@@ -0,0 +1,24 @@
+Rebol [
+	title: "Upgrade"
+	purpose: "Keep track of possible Rebol upgrades"
+	name:   upgrade
+	type:   module
+	options: [delay]
+	version: 0.0.1
+	exports: [upgrade]
+	author: @Oldes
+	file: %upgrade.reb
+	home: https://src.rebol.tech/modules/upgrade.reb
+]
+
+system/options/log/upgrade: 4
+upgrade: function [
+	"Check if there are possible upgrades"
+][
+	sys/log/error 'UPGRADE "Not yet implemented!"
+	;; remove itself...
+	try [delete system/options/modules/upgrade.reb] 
+	try [unset in system/contexts/user 'upgrade]
+	try [unset in system/contexts/lib  'upgrade]
+	system/modules/upgrade: https://src.rebol.tech/modules/upgrade.red
+]