World: r3wp

is this what you need?

Nope .. 

>> print rejoin [ "Hello " only false [ "world" ]]
Hello ?unset?

functions which don't return anything actually return unset!

rejoin is the culprit here.  the only reason your tail s works is 
because you are appending an empty block to a string, which = to 
appending an empty string to a string.

ex:  >> rejoin ["" prin ""]
== "?unset?"

IIRC R3's rejoin now ignores the unset values

I just want if/only to drop a value off the stack if false

only: func [c b][if/else not c b [#[unset!]]]


you can reverse the truth, but you will always return unset!   there 
is no such thing as a function which doesn't return a value in REBOL.

I want to avoid these 'none values ... where you are forced to use 
'either

well, you have to chose between unset! or none!, but R2's rejoin 
collects the unset values and appends them to strings (which is a 
bit dumb).

you can also use compose, which ignores unset! values.

>> reduce compose ["" (prin "")]
== [""]

that's for rejoin ... which is just one example

yes, but other funcs will react differently to unset!... some will 
raise the "expects a value" error, for example, if you return unset! 
from 'IF and try to use it.

well, the value is just one more upstream :)

>> print only true ["rr"]
rr
>> print only false [""]
** Script Error: print is missing its value argument
** Near: print only false [""]

ah, ok, you aren't trying to prevent a return value, but providing 
your own default.

I suspect it's not possible ...

well, yes.  your only, just needs to require an argument value.

only = /only

in which case I might as well use 'either

or use Maxim's 'only, just with a different value:
only: func [c b][if/else c b [copy {}]]

http://stackoverflow.com/questions/3400315/trigger-close-event-for-rebol-console/3402413#3402413


I think he's after the ctrl_close_event http://msdn.microsoft.com/en-us/library/ms683242(VS.85).aspx


though how he can detect it without any scripts running is beyond 
me.
So, is this detectable in the system port?

He obviously underspecified what he is after in the question.

Someone should point Carl to this, I'm pretty sure he wants to know: 
http://www.rebol.net/cgi-bin/rambo.r?id=4398&

Notified him privately.

Gabriele:


Carl: "BTW, that REBOL example code is "C code" not REBOL. The crash 
occurs in GC due to a stack overflow. Works fine in R3. Ticket updated."

I don't understand how it is "C code". Anyone have any idea?
(And will R2 be fixed?)

I believe Carl is saying that in his opinion the code has been written 
in the style of C rather than making use of REBOL's language features.

Agreed that the code is "Javaish"... still, hard crashes are always 
worth fixing, you'll never know when they're going to bite you! (Maybe 
Carl should do a blog post explaining why that approach is bad and 
what is the alternative, most people get thaught that stuff in school 
and don't know better.)

Oh ok, I see. In that case, I'd like to see suggestions for how to 
do it more rebolishly. It doesn't immediately occur to me, not knowing 
the context for the code, how it should be better.

Another explanation could be that Carl is suggesting that such code 
(manipulating millions of vectors) makes more sense implemented in 
C (for higher performance), with rebol calling out to it.

Yes, that is a valid interpretation as well (things like that are 
not a good thing to do in REBOL). I do think that you can't give 
a more "rebolish" implementation without the context (that's the 
whole point of REBOL).

Is this helpful?

>> trim none

** Script Error: trim expected series argument of type: series port
** Near: trim none

What harm would there be in ignoring none?

I guess it's about the propagation of NONE. If TRIM is used as part 
of a larger concatenated string, you could be forced to handle the 
NONE case after TRIM.

I'm having difficulty using the find function to find an image in 
an image. The image specification seems to indicate that this should 
be fine. Is this a known issue?

Can you give an example where it doesn't work?

;Rule30
rule30: to-image layout/tight [box 6x1 yellow edge none]
foreach n [2 5 6] [poke rule30 n orange]

;Img
screen: system/view/screen-face

img: draw make image! screen/size  reduce ['pen 'yellow 'fill-pen 
'yellow 'box 0x0 screen/size]


img: at img img/size/x / 2
change img orange
img: at img -2x0
width: 3


it: copy/part rule30 3
find img it

;simpler

i1: make image! [60x60 #{FFFF00FFFF00FF960AFFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF}]
i2: make image! [3x1 #{FFFF00 FF960A FFFF00}]
find i1 i2

any thoughts?

Am I doomed to convert the image to binary?

;this works

find i1/rgb i2/rgb

it's broken since a while

can someone rambo this?

how does one rambo?

http://www.rebol.net/cgi-bin/rambo.r

This is the bug database for R2 and before

please check also if this bug exists in R3.

ok

check out this groovy cellular automaton I made with rebol  http://docs.google.com/leaf?id=0B37bnU84uDb5OGE4YWFiNzUtNmM4ZC00Zjg2LTg5OTYtMzMwNGYzNmMxNzE1&hl=en

view layout [ f1: field button "test" [ context [ view/new layout 
[ f1: field "testing" ]]] button "F1 value" [ probe f1/text ]]


why does the context not prevent the second f1 overwriting the first 
?