--- a/src/Pure/General/susp.ML Sun Sep 07 22:19:58 2008 +0200 +++ b/src/Pure/General/susp.ML Sun Sep 07 22:20:08 2008 +0200 @@ -15,7 +15,7 @@ val same: 'a T * 'a T -> bool end -structure Susp : SUSP = +structure Susp :> SUSP = struct datatype 'a susp =