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/spec/compositor/generation/common.lux | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'stdlib/source/spec/compositor/generation') diff --git a/stdlib/source/spec/compositor/generation/common.lux b/stdlib/source/spec/compositor/generation/common.lux index 8ed524efe..c837c30a3 100644 --- a/stdlib/source/spec/compositor/generation/common.lux +++ b/stdlib/source/spec/compositor/generation/common.lux @@ -86,11 +86,11 @@ false) (let [subject ])))] - ["lux i64 to-f64" Frac int-to-frac f/= subject] - ["lux i64 char" Text (|>> (:coerce Nat) text.from-code) text@= (|> subject - (:coerce Nat) - (n/% (i64.left-shift 8 1)) - (:coerce Int))] + ["lux i64 f64" Frac int-to-frac f/= subject] + ["lux i64 char" Text (|>> (:coerce Nat) text.from-code) text@= (|> subject + (:coerce Nat) + (n/% (i64.left-shift 8 1)) + (:coerce Int))] )) (~~ (template [ ] [(_.test @@ -270,7 +270,7 @@ (run (..sanitize "lux text char")) (case> (^multi (#error.Success valueV) [(:coerce (Maybe Int) valueV) (#.Some valueV)]) - (text.contains? ("lux int char" valueV) + (text.contains? ("lux i64 char" valueV) sample-lower) _ -- cgit v1.2.3