• R/O
  • HTTP
  • SSH
  • HTTPS

提交

标签
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-cqtcocoa誰得pythonphprubygameguibathyscaphec翻訳計画中(planning stage)omegatframeworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

A categorical programming language


Commit MetaInfo

修订版e8c828e61af45ec4a0472dc6a8d74ac470015c0c (tree)
时间2021-11-14 15:05:13
作者Corbin <cds@corb...>
CommiterCorbin

Log Message

frame: Comment out debugging messages.

更改概述

差异

--- a/frame/frame.ml
+++ b/frame/frame.ml
@@ -43,11 +43,11 @@ and lookup s =
4343 | Some pair -> pair
4444 | None ->
4545 let fullpath = Filename.concat basepath s ^ ".cammy" in
46- Printf.eprintf "Loading %s...\n" s ;
46+ (* Printf.eprintf "Loading %s...\n" s ; *)
4747 let expr = replace_code (load_sexp fullpath) in
4848 let arity = arity_of expr in
4949 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 ; *)
5151 (expr, arity)
5252
5353 and do_atom s =