OCaml: Implement log contexts

This commit is contained in:
Juno Takano 2025-05-16 22:53:33 -03:00
commit c6c92c0a32
8 changed files with 29 additions and 25 deletions

View file

@ -98,5 +98,5 @@ let scan_line (input: char list): token list =
let scan (char_lists: char lists): token lists =
let tokens = rmap (scan_line) char_lists $: [End] in
elog $ string_of_tokens tokens;
elog ~context:Parsing $ string_of_tokens tokens;
tokens