Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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) "#{"] } ] ]