Added a fix for async try ... with ... expression continuation.

src/main/FunScript/Core/Async.fs

@@ -85,7 +85,7 @@ type AsyncBuilder() =
                Aux = 
                {
                   k.Aux with
-                     ExceptionCont = catchFunction
+                     ExceptionCont = fun ex -> k.Cont(catchFunction ex)
                }
          }
 

src/tests/FunScript.Tests/AsyncTests.fs

@@ -96,3 +96,31 @@ let ``async use statements should dispose of resources when the go out of scope`
          step2ok := !isDisposed
          !step1ok && !step2ok
       @@>
+
+
+[<Test>]
+let ``Try ... with ... expressions inside async expressions work the same``() =
+    checkAsync
+        <@ 
+            let result = ref ""
+            let throw() : unit =
+                raise(exn "Boo!")
+            let append(x) = 
+                result := !result + x
+            let innerAsync() =
+                async {
+                    append "b"
+                    try append "c"
+                        throw()
+                        append "1"
+                    with _ -> append "d"
+                    append "e"
+                }
+            async { 
+                append "a"
+                try do! innerAsync()
+                with _ -> append "2"
+                append "f"
+                return !result
+            }
+      @>

src/tests/FunScript.Tests/CommonFixture.fs

@@ -32,6 +32,20 @@ let check (quote:Quotations.Expr) =
    let expectedResult = quote.EvalUntyped()
    checkAreEqual expectedResult quote
 
+
+let checkAsync (quote:Quotations.Expr<'a Async>) =
+    let expectedResult = <@ Async.RunSynchronously %quote @>.Eval()
+    let immediateQuote = 
+        <@ 
+            let result = ref None
+            async { 
+                let! v = %quote 
+                result := Some v
+            } |> Async.StartImmediate
+            !result |> Option.get 
+        @>
+    checkAreEqual expectedResult immediateQuote
+
 // TODO:
 // Add support for inheritance.
 // Add support for TypeScript inheritance.