Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #11419
| From | mhx@iae.nl (Marcel Hendrix) |
|---|---|
| Subject | Re: Another question re LEAVE |
| Newsgroups | comp.lang.forth |
| Message-ID | <71891516998435@frunobulax.edu> (permalink) |
| Date | 2012-04-19 20:14 +0200 |
| References | <c7b128cb-0606-4c35-aeb3-b76678fa4a33@21g2000vbh.googlegroups.com> |
| Organization | Wanadoo |
Mark Wills <markrobertwills@yahoo.co.uk> writes Re: Another question re LEAVE
[..]
> Is LEAVE *ever* going to be used *outside* of an IF...ENDIF block? I
> think no. To illustrate, the following simply doesn't make sense:
[..]
It perfectly makes sense.
: WAIT<NAK> ( -- <true if error> )
crc TRUE
#Retries
0 DO PURGE.RCVR 1 ?CHAR
CASE
<Nak> OF FALSE TO crc 0= LEAVE ENDOF
'C' OF TRUE TO crc 0= LEAVE ENDOF
DUP ." {" B. ." }"
ENDCASE
LOOP
autodetect IF NIP ELSE SWAP TO crc ENDIF
DUP IF CR ^G EMIT ." Receiver does not respond." CR ENDIF ;
-marcel
Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread
Another question re LEAVE Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-19 06:44 -0700
Re: Another question re LEAVE Bernd Paysan <bernd.paysan@gmx.de> - 2012-04-19 18:15 +0200
Re: Another question re LEAVE Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-19 10:14 -0700
Re: Another question re LEAVE George Hubert <georgeahubert@yahoo.co.uk> - 2012-04-19 11:24 -0700
Re: Another question re LEAVE Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-19 12:34 -0700
Re: Another question re LEAVE BruceMcF <agila61@netscape.net> - 2012-04-19 10:15 -0700
Re: Another question re LEAVE mhx@iae.nl (Marcel Hendrix) - 2012-04-19 20:14 +0200
Re: Another question re LEAVE Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-19 12:31 -0700
Re: Another question re LEAVE BruceMcF <agila61@netscape.net> - 2012-04-19 16:59 -0700
Re: Another question re LEAVE Mark Wills <markrobertwills@yahoo.co.uk> - 2012-04-20 04:42 -0700
csiph-web