World: r4wp

With REBOL, it's almost always something simple. Until you drop into 
the deep water. :-)

But someone is usually here to throw you a life preserver.

yes I am pleased the community is still going strong.

so any difference to script execution if cgi mode is used? besides 
the no output window

Shouldn't be. Doc or other experts might know of subtlties though.

>> x: next [a b]  USE x [a: 1]  print a
** Script Error: a has no value

Why USE make 'a local on above example while X is [b] ?

It works correctly under R3. R2 is obviously using the head of the 
series. You can work around it by using COPY before NEXT.

I know, it is not a big deal, I was just curious if there is a reason..

By the way, here is my sandbox function which allows only print, 
* and + words

safe-words: [print * +] 

sandbox: func [b [block!]] [use difference safe-words first system/words 
b]

>> sandbox [print 3 * 4]
12
>> sandbox [print read %test.r]
** Script Error: read has no value

Nice

Quick Question: I'm having some trouble understanding ANY.  I thought 
it meant that you could state a condition such as IF var = ANY ["val1" 
"val2"] [do something]

But that only becomes true on the first condition, not the second. 
 Example code:


>> forever [do cmd: ask "? " if cmd = any ["quit" "q"] [print "done" 
break]]
? q
? quit
done
>>
what am I missing?

The first value in your ANY block is "Quit" which is not a TRUE.

The second is "Q" which is also not a TRUE.

HELP ANY gives Evaluates and returns the first value that is not 
FALSE or NONE.

Patrick, just do this in the console and see what you get:

any ["quit" "q"]

Ok, so ANY is simply a way to pass back a value that is not false?

The key part in the doc string: "...returns the first value that 
is not FALSE or NONE"

So it evaluates each value in the block you give it, and as soon 
as it hits a value that is not false or none, it returns that value. 
So, in your case, it will always return "quit".

so in my case ANY ["quit" "q"] will ALWAYS return "quit" since it 
is a valid expression

Correct.

So think of how to solve it other ways. ANY evaluates, so you could 
put your comparison expressions inside the ANY block. That will get 
unwieldy very fast though. How else might you do it? What is it you 
want to do (in a general sense)?

I suppose the CASE command would be better

My goal is to simply stay in a loop, accepting all valid rebol commands 
until I quit the loop

For example, I've defined some variables to script names, and so 
when I enter the variable, it should DO those names, until quit

And for the case of q and quit, and maybe others, you want to see 
if they command is in a set of commands you want to process in a 
special way, correct?

That is, you want to see if you FIND the command in a set of known 
commands and act accordingly.

not really, it's just a quick shortcut to allow any REBOL command 
to be performed while it is in a script that is already executing.
...doing stuff...

stopping here to accept various rebol commands and looping until 
finished
...doing the rest of the script

Its a way to "pause" a running script to enter rebol commands and 
then when I'm done, get out of the loop and continue with the rest 
of the script

Right, so you ask for the command, see if it's a command to exit 
your loop (q or quit) and DO it if not, correct?

yep

Although, the way I have it, it should do the command no matter what 
is entered

And it will, which is not what you want.

So start with that, and then add the handling for your special commands.

Actually, it is.  I want it to do ANY rebol command.

forever [cmd: ask "? "  do cmd]

Any command except q or quit, which should break your loop, correct?

And what about an empty command?

Doesn't work

It just repeats what i've entered

forever [do ask "? "]  will work on some rebol commands like HELP 
or PRINT "HI" but not "Q" or "QUIT"

which is why I tried to state the condition to break out of the loop

So if you type "quit" (no quotes) after running that, it doesn't 
quit REBOL?

right

it is like the word is not being evaluated

What version of REBOL, and what OS? It works as expected here on 
Win7.

r3 111 vista

Was just askin about R3 vs R2 :/ I fear you hit a known bug in R3.

Ah, R3. Let me try.

Indeed. I now see your behavior.

thanks Andreas,  that explains it

(http://issue.cc/r3/851-- that's the bug, just in case.)

Just FYI: workaround the bug:

forever	[
	do script: ask	[~ " REBOL COMMAND? "]	; do the entered command
	if script = "q"		[break]
	if script = "quit"	[break]	
	]