提交: cddb6b8f61aef0c7cfe9efafb2566692a73ff736 - cammy (git)

A categorical programming language

Commit MetaInfo

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

Log Message

frame: Tiny bit of code cleanup.

更改概述

• add: frame/.ocamlformat
• modified: frame/frame.ml

差异

--- /dev/null
+++ b/frame/.ocamlformat
@@ -0,0 +1 @@
+profile=compact

--- a/frame/frame.ml
+++ b/frame/frame.ml
@@ -26,8 +26,8 @@ and do_atom s =
     match CodeCache.find_opt s !cache with
     | Some expr -> expr
     | None ->
-        let expr =
-          replace_code (load_sexp (Filename.concat basepath s ^ ".cammy")) in
+        let fullpath = Filename.concat basepath s ^ ".cammy" in
+        let expr = replace_code (load_sexp fullpath) in
         cache := CodeCache.add s expr !cache ;
         expr