From a3b9b19231047ec6da8decfc7d45db0598622651 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Nov 2017 20:39:03 -0400
Subject: - Made "lux text clip" work like it used to.

---
 stdlib/source/lux.lux | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

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

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 0da0a628a..d70318f83 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -3395,17 +3395,11 @@
 
 (def: (clip1 from text)
   (-> Nat Text (Maybe Text))
-  (let [to ("lux text size" text)]
-    (if (n.<= to from)
-      (#;Some ("lux text clip" text from to))
-      #;None)))
+  ("lux text clip" text from ("lux text size" text)))
 
 (def: (clip2 from to text)
   (-> Nat Nat Text (Maybe Text))
-  (if (and (n.<= ("lux text size" text) to)
-           (n.<= to from))
-    (#;Some ("lux text clip" text from to))
-    #;None))
+  ("lux text clip" text from to))
 
 (def: #export (error! message)
   {#;doc "## Causes an error, with the given error message.
-- 
cgit v1.2.3