From 018d1489e6fc0c6363442033abd674f287e6f5cd Mon Sep 17 00:00:00 2001
From: Xander <xander@biltopia.org>
Date: Thu, 27 Jul 2023 23:03:21 +0200
Subject: name change to initializable

---
 lib/DATS/init.dats   |  4 ++--
 lib/DATS/writer.dats | 11 ++++++-----
 2 files changed, 8 insertions(+), 7 deletions(-)

(limited to 'lib/DATS')

diff --git a/lib/DATS/init.dats b/lib/DATS/init.dats
index 3bc5034..492d5dc 100644
--- a/lib/DATS/init.dats
+++ b/lib/DATS/init.dats
@@ -2,8 +2,8 @@ staload "lib/SATS/init.sats"
 
 #define ATS_DYNLOADFLAG 0
 
-implement {vt:viewt@ype} empty (v) =
+implement {vt:viewt@ype} uninitialized (v) =
 let
 in
-  @{enabled = false, obj = v}: enablable vt
+  @{initialized = false, obj = v}: initializable vt
 end
diff --git a/lib/DATS/writer.dats b/lib/DATS/writer.dats
index 92314b7..d5a327b 100644
--- a/lib/DATS/writer.dats
+++ b/lib/DATS/writer.dats
@@ -84,9 +84,10 @@ in
     // Static variable
     var _writer : writer_t?
     prval () = opt_none _writer
-    var writer = empty<writer_t>(_writer)
+    var writer = uninitialized<writer_t>(_writer)
   in
-    val writer_ref = ref_make_viewptr{enablable writer_t} (view@writer | addr@writer)
+    // Reference to writer
+    val writer_ref = ref_make_viewptr{initializable writer_t} (view@writer | addr@writer)
   end
 
   in
@@ -95,7 +96,7 @@ in
       val (vbox pf | p) = ref_get_viewptr(writer_ref)
       implement string_foreach$fwork<writer_t> (c,env) = put_char(c,env)
     in  
-      if p->enabled then let
+      if p->initialized then let
           prval () = opt_unsome p->obj 
           val _ = $effmask_ref(string_foreach_env<writer_t> (g1ofg0(str),p->obj))
           prval () = opt_some p->obj
@@ -106,7 +107,7 @@ in
     implement clear_screen() : void = let
       val (vbox pf | p) = ref_get_viewptr(writer_ref)
     in
-      if p->enabled then 
+      if p->initialized then 
         let
           prval () = opt_unsome p->obj
           val () = _clear_screen(p->obj)
@@ -117,7 +118,7 @@ in
         let
           prval () = opt_unnone p->obj
           val () = p->obj := @{position = 0, color_code = code_value(White,Black)}
-          val () = p->enabled := true
+          val () = p->initialized := true
           val () = _clear_screen(p->obj)
           prval () = opt_some p->obj
         in
-- 
cgit v1.2.3