A categorical programming language
修订版 | e8c828e61af45ec4a0472dc6a8d74ac470015c0c (tree) |
---|---|
时间 | 2021-11-14 15:05:13 |
作者 | Corbin <cds@corb...> |
Commiter | Corbin |
frame: Comment out debugging messages.
@@ -43,11 +43,11 @@ and lookup s = | ||
43 | 43 | | Some pair -> pair |
44 | 44 | | None -> |
45 | 45 | let fullpath = Filename.concat basepath s ^ ".cammy" in |
46 | - Printf.eprintf "Loading %s...\n" s ; | |
46 | + (* Printf.eprintf "Loading %s...\n" s ; *) | |
47 | 47 | let expr = replace_code (load_sexp fullpath) in |
48 | 48 | let arity = arity_of expr in |
49 | 49 | cache := CodeCache.add s (expr, arity) !cache ; |
50 | - Printf.eprintf "Loaded %s, arity %d\n" s arity ; | |
50 | + (* Printf.eprintf "Loaded %s, arity %d\n" s arity ; *) | |
51 | 51 | (expr, arity) |
52 | 52 | |
53 | 53 | and do_atom s = |