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

[Bernard M. <bme...@gm...>]

Thanks Michael,

I don't understand German but I get the code, I had found the definition to
tuck elsewhere, I just wanted to check it was correct.

Also I am still having trouble with the old style forth in the
definition :*perform compile @ compile execute ;
*
Is the solution now to use *: perform postpone @ postpone execute; *??

Cheers,
Bernie

2008/7/16 Kalus Michael <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
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's
> challenge
> Build the coolest Linux based applications with Moblin SDK & win great
> prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Amforth-devel mailing list
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>