From 706ce9e4916b65c4df5101bd3cc1b4da3b2057af Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Jan 2021 12:58:50 -0400
Subject: Turned I64 and variant creation functions into constructors for JS.

---
 stdlib/source/program/aedifex/artifact/value.lux | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/program/aedifex/artifact/value.lux')

diff --git a/stdlib/source/program/aedifex/artifact/value.lux b/stdlib/source/program/aedifex/artifact/value.lux
index eb5c33c22..3e92dbf16 100644
--- a/stdlib/source/program/aedifex/artifact/value.lux
+++ b/stdlib/source/program/aedifex/artifact/value.lux
@@ -1,25 +1,19 @@
 (.module:
-  [lux (#- Name Type)
+  [lux #*
    [abstract
     [equivalence (#+ Equivalence)]]
    [data
     ["." product]
     ["." text
      ["%" format]]
-    [format
-     ["." xml]]
     [collection
      ["." list ("#\." functor)]]]
    [math
     [number
-     ["n" nat]]]
-   ["." time (#+ Time)
-    ["." instant (#+ Instant)]
-    ["." date (#+ Date)]
-    ["." year]
-    ["." month]]]
+     ["." nat]]]
+   [time
+    ["." instant]]]
   [// (#+ Version)
-   [type (#+ Type)]
    ["." time_stamp (#+ Time_Stamp)]])
 
 (type: #export Build
@@ -35,7 +29,7 @@
   ($_ product.equivalence
       text.equivalence
       instant.equivalence
-      n.equivalence
+      nat.equivalence
       ))
 
 (def: separator
@@ -44,7 +38,7 @@
 (def: snapshot
   "SNAPSHOT")
 
-(def: #export (format [version time_stamp build])
+(def: #export (format (^slots [#version #time_stamp #build]))
   (%.Format Value)
   (%.format (text.replace_all ..snapshot
                               (time_stamp.format time_stamp)
-- 
cgit v1.2.3