aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/data/format/css/value.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/library/lux/data/format/css/value.lux')
-rw-r--r--stdlib/source/library/lux/data/format/css/value.lux24
1 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/library/lux/data/format/css/value.lux b/stdlib/source/library/lux/data/format/css/value.lux
index 8318ffe71..ae3a15195 100644
--- a/stdlib/source/library/lux/data/format/css/value.lux
+++ b/stdlib/source/library/lux/data/format/css/value.lux
@@ -963,9 +963,9 @@
[(def: .public (<name> angle start next)
(-> Angle Stop (List/1 [(Maybe Hint) Stop]) (Value Image))
(let [[now after] next]
- (..apply <function> (list& (representation Angle angle)
- (with_hint now)
- (list#each with_hint after)))))]
+ (..apply <function> (partial_list (representation Angle angle)
+ (with_hint now)
+ (list#each with_hint after)))))]
[linear_gradient "linear-gradient"]
[repeating_linear_gradient "repeating-linear-gradient"]
@@ -1080,9 +1080,9 @@
after_extent)
where (format (..shape shape) " " with_extent)
[now after] next]
- (..apply <function> (list& (..shape shape)
- (with_hint now)
- (list#each with_hint after)))))]
+ (..apply <function> (partial_list (..shape shape)
+ (with_hint now)
+ (list#each with_hint after)))))]
[radial_gradient "radial-gradient"]
[repeating_radial_gradient "repeating-radial-gradient"]
@@ -1096,12 +1096,12 @@
(let [with_inset (if inset?
(list "inset")
(list))]
- (|> (list& (representation horizontal)
- (representation vertical)
- (|> blur (maybe.else ..default_shadow_length) representation)
- (|> spread (maybe.else ..default_shadow_length) representation)
- (representation color)
- with_inset)
+ (|> (partial_list (representation horizontal)
+ (representation vertical)
+ (|> blur (maybe.else ..default_shadow_length) representation)
+ (|> spread (maybe.else ..default_shadow_length) representation)
+ (representation color)
+ with_inset)
(text.interposed " ")
abstraction)))