From 128ee73027aaa230c30a838d6eda10be757aeb75 Mon Sep 17 00:00:00 2001
From: katherine <ageha@airen-no-jikken.icu>
Date: Fri, 17 Jun 2022 07:02:05 -0700
Subject: adapt utop to new Core / Core_unix split

---
 .ocamlinit | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/.ocamlinit b/.ocamlinit
index 76ad6c0..f03d1c6 100644
--- a/.ocamlinit
+++ b/.ocamlinit
@@ -2,22 +2,23 @@
 #thread;;
 
 #require "core";;
+#require "core_unix";;
 
 open Core;;
 
 #require "lambda-term";;
 
-let path = Sys.getcwd () in
-let home = Sys.home_directory () in
+let path = Core_unix.getcwd () in
+let home = Sys.getenv_exn "HOME" in
 let path =
   if Zed_utf8.starts_with path home then
     Zed_utf8.replace path 0 (Zed_utf8.length home) "~"
   else
     path
 in 
-let user = Unix.getlogin () in
+let user = Core_unix.getlogin () in
 let version = Sys.ocaml_version in
-let host = Unix.gethostname () in
+let host = Core_unix.gethostname () in
 let formatted = LTerm_text.eval
   [B_bold true;
    B_fg (LTerm_style.white); S "┌[";
-- 
cgit v1.2.3