diff options
author | Eduardo Julian | 2017-11-14 20:39:03 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-11-14 20:39:03 -0400 |
commit | a3b9b19231047ec6da8decfc7d45db0598622651 (patch) | |
tree | aa15000c734af07ecbe36034dc47f3b1bed6a6af /stdlib/source/lux.lux | |
parent | b88027c19181f24584d5ad1c46fb2443d65edece (diff) |
- Made "lux text clip" work like it used to.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux.lux | 10 |
1 files changed, 2 insertions, 8 deletions
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. |