[REBOL] How do I make my app upgradeable Re:(3)

[allenk]

>
> Unfortunately, this fails with:
>
> ** Internal Error: No more global variable space.
> ** Where: Script: load/header Filename
>
> after about 24 scripts have been checked. I hope this problem is fixed in
> the new version of REBOL/Core.
>
> Andrew Martin
> ICQ: 26227169
> [EMAIL PROTECTED]
> http://members.xoom.com/AndrewMartin/
> -><-

Hi Andrew,

I had the same problem with running out of global space for my script
cataloger,
Here is your script modified, so that it will never (?) run out of global
space
(The idea of using  set [header post-head] load/next/header filename came
from Jeffs
coloriser.r script.)

Cheers

Allen K


Upgrade_Scripts: function [][Script Header][
;--Modified
    foreach Filename read %. [
        if found? find/last Filename ".r" [
                print Filename
                set [header post-head] load/next/header filename
                ;Script: load/header Filename
                ;Header: first Script
                if all [
                    found? find first Header 'Upgrade
                    url? Header/Upgrade
                    ][
                    try [
                        print ["Upgrade:" Header/Upgrade]
                        ; do Header/Upgrade
                        ]
                    ]
                ]
            ]
        ]