General.before should have type 'a * unit -> 'a not 'a * 'b -> 'a.  Thanks to Makarius for pointing that out.
General.before should have type 'a * unit -> 'a not 'a * 'b -> 'a.  Thanks to Makarius for pointing that out.

git-svn-id: 98787b36aaefbae4b30fa755be920954cd25e1e4@1244 ae7d391e-3f74-4a2b-a0db-a8776840fd2a

polyml/polyml,mn200/polyml,polyml/polyml,mn200/polyml,mn200/polyml,dcjm/polyml,polyml/polyml,dcjm/polyml,polyml/polyml,mn200/polyml,dcjm/polyml,dcjm/polyml