From a5e2f99430384fff580646a553b1e8ae27e07acd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 10 Feb 2021 19:04:18 -0400
Subject: Continuing with Lua

---
 stdlib/source/spec/compositor/generation/common.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 a963cd7f6..baa32674a 100644
--- a/stdlib/source/spec/compositor/generation/common.lux
+++ b/stdlib/source/spec/compositor/generation/common.lux
@@ -251,11 +251,11 @@
                                 _
                                 false))))
         (let [test-clip (: (-> (I64 Any) (I64 Any) Text Bit)
-                           (function (_ from to expected)
+                           (function (_ offset length expected)
                              (|> (#synthesis.Extension "lux text clip"
                                                        (list concatenatedS
-                                                             (synthesis.i64 from)
-                                                             (synthesis.i64 to)))
+                                                             (synthesis.i64 offset)
+                                                             (synthesis.i64 length)))
                                  (run (..sanitize "lux text clip"))
                                  (case> (^multi (#try.Success valueV)
                                                 [(:coerce (Maybe Text) valueV) (#.Some valueV)])
@@ -265,7 +265,7 @@
                                         false))))]
           (_.test "Can clip text to extract sub-text."
                   (and (test-clip 0 sample-size sample-lower)
-                       (test-clip sample-size (n.* 2 sample-size) sample-upper))))
+                       (test-clip sample-size sample-size sample-upper))))
         (_.test "Can extract individual characters from text."
                 (|> (#synthesis.Extension "lux text char"
                                           (list sample-lowerS
-- 
cgit v1.2.3