[REBOL] Re: ANN: Rebol/Flash dialect updated
From: brett:codeconscious at: 19-Feb-2002 16:02
Hi Oldes,
I noticed your comment about Rebol/View 1.2.1 crashing and to use an older
version. I'm guessing this is because of the DEBASE function. I've made a
work around for debase - see below (watch line wrapping).
Regards,
Brett.
if all [
equal? "View" first parse to-string system/product "/"
find/match form system/version "1.2.1."
] [
debase: function [
{Converts a string from a different base representation to binary.
Note: This is a patched version.}
value [any-string!] "The string to convert"
/base {Allow a selection of a different base for conversion}
base-value [integer!] "The base to convert from: 64, 16, or 2"
] [tmp] [
if not base [base-value: system/options/binary-base]
if not found? find [64 16 2] base-value [return none]
tmp: either string? value [copy value] [to-string value]
RETURN first load/all append insert tmp compose [(base-value) "#{"]
}
]
]
