diff options
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 |