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

Groups > comp.lang.forth > #44199

Re: props to gforth

Show all headers | View raw

beeflo <beeflobill@gmail.com> writes:
>   free assert( 0 = ) rdrop

assert( 0 = )

consumes a stack item when the assertions are enabled, but does not
consume it if they are disabled.  So that's likely a bug.  A better
alternative is

assert( dup 0= )

Also, the usual way to deal with iors is to THROW them; then you also
get a more or less useful error message.

>: hier-print ( list-addr -- ) recursive
>   dup comp-name  ." ==> " dup comp-print cr
>   ['] hier-print do-each
>;

Ok, so I'm not the only one who passes the xt of the current word to
some other word.

- anton
-- 
M. Anton Ertl  http://www.complang.tuwien.ac.at/anton/home.html
comp.lang.forth FAQs: http://www.complang.tuwien.ac.at/forth/faq/toc.html
     New standard: http://www.forth200x.org/forth200x.html
   EuroForth 2015: http://www.rigwit.co.uk/EuroForth2015/

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

Thread

props to gforth beeflo <beeflobill@gmail.com> - 2015-12-11 12:58 -0800
  Re: props to gforth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2015-12-11 22:16 +0000
    Re: props to gforth beeflo <beeflobill@gmail.com> - 2015-12-11 14:50 -0800
      Re: props to gforth Paul Rubin <no.email@nospam.invalid> - 2015-12-11 15:23 -0800
    Re: props to gforth Bernd Paysan <bernd.paysan@gmx.de> - 2015-12-12 02:38 +0100
      Re: props to gforth anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2015-12-12 16:12 +0000
        Re: props to gforth Albert van der Horst <albert@spenarnc.xs4all.nl> - 2015-12-13 11:37 +0000
          Re: props to gforth Bernd Paysan <bernd.paysan@gmx.de> - 2015-12-13 22:20 +0100
  Re: props to gforth hughaguilar96@gmail.com - 2015-12-14 19:47 -0800
    Re: props to gforth beeflo <beeflobill@gmail.com> - 2015-12-16 15:50 -0800

csiph-web