diff options
author | Son Ho | 2022-12-14 11:03:12 +0100 |
---|---|---|
committer | Son HO | 2023-02-03 11:21:46 +0100 |
commit | 47417ab258f9d192f4d872c6bea8096348802aa3 (patch) | |
tree | 3a377f39455429855d28e8c9bdd4cb800147298c /compiler/Cps.ml | |
parent | a5d09658b0c15862b609226d18f072c5d9f1e953 (diff) |
Add an SCC.ml file for strongly connected components
Diffstat (limited to 'compiler/Cps.ml')
-rw-r--r-- | compiler/Cps.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/Cps.ml b/compiler/Cps.ml index a013003e..1e5c0e70 100644 --- a/compiler/Cps.ml +++ b/compiler/Cps.ml @@ -173,7 +173,7 @@ let _ = let comp_transmit (f : ('v -> 'm) -> 'n) (g : 'm -> 'm) : ('v -> 'm) -> 'n = fun cf -> f (fun v -> g (cf v)) -(** Example of use of {!comp_transmit} *) +(** Example of use of {!comp_transmit} - TODO: make "real" unit tests *) let () = let return3 (cf : int -> unit -> unit) (ctx : unit) = cf 3 ctx in let do_nothing (cf : unit -> unit) (ctx : unit) = cf ctx in |