215
@verb #7165:"fix_french" this none this rxdo #7165
@program #7165:"fix_french" this none this
caller_perms().wizard || raise(E_PERM)
for x in [this.now_fixing[1]..max_object()]
  for y in ($set_utils:difference(x:all_properties(x), {"location", "contents", "wizard", "programmer"}))
    this.now_fixing = {x, y}
    if (!is_clear_property(x, y))
      x.(y) = this:fix_french_value(x.(y))
    endif
    $command_utils:suspend_if_needed()
  endfor
endfor
"Last modified by Dax (#789) on Sat May 16 14:20:33 1998 EDT."
.

0