changeset 43761 | e72ba84ae58f |
parent 39232 | 69c6d3e87660 |
child 44198 | a41ea419de68 |
--- a/src/Pure/Concurrent/lazy_sequential.ML Mon Jul 11 22:50:29 2011 +0200 +++ b/src/Pure/Concurrent/lazy_sequential.ML Mon Jul 11 22:55:47 2011 +0200 @@ -23,7 +23,7 @@ | Result res => SOME res); fun lazy e = Lazy (Unsynchronized.ref (Expr e)); -fun value a = Lazy (Unsynchronized.ref (Result (Exn.Result a))); +fun value a = Lazy (Unsynchronized.ref (Result (Exn.Res a))); (* force result *)