Mailing List Archive: Re: 'do

[REBOL] Re: 'do - question

From: al:bri:xtra at: 11-Nov-2001 15:14


Something like this then:

%Interpreter.r:

Interpreter: make object! [
    Quit: does [
        print "There's a Quit in this code!"
        throw make error! "Quit"
        ]
    Do: func [Code [block!]][
        try bind Code 'self
        ]
    ]

for i 1 5 1 [
    print "before"
    Interpreter/Do bind load %Example.r 'i
    print "after"
    ]

%Example.r:

print 2
print i
if i = 3 [
    quit ; -> here
    ]

Seems to do the job for me.

Andrew Martin
ICQ: 26227169 http://valley.150m.com/