Re: Programming Style II

From	"Rod Pemberton" <do_not_have@notemailnotq.cpm>
Newsgroups	comp.lang.forth
Subject	Re: Programming Style II
Date	2013-06-28 19:37 -0400
Organization	Aioe.org NNTP Server
Message-ID	<kql6gn$km8$1@speranza.aioe.org> (permalink)
References	<kqi42h$hgj$1@dont-email.me> <8sCdnXMxg97k1VDMnZ2dnUVZ_rWdnZ2d@supernews.com> <kqk6hh$fik$1@dont-email.me>

Show all headers | View raw

"rickman" <gnuarm@gmail.com> wrote in message
news:kqk6hh$fik$1@dont-email.me...

> This is not what I am trying to do.  Throwing errors should *not*
> exit the loops.  Here is my top level code.
>
> : Initialize ( -- ) \ Initialize and handle errors
> ['] ComsInit CATCH HandleErrors ;
>
> : (resume) ( flag -- )
> BEGIN CR WHILE ['] TestUUT1 CATCH HandleErrors REPEAT ;
>
> : Test ( -- ) \ Initialize then loop on running board tests
> Initialize (resume) ;
>

It appears to me you're using CATCH and THROW like an obfuscated
BEGIN ... UNTIL loop.  If so, is there a reason you can't
restructure the code and use BEGIN ... UNTIL to do the same thing?


Rod Pemberton

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

Thread

Programming Style II rickman <gnuarm@gmail.com> - 2013-06-27 15:38 -0400
  Re: Programming Style II Mark Wills <markrobertwills@yahoo.co.uk> - 2013-06-28 00:29 -0700
    Re: Programming Style II albert@spenarnc.xs4all.nl (Albert van der Horst) - 2013-06-28 12:49 +0000
      Re: Programming Style II rickman <gnuarm@gmail.com> - 2013-06-28 10:11 -0400
        Re: Programming Style II Mark Wills <markrobertwills@yahoo.co.uk> - 2013-06-28 07:15 -0700
      Re: Programming Style II Mark Wills <markrobertwills@yahoo.co.uk> - 2013-06-28 07:13 -0700
  Re: Programming Style II Elizabeth D Rather <erather@forth.com> - 2013-06-27 22:25 -1000
    Re: Programming Style II rickman <gnuarm@gmail.com> - 2013-06-28 10:32 -0400
      Re: Programming Style II rickman <gnuarm@gmail.com> - 2013-06-28 10:41 -0400
      Re: Programming Style II "Rod Pemberton" <do_not_have@notemailnotq.cpm> - 2013-06-28 19:37 -0400
        Re: Programming Style II rickman <gnuarm@gmail.com> - 2013-06-28 21:12 -0400
          Re: Programming Style II "Rod Pemberton" <do_not_have@notemailnotq.cpm> - 2013-07-07 10:53 -0400
            Re: Programming Style II rickman <gnuarm@gmail.com> - 2013-07-07 13:01 -0400
  Re: Programming Style II "WJ" <w_a_x_man@yahoo.com> - 2013-06-28 12:47 +0000
  Re: Programming Style II the_gavino_himself <visphatesjava@gmail.com> - 2013-07-08 18:21 -0700
    Re: Programming Style II "Elizabeth D. Rather" <erather@forth.com> - 2013-07-08 15:39 -1000

csiph-web