9 lines
195 B
Text
9 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))) )
|