Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Useful Missing Series! Functions

From: jeff:rebol at: 4-Jul-2001 10:05

> SWAP FUNCTION > > swap: func [ > > series [series!] /local x y > > ] [ > > x: first series y: second series > > remove/part series 2 > > return back back insert series reduce [y x] > > ]
swap: func [series [series!]][ head reverse/part series 2 ]