Re: [Amforth-devel] words: tuck/under etc

[Kalus M. <mic...@on...>]

Guten Abend Bernard.

Am 15.07.2008 um 03:03 schrieb Bernard Mentink:
> .. does anyone
> have the definition for "tuck" at hand?

: tuck ( w1 w2 – w2 w1 w2 ) \ core-ext “tuck”
   swap over ;

Beispiel aus gforth:

11 22 .s
<2> 11 22  ok
tuck .s
<3> 22 11 22  ok

33 44 .s
<5> 22 11 22 33 44  ok
swap over .s
<6> 22 11 22 44 33 44  ok

Tuck ist nützlich wenn es als code definiert ist, weil die  
Kkombiantion SWAP OVER doch häufiger vorkommt. Ist aber nicht sooo  
dringend das zu implementieren, es sei denn du hättest wirklich sehr  
laufzeitkritischen Code hast.

Grüße, Michael