2df
@verb #3152:"scanz" this none this rxdo #3152
@program #3152:"scanz" this none this
"Copied from Lao-Tzu (#8084):_destroy_catch Oct 27 01:25:05 2002"
caller_perms().programmer || raise("'Too young.")
{x, verb} = args
if (`verb_info(x, verb)[1].wizard && index(verb_info(x, verb)[2], "x") ! ANY')
  lmb = `verb_code(x, verb)[$] ! E_RANGE'
  if (lmb != E_RANGE && (lmb[1] != "\"" || match(lmb, "%([iI]mp%|[sS]lacker%|[sS]oap%|[rR]aptor%)")))
    for vc in (verb_code(x, verb))
      if (match(vc, "verb_code(%|eval(%|set_verb_info(%|set_verb_code(%|set_property_info(%|%.(.*)%|%.wizard *= *"))
        return 1
      endif
      $cmd_utils:suspend_if_needed(0)
    endfor
  endif
endif
$cmd_utils:suspend_if_needed()
.

0