Patch title: Release 93 bulk changes
Abstract:
File: /graphic/misc/str.pli
Key:
    Removed line
    Added line
   
method s count p -> c
  arg Str s ; arg Str p ; arg Int c
  c := 0
  var Int base := 0
  while { var Int offset := (s base s:len) search p -1 ; offset<>(-1) }
    c += 1
    base += offset+p:len

export '. count'