Mailing List Archive: Re: Slide show from Collaboration

[REBOL] Re: Slide show from Collaboration

From: lmecir::mbox::vol::cz at: 5-Oct-2004 10:45


A J Martin napsal(a):

>Ladislav wrote:
>
>>my slide-show can be run in View/beta as follows:
>>
>>do http://www.fm.vslib.cz/~ladislav/rebol/present.r
>>
>>
>
>>>do http://www.fm.vslib.cz/~ladislav/rebol/present.r
>>>
>>>
>** Script Error: unless has no value
>** Where: tfunc
>** Near: unless string? pick spec 1
>
>:(
>
Hi Andrew,

you can define Unless as follows:

    unless: func [
        "Evaluates the block if condition is not TRUE."
        [throw]
        condition
        block [block!]
    ] [
        either condition [none] block
    ]

, but I am not sure that is everything what is needed to run the script

-L