286
@verb #3135:"waif_new" this none this rxdo #3135
@program #3135:"waif_new" this none this
"Copied from delta (#4133):waif_new Aug 20 22:33:29 2002"
"Copied from WAIF superclass (#141):new by Slacker (#55) Aug 20 22:20:07 2002"
"set_task_perms(caller_perms())"
"w = new_waif()"
w = #8082:new()
if (args)
  for x in (args[1])
    #3135:tell(toliteral(x))
    `w->(x[1]) = x[2] ! E_PERM'
  endfor
endif
"w->initialize(@args[2..$])"
return w
"Last modified by Lao-Tzu (#8084) on Mon Aug 12 08:19:53 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
.

0