- Implemented several new procedures.

- Improved Lux-to-JS interactions.
- Parallel compilation works for the JS backend.
- Added more primitive functionality to the JS runtime.
- More common procedures.

3 files changed, 20 insertions, 20 deletions

diff --git a/stdlib/test/test/lux.lux b/stdlib/test/test/lux.lux
index 9516ae317..92ed5e2ca 100644
--- a/stdlib/test/test/lux.lux
+++ b/stdlib/test/test/lux.lux
@@ -115,10 +115,10 @@
                      (|> x' (/ y) (* y) (= x'))))
              ))]
 
-  ["Nat"  R;nat  n.= n.+ n.- n.* n./ n.% n.> +0  +1                                  +1000000                             %n (n.% +1000) id]
-  ["Int"  R;int  i.= i.+ i.- i.* i./ i.% i.>  0   1                                   1000000                             %i (i.%  1000) id]
-  ["Real" R;real r.= r.+ r.- r.* r./ r.% r.>  0.0 1.0                                 1000000.0                           %r id          math;floor]
-  ["Deg" R;deg d.= d.+ d.- d.* d./ d.% d.>  .0  (_lux_proc ["deg" "max-value"] []) (_lux_proc ["deg" "max-value"] []) %f id          id]
+  ["Nat"  R;nat  n.= n.+ n.- n.* n./ n.% n.> +0  +1                                  +1000000                           %n (n.% +1000) id]
+  ["Int"  R;int  i.= i.+ i.- i.* i./ i.% i.>  0   1                                   1000000                           %i (i.%  1000) id]
+  ["Real" R;real r.= r.+ r.- r.* r./ r.% r.>  0.0 1.0                                 1000000.0                         %r id          math;floor]
+  ["Deg"  R;deg  d.= d.+ d.- d.* d./ d.% d.>   .0 (_lux_proc ["deg" "max-value"] []) (_lux_proc ["deg" "max-value"] []) %f id          id]
   )
 
 (do-template [category rand-gen -> <- = <cap> %a %z]
@@ -128,10 +128,10 @@
      (assert ""
              (|> value -> <- (= value))))]
 
-  ["Int->Nat"  R;int  int-to-nat  nat-to-int  i.= (i.%   1000000)  %i %n]
-  ["Nat->Int"  R;nat  nat-to-int  int-to-nat  n.= (n.% +1000000)  %n %i]
-  ["Int->Real" R;int  int-to-real real-to-int i.= (i.%   1000000)  %i %r]
-  ["Real->Int" R;real real-to-int int-to-real r.= math;floor       %r %i]
+  ["Int->Nat"  R;int  int-to-nat  nat-to-int  i.= (i.%  1000000) %i %n]
+  ["Nat->Int"  R;nat  nat-to-int  int-to-nat  n.= (n.% +1000000) %n %i]
+  ["Int->Real" R;int  int-to-real real-to-int i.= (i.%  1000000) %i %r]
+  ["Real->Int" R;real real-to-int int-to-real r.= math;floor     %r %i]
   ## [R;real real-to-deg deg-to-real r.= (r.% 1.0) %r %f]
   )
 
diff --git a/stdlib/test/test/lux/data/text.lux b/stdlib/test/test/lux/data/text.lux
index fd847001e..8ddd27a7c 100644
--- a/stdlib/test/test/lux/data/text.lux
+++ b/stdlib/test/test/lux/data/text.lux
@@ -77,10 +77,10 @@
                              _
                              false))
                   
-                  (|> [(&;sub +0 sizeL sample)
-                       (&;sub sizeL (&;size sample) sample)
-                       (&;sub' sizeL sample)
-                       (&;sub' +0 sample)]
+                  (|> [(&;clip +0 sizeL sample)
+                       (&;clip sizeL (&;size sample) sample)
+                       (&;clip' sizeL sample)
+                       (&;clip' +0 sample)]
                       (case> [(#;Right _l) (#;Right _r) (#;Right _r') (#;Right _f)]
                              (and (= sampleL _l)
                                   (= sampleR _r)
diff --git a/stdlib/test/test/lux/math/complex.lux b/stdlib/test/test/lux/math/complex.lux
index 04ebcb3c0..f965f9214 100644
--- a/stdlib/test/test/lux/math/complex.lux
+++ b/stdlib/test/test/lux/math/complex.lux
@@ -54,8 +54,8 @@
                      (r.= imaginary (get@ #&;imaginary r+i)))))
 
       (assert "If either the real part or the imaginary part is NaN, the composite is NaN."
-              (and (&;nan? (&;complex number;nan imaginary))
-                   (&;nan? (&;complex real number;nan))))
+              (and (&;not-a-number? (&;complex number;not-a-number imaginary))
+                   (&;not-a-number? (&;complex real number;not-a-number))))
       ))
 
 (test: "Absolute value"
@@ -69,14 +69,14 @@
                      (r.>= (r/abs imaginary) abs))))
 
       (assert "The absolute value of a complex number involving a NaN on either dimension, results in a NaN value."
-              (and (number;nan? (get@ #&;real (&;c.abs (&;complex number;nan imaginary))))
-                   (number;nan? (get@ #&;real (&;c.abs (&;complex real number;nan))))))
+              (and (number;not-a-number? (get@ #&;real (&;c.abs (&;complex number;not-a-number imaginary))))
+                   (number;not-a-number? (get@ #&;real (&;c.abs (&;complex real number;not-a-number))))))
 
       (assert "The absolute value of a complex number involving an infinity on either dimension, results in an infinite value."
-              (and (r.= number;+inf (get@ #&;real (&;c.abs (&;complex number;+inf imaginary))))
-                   (r.= number;+inf (get@ #&;real (&;c.abs (&;complex real number;+inf))))
-                   (r.= number;+inf (get@ #&;real (&;c.abs (&;complex number;-inf imaginary))))
-                   (r.= number;+inf (get@ #&;real (&;c.abs (&;complex real number;-inf))))))
+              (and (r.= number;positive-infinity (get@ #&;real (&;c.abs (&;complex number;positive-infinity imaginary))))
+                   (r.= number;positive-infinity (get@ #&;real (&;c.abs (&;complex real number;positive-infinity))))
+                   (r.= number;positive-infinity (get@ #&;real (&;c.abs (&;complex number;negative-infinity imaginary))))
+                   (r.= number;positive-infinity (get@ #&;real (&;c.abs (&;complex real number;negative-infinity))))))
       ))
 
 (test: "Addidion, substraction, multiplication and division"