From 0c20f4a8362d42572edecb6ef9844b75c4c859f8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 28 Apr 2019 02:09:34 -0400
Subject: Turned all "lux int ???" extensions to "lux i64 ???".

---
 stdlib/source/lux.lux | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index be997fc2e..0e231eb3a 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -6,11 +6,11 @@
          (0)))])
 
 ("lux def" double-quote
- ("lux int char" +34)
+ ("lux i64 char" +34)
  [dummy-cursor (10 (0))])
 
 ("lux def" new-line
- ("lux int char" +10)
+ ("lux i64 char" +10)
  [dummy-cursor (10 (0))])
 
 ("lux def" __paragraph
@@ -1160,7 +1160,7 @@
                         #.Nil))
         (#Function Nat (#Function Nat Nat))
         ("lux coerce" Nat
-         ("lux int *"
+         ("lux i64 *"
           ("lux coerce" Int param)
           ("lux coerce" Int subject))))
 
@@ -2238,10 +2238,10 @@
          (-> Nat Nat Bit)
          (let' [referenceH (high-bits reference)
                 sampleH (high-bits sample)]
-               (if ("lux int <" referenceH sampleH)
+               (if ("lux i64 <" referenceH sampleH)
                  #1
                  (if ("lux i64 =" referenceH sampleH)
-                   ("lux int <"
+                   ("lux i64 <"
                     (low-bits reference)
                     (low-bits sample))
                    #0))))
@@ -2370,7 +2370,7 @@
               #1
               (<eq-proc> reference sample)))]
 
-  [ Int "lux i64 =" "lux int <"   i/= i/< i/<= i/> i/>=
+  [ Int "lux i64 =" "lux i64 <"   i/= i/< i/<= i/> i/>=
    "Int(eger) equivalence." "Int(eger) less-than." "Int(eger) less-than-equal." "Int(eger) greater-than." "Int(eger) greater-than-equal."]
   
   [Frac "lux f64 =" "lux f64 <" f/= f/< f/<= f/> f/>=
@@ -2381,15 +2381,15 @@
          (list [(tag$ ["lux" "doc"])
                 (text$ "Nat(ural) division.")])
          (-> Nat Nat Nat)
-         (if ("lux int <" +0 ("lux coerce" Int param))
+         (if ("lux i64 <" +0 ("lux coerce" Int param))
            (if (n/< param subject)
              0
              1)
            (let' [quotient (|> subject
                                ("lux i64 logical-right-shift" 1)
-                               ("lux int /" ("lux coerce" Int param))
+                               ("lux i64 /" ("lux coerce" Int param))
                                ("lux i64 left-shift" 1))
-                  flat ("lux int *"
+                  flat ("lux i64 *"
                         ("lux coerce" Int param)
                         ("lux coerce" Int quotient))
                   remainder ("lux i64 -" flat subject)]
@@ -2402,7 +2402,7 @@
                 (text$ "Nat(ural) [division remainder].")])
          (-> Nat Nat (#Product Nat Nat))
          (let' [div (n// param subject)
-                flat ("lux int *"
+                flat ("lux i64 *"
                       ("lux coerce" Int param)
                       ("lux coerce" Int div))]
                [div ("lux i64 -" flat subject)]))
@@ -2411,7 +2411,7 @@
          (list [(tag$ ["lux" "doc"])
                 (text$ "Nat(ural) remainder.")])
          (-> Nat Nat Nat)
-         (let' [flat ("lux int *"
+         (let' [flat ("lux i64 *"
                       ("lux coerce" Int param)
                       ("lux coerce" Int (n// param subject)))]
                ("lux i64 -" flat subject)))
@@ -2437,9 +2437,9 @@
             (-> <type> <type> <type>)
             (<op> param subject))]
 
-  [ Int i/* "lux int *" "Int(eger) multiplication."]
-  [ Int i// "lux int /" "Int(eger) division."]
-  [ Int i/% "lux int %" "Int(eger) remainder."]
+  [ Int i/* "lux i64 *" "Int(eger) multiplication."]
+  [ Int i// "lux i64 /" "Int(eger) division."]
+  [ Int i/% "lux i64 %" "Int(eger) remainder."]
 
   [Frac f/+ "lux f64 +" "Frac(tion) addition."]
   [Frac f/- "lux f64 -" "Frac(tion) substraction."]
@@ -2457,12 +2457,12 @@
                 paramH (high-bits param)
                 paramL (low-bits param)
                 bottom (|> subjectL
-                           ("lux int *" paramL)
+                           ("lux i64 *" paramL)
                            ("lux i64 logical-right-shift" 32))
                 middle ("lux i64 +"
-                        ("lux int *" paramL subjectH)
-                        ("lux int *" paramH subjectL))
-                top ("lux int *" subjectH paramH)]
+                        ("lux i64 *" paramL subjectH)
+                        ("lux i64 *" paramH subjectL))
+                top ("lux i64 *" subjectH paramH)]
                (|> bottom
                    ("lux i64 +" middle)
                    high-bits
@@ -2495,8 +2495,8 @@
                   shift ("lux i64 -" trailing-zeroes 64)
                   numerator ("lux i64 left-shift" shift 1)]
                  (|> ("lux coerce" Int numerator)
-                     ("lux int /" ("lux coerce" Int denominator))
-                     ("lux int *" ("lux coerce" Int subject))
+                     ("lux i64 /" ("lux coerce" Int denominator))
+                     ("lux i64 *" ("lux coerce" Int subject))
                      ("lux coerce" Rev)))))
 
 (def:''' #export (r/% param subject)
@@ -2512,7 +2512,7 @@
                 (text$ "Rev(olution) scale.")])
          (-> Nat Rev Rev)
          (|> ("lux coerce" Int subject)
-             ("lux int *" ("lux coerce" Int param))
+             ("lux i64 *" ("lux coerce" Int param))
              ("lux coerce" Rev)))
 
 (def:''' #export (r/reciprocal numerator)
@@ -5184,7 +5184,7 @@
      (<proc> n))]
 
   [frac-to-int Frac Int  "lux f64 i64"]
-  [int-to-frac Int  Frac "lux int f64"]
+  [int-to-frac Int  Frac "lux i64 f64"]
   )
 
 (def: (find-baseline-column code)
-- 
cgit v1.2.3