2007-05-26 23:45:07 +00:00

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