@verb #61:"eval_d" this none this rxo #55
@program #61:"eval_d" this none this
":eval_d(code)"
"exactly like :eval except that the d flag is unset"
"Evaluate code with $no_one's permissions (so you won't damage anything)."
"If code does not begin with a semicolon, set this = caller (in the code to be evaluated) and return the value of the first `line' of code.  This means that subsequent lines will not be evaluated at all."
"If code begins with a semicolon, set this = caller and let the code decide for itself when to return a value.  This is how to do multi-line evals."
set_task_perms(this)
exp = args[1]
if (exp[1] != ";" && !index(exp, "return"))
  return $code_utils:eval_d(tostr("this=", caller, "; return ", exp, ";"))
else
  return $code_utils:eval_d(tostr("this=", caller, ";", exp, ";"))
endif
"Last modified by manta (#7165) on Thu Sep 17 19:56:21 1998 EDT."
.