[REBOL] A short history of sets ;)

From: nitsch-lists::netcologne::de at: 30-Mar-2004 23:40

REBOL [
      Title: "History-demo"
]
hist: copy/deep[]
curr: copy[]
upd: func[block][
	repend hist[exclude curr block exclude block curr]
	curr: copy/deep block
	? curr ? hist
]
b: copy[]
append b 1 upd b
append b 2 upd b
append b [3 3.1] upd b
remove next b upd b
insert b 4 upd b

print "rebuilding"
curr: copy[]
foreach [rem app] hist[
	curr: exclude curr rem
	append curr app
	? curr
]

  [This is the only message in the thread]