Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #15324

Re: continue equivalent in Forth?

Show all headers | View raw

Alex McDonald <blog@rivadpm.com> writes Re: continue equivalent in Forth?

> On Aug 30, 9:39 pm, m...@iae.nl (Marcel Hendrix) wrote:
>> an...@mips.complang.tuwien.ac.at (Anton Ertl) writes Re: continue equivalent in Forth?
[..]
>> : blah ." blah " ;
>> : foo  ." foo " ;
>
>> : aword      blah blah blah 0 if ;
>> : label_001  then  foo foo foo ;
>
>> FORTH> label_001 foo foo foo  ok
>> FORTH> aword blah blah blah foo foo foo  ok
>
> : label_001 foo foo foo ;
> : aword blah blah blah label_001 ;

Sigh.

SECURE OFF

: blah ." blah " ;
: foo  ." foo " ;

: aword ( bool -- ) blah blah blah if ;
: label_001 ( -- ) then  foo 1 aword foo ;

FORTH> cr 0 aword 
blah blah blah foo blah blah blah foo  ok
FORTH> cr 1 aword 
blah blah blah  ok
FORTH> cr label_001 
foo blah blah blah foo  ok

-marcel

Back to comp.lang.forth | Previous | Next — Next in thread | Find similar | Unroll thread

Thread

Re: continue equivalent in Forth? mhx@iae.nl (Marcel Hendrix) - 2012-08-31 20:31 +0200
  Re: continue equivalent in Forth? Alex McDonald <blog@rivadpm.com> - 2012-08-31 13:49 -0700

csiph-web