Updating: very very minorly

githwxi · Sep 9, 2024 · 8c236d5 · 8c236d5
1 parent 1b021bc
commit 8c236d5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/srcgen2/prelude/HATS/prelude_dats.hats b/srcgen2/prelude/HATS/prelude_dats.hats
@@ -67,9 +67,11 @@ This one is included by [DATS/unsfx00.dats]
 #staload _ = "prelude/DATS/char000.dats"
 #staload _ = "prelude/DATS/gint000.dats"
 #staload _ = "prelude/DATS/gint001.dats"
+#staload _ = "prelude/DATS/gflt000.dats"
 (* ****** ****** *)
 #staload _ = "prelude/DATS/strn000.dats"
 #staload _ = "prelude/DATS/strn001.dats"
+(* ****** ****** *)
 #staload _ = "prelude/DATS/axrf000.dats"
 #staload _ = "prelude/DATS/axrf001.dats"
 #staload _ = "prelude/DATS/axsz000.dats"
@@ -97,6 +99,7 @@ This one is included by [DATS/unsfx00.dats]
 #staload _ = "prelude/DATS/VT/gsyn000_vt.dats"
 (* ****** ****** *)
 #staload _ = "prelude/DATS/VT/strn000_vt.dats"
+(* ****** ****** *)
 #staload _ = "prelude/DATS/VT/axrf000_vt.dats"
 #staload _ = "prelude/DATS/VT/axsz000_vt.dats"
 #staload _ = "prelude/DATS/VT/tupl000_vt.dats"

diff --git a/xatslib/githwxi/TEST/CATS/JS/test08_volctrl.dats b/xatslib/githwxi/TEST/CATS/JS/test08_volctrl.dats
@@ -80,7 +80,7 @@ lam(work) =>
 work
 ("Date"    , f0_strn(row[0]));
 work
-("Volume"  , f0_dflt(row[6]));
+("Volume"  , f0_sint(row[6]));
 work
 ("AdjClose", f0_dflt(row[5])))
 ) where
@@ -89,6 +89,10 @@ fun
 f0_strn
 (rep: strn): dtval = DTVstrn(rep)
 fun
+f0_sint
+(rep: strn): dtval =
+DTVsint(head0(g_parse$opt<sint>(rep)))
+fun
 f0_dflt
 (rep: strn): dtval =
 DTVdflt(head0(g_parse$opt<dflt>(rep)))