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
]
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
