[REBOL] Re: [bug?] Problem with 'load
From: rebolview::yahoo at: 28-Nov-2003 11:29
I use this on View 1.2.1 maybe could help you.
REBOL []
script: get in context
[script: func
["^/ "
File
/header
/content
/compress
/decompress
/local
script
]
[script: system/words/read File
script: load/all script? script
while [block? first script] [script: first script]
script: context
[header: second script
content: copy at script 3
]
if binary? first script/content
[script/content: load system/words/decompress first script/content]
switch/default true reduce
[header [script/header]
content [script/content]
decompress [save/header File script/content script/header]
compress
[save/header File
system/words/compress mold/only script/content script/header
]
] [script]
]
] 'script
-yos
