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

[REBOL] /Core 2.5 and rejoin

From: jelinem1::nationwide::com at: 26-Mar-2001 14:02

I just KNOW if I upgrade I'll break my MUD server in itsy-bitsy pieces. I'll do so eventually, when I get brave enough... I liked some of the things I'd read in the preliminary docs, but does 2.5 also add a /with refinement to rejoin? IMO that seemed like one of those obvious oversights once you release the initial product. Until this comes out in /Core here's mine (cf. the current source of rejoin): rejoin: func [ "Reduces and joins a block of values - allows /with refinement." block [block!] "Values to reduce and join" /with join-thing "Value to place in between each element" ][ block: reduce block if with [ while [not tail? block: next block][insert block join-thing block: next block] block: head block ] append either series? first block [copy first block] [form first block] next block ] - Michael Jelinek