Source file `pp_tokens.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
(*
 The MIT License                                                                                                                                 
                                                                                                                                                 
 Copyright (c) 2020 Jason D. Nielsen <drjdnielsen@gmail.com>
 *)

open Tokens
open Sexp_pretty

let pp_tok_sexp tok =
  print_string (sexp_to_string (sexp_of_token tok))

let pp_tok_show tok = print_string (show_token tok)