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 +]