• 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

修订版cddb6b8f61aef0c7cfe9efafb2566692a73ff736 (tree)
时间2021-08-11 02:02:43
作者Corbin <cds@corb...>
CommiterCorbin

Log Message

frame: Tiny bit of code cleanup.

更改概述

差异

--- /dev/null
+++ b/frame/.ocamlformat
@@ -0,0 +1 @@
1+profile=compact
--- a/frame/frame.ml
+++ b/frame/frame.ml
@@ -26,8 +26,8 @@ and do_atom s =
2626 match CodeCache.find_opt s !cache with
2727 | Some expr -> expr
2828 | None ->
29- let expr =
30- replace_code (load_sexp (Filename.concat basepath s ^ ".cammy")) in
29+ let fullpath = Filename.concat basepath s ^ ".cammy" in
30+ let expr = replace_code (load_sexp fullpath) in
3131 cache := CodeCache.add s expr !cache ;
3232 expr
3333