From 47417ab258f9d192f4d872c6bea8096348802aa3 Mon Sep 17 00:00:00 2001
From: Son Ho
Date: Wed, 14 Dec 2022 11:03:12 +0100
Subject: Add an SCC.ml file for strongly connected components

---
 compiler/Cps.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/Cps.ml')

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
-- 
cgit v1.2.3