Update Terminal Lib

Author: Happypig375

Sources/Terminal/AngouriMath.Terminal.Lib/FSharpInteractive.fs

@@ -17,11 +17,9 @@ open AssemblyLoadBuilder
 open AngouriMath.FSharp.Core
 open AngouriMath.InteractiveExtension
 
-
 let options = JsonSerializerOptions ()
 JsonFSharpConverter () |> options.Converters.Add
 
-
 let private objectEncode (o : obj) =
     match o with
     | :? ILatexiseable as latexiseable -> 
@@ -41,34 +39,27 @@ let private objectDecode (s : string Option) =
         JsonSerializer.Deserialize<ExecutionResult> (latex.[EncodingLatexPrefix.Length..], options)
     | _ -> VoidSuccess
 
-
 let execute (kernel : FSharpKernel) code =
     let submitCode = SubmitCode code
     let computed = (kernel.SendAsync submitCode).Result    // Yes. It's Result.
 
     let mutable nonVoidResponse : string Option = None
     let mutable res : ExecutionResult Option = None
 
-    computed.KernelEvents.Subscribe (new Action<KernelEvent>(fun e ->
-                match e with
-                | :? CommandSucceeded ->
-                    res <- objectDecode nonVoidResponse |> Some
-                | :? CommandFailed as failed ->
-                    res <- Error failed.Message |> Some
-                | :? DisplayEvent as display ->
-                    nonVoidResponse <- (Seq.head display.FormattedValues).Value |> Some
-                | _ -> ()
-        ))
-    |> (fun observer -> observer.Dispose())
+    for e in computed.Events do
+        match e with
+        | :? CommandSucceeded ->
+            res <- objectDecode nonVoidResponse |> Some
+        | :? CommandFailed as failed ->
+            res <- Error failed.Message |> Some
+        | :? DisplayEvent as display ->
+            nonVoidResponse <- (Seq.head display.FormattedValues).Value |> Some
+        | _ -> ()
 
     match res with
     | None -> EndOfFile
     | Some res -> res
 
-
-
-
-
 let createKernel () =
     let kernel = new FSharpKernel ()
 
@@ -94,4 +85,4 @@ let createKernel () =
         |> (fun f -> Func<GenericChart.GenericChart, string> f)
         |> (fun f -> 
             Formatter.Register<GenericChart.GenericChart> (f, "text/plain"))
-    }
+    }