In article <49736c0ec0e34ca5d67f4e0d6e8cbe2a080e38ab@i2pn2.org>,   
   dxf wrote:   
   >On 31/01/2025 4:42 am, Hans Bezemer wrote:   
   >> The lot of you have contributed to this episode - by discussing the   
   previous episode on local variables.   
   >>   
   >> I thank you for your comments - and decided it was worth its own episode:   
   https://youtu.be/FH4tWf9vPrA   
   >>   
   >> More than worth! ;-)   
   >   
   >Thanks Hans!   
   >   
   >Not sure if previously mentioned but here's another version of LOCAL   
   >   
   >: ;: >r ;   
   >   
   >: LOCAL ( x adr -- )   
   > r> -rot dup @ over 2>r ! ;: 2r> ! ;   
   >   
   >variable A variable B 8 a ! 7 b !   
   >   
   >: divide ( a b -- ) b local a local   
   > a @ b @ / . cr ;   
   >   
   >15 3 divide a ? b ?   
      
   I hate TUCK but this code could benefit from RTUCK   
      
   : RTUCK R> >R >R ;   
   Obviously this must be low level.   
      
   Groetjes Albert   
   >   
   >   
   >   
   --   
   Temu exploits Christians: (Disclaimer, only 10 apostles)   
   Last Supper Acrylic Suncatcher - 15Cm Round Stained Glass- Style Wall   
   Art For Home, Office And Garden Decor - Perfect For Windows, Bars,   
   And Gifts For Friends Family And Colleagues.   
      
   --- SoupGate-DOS v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|