1. Yit Phang Khoo
  2. Adapton.ocaml

Commits

Yit Phang Khoo  committed 825542d

Typo in comments.

  • Participants
  • Parent commits 3cc8b8b
  • Branches default

Comments (0)

Files changed (4)

File Source/Adapton/LazySABidi.ml

View file
         lazy_stack := List.tl !lazy_stack;
         let dependencies = List.rev !dependencies in
 
-        (* receipt/repair performs an truncated inorder traversal of the dependency graph *)
+        (* receipt/repair performs a truncated inorder traversal of the dependency graph *)
         let rec receipt k = repair begin fun () -> k begin match m.thunk with
             | MemoValue ( _, value', _, _, _, _ ) | Value ( _, value', _, _, _ ) | Const ( value', _ ) -> R.equal value' value
             | MemoThunk _ | Thunk _ -> false

File Source/Adapton/LazySABidiObject.ml

View file
             end;
             ( value, receipt )
 
-        (* receipt/repair performs an truncated inorder traversal of the dependency graph *)
+        (* receipt/repair performs a truncated inorder traversal of the dependency graph *)
         method private repair k = match thunk with
             | MemoValue ( _ , _, dependencies, f, _ ) | Value ( _ , _, dependencies, f ) ->
                 let rec repair = function

File Source/Adapton/LazySANaive.ml

View file
         lazy_stack := List.tl !lazy_stack;
         let dependencies = List.rev !dependencies in
 
-        (* receipt/repair performs an truncated inorder traversal of the dependency graph *)
+        (* receipt/repair performs a truncated inorder traversal of the dependency graph *)
         let rec receipt s k = repair s begin fun s -> k s begin match m.thunk with
             | MemoValue ( _, value', _, _, _, _ ) | Value ( _, value', _, _, _ ) | Const ( value', _ ) -> R.equal value' value
             | MemoThunk _ | Thunk _ -> false

File Source/Adapton/LazySAObject.ml

View file
             end;
             ( value, receipt )
 
-        (* receipt/repair performs an truncated inorder traversal of the dependency graph *)
+        (* receipt/repair performs a truncated inorder traversal of the dependency graph *)
         method private repair s k = match thunk with
             | MemoValue ( _ , _, dependencies, f, _ ) | Value ( _ , _, dependencies, f ) ->
                 let id = Oo.id self in