suggestions for word names?

From	Marcos Cruz <null_email_so_use_my_contact_page@programandala.net>
Newsgroups	comp.lang.forth
Subject	suggestions for word names?
Date	2014-02-14 20:15 +0000
Organization	Aioe.org NNTP Server
Message-ID	<ldlthk$bga$1@speranza.aioe.org> (permalink)

Show all headers | View raw

I'm using the following two pieces of code in several words of mine:

  2>r dup dup 2r>  ( x1 x2 x3 -- x1 x1 x1 x2 x3 )

  >r dup dup r>  ( x1 x2 -- x1 x1 x1 x2 )

Each of them is used in two or three words (customized versions of 'of',
e.g.  'within-of', 'greater-of', etc.), and the list is expected to
grow, so they are good candidates for factoring.

Does anybody know any words (common usage or provided by any Forth
system or library), that do the same than those code pieces?

Otherwise, what word names would you choose in order to reuse those code
pieces in any context?

So far 'dup-dup-third' and 'dup-dup-second' are the "a bit less awful"
names I have thougth, though they are longer than the code!. No shorter
name, with conventional Forth characters, makes sense to me yet.
Perhaps there's no good general name for a too specific code.

Thank you.

-- 
Marcos Cruz
http://programandala.net

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

Thread

suggestions for word names? Marcos Cruz <null_email_so_use_my_contact_page@programandala.net> - 2014-02-14 20:15 +0000
  Re: suggestions for word names? "Elizabeth D. Rather" <erather@forth.com> - 2014-02-14 10:30 -1000
    Re: suggestions for word names? Marcos Cruz <null_email_so_use_my_contact_page@programandala.net> - 2014-02-14 22:07 +0000
      Re: suggestions for word names? humptydumpty <ouatubi@gmail.com> - 2014-02-15 10:00 -0800
        Re: suggestions for word names? Stefan Mauerhofer <smauerhofer@androsoft.ch> - 2014-02-18 05:04 -0800
          Re: suggestions for word names? m.a.m.hendrix@tue.nl - 2014-02-18 05:45 -0800
          Re: suggestions for word names? "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2014-02-18 18:17 -0500
            Re: suggestions for word names? Stefan Mauerhofer <smauerhofer@androsoft.ch> - 2014-02-18 21:38 -0800
            Re: suggestions for word names? Mark Wills <markrobertwills@yahoo.co.uk> - 2014-02-19 02:00 -0800
              Re: suggestions for word names? Paul Rubin <no.email@nospam.invalid> - 2014-02-19 02:44 -0800
              Re: suggestions for word names? albert@spenarnc.xs4all.nl (Albert van der Horst) - 2014-02-19 20:13 +0000
          Re: suggestions for word names? Andrew Haley <andrew29@littlepinkcloud.invalid> - 2014-02-19 03:49 -0600
    Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-15 14:55 +0100
  Re: suggestions for word names? "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2014-02-14 20:44 -0500
    Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-15 14:52 +0100
      Re: suggestions for word names? Coos Haak <chforth@hccnet.nl> - 2014-02-15 15:43 +0100
      Re: suggestions for word names? "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2014-02-15 12:06 -0500
        Re: suggestions for word names? Coos Haak <chforth@hccnet.nl> - 2014-02-15 18:30 +0100
        Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-18 16:45 +0100
          Re: suggestions for word names? "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2014-02-18 18:17 -0500
            Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-19 09:44 +0100
            Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-19 09:47 +0100
              Re: suggestions for word names? Paul Rubin <no.email@nospam.invalid> - 2014-02-19 01:38 -0800
                Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-19 16:59 +0100
            Re: suggestions for word names? Hans Bezemer <the.beez.speaks@gmail.com> - 2014-02-19 10:11 +0100
              Re: suggestions for word names? "Rod Pemberton" <dont_use_email@xnohavenotit.cnm> - 2014-02-19 05:39 -0500
                Re: suggestions for word names? Stefan Mauerhofer <smauerhofer@androsoft.ch> - 2014-02-19 03:31 -0800
    Re: suggestions for word names? Marcos Cruz <null_email_so_use_my_contact_page@programandala.net> - 2014-02-15 15:41 +0000

csiph-web