8 lines
195 B
Text
8 lines
195 B
Text
(de setH ("Var" Val)
|
|
(when (val "Var")
|
|
(with "Var"
|
|
(=: history (cons @ (: history))) ) )
|
|
(set "Var" Val) )
|
|
|
|
(de restoreH ("Var")
|
|
(set "Var" (pop (prop "Var" 'history))) )
|