RosettaCodeData/Task/Dynamic-variable-names/Oforth/dynamic-variable-names.fth

8 lines
94 B
Forth

: createVar(varname)
"tvar: " varname + eval ;
"myvar" createVar
12 myvar put
myvar at .