15 lines
197 B
Modula-2
15 lines
197 B
Modula-2
#permission=0
|
|
|
|
SET,vn #${@caller}::${@def}
|
|
|
|
IF ?{NOT ?{ISSET ${vn}}}
|
|
OUT * Var '${@def}' not defined.
|
|
RETURN
|
|
ENDIF
|
|
|
|
SET,vv ${${vn}}
|
|
OUT * Var '${@def}' = '${vv}'
|
|
|
|
UNSET vv
|
|
UNSET vn
|