From b96beb587c11fcfbce86ce2d62351600cf6cad1b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 2 Jul 2022 05:38:27 -0400
Subject: More traditional names for unquoting macros.

---
 stdlib/source/specification/compositor/generation/common.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation/common.lux')

diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux
index ec8adb582..8c3545262 100644
--- a/stdlib/source/specification/compositor/generation/common.lux
+++ b/stdlib/source/specification/compositor/generation/common.lux
@@ -82,7 +82,7 @@
     [param (|> r.i64 (r.only (|>> ("lux i64 =" 0) not)))
      subject r.i64]
     (`` (all _.and
-             (~~ (with_template [<extension> <type> <prepare> <comp> <subject_expr>]
+             (,, (with_template [<extension> <type> <prepare> <comp> <subject_expr>]
                    [(_.property <extension>
                       (|> {synthesis.#Extension <extension> (list (synthesis.i64 subject))}
                           (run (..safe <extension>))
@@ -100,7 +100,7 @@
                                                                                  (n.% (i64.left_shifted 8 1))
                                                                                  (as Int))]
                    ))
-             (~~ (with_template [<extension> <reference> <outputT> <comp>]
+             (,, (with_template [<extension> <reference> <outputT> <comp>]
                    [(_.property <extension>
                       (|> {synthesis.#Extension <extension> (list (synthesis.i64 param)
                                                                   (synthesis.i64 subject))}
@@ -132,7 +132,7 @@
     [param (|> ..simple_frac (r.only (|>> (f.= +0.0) not)))
      subject ..simple_frac]
     (`` (all _.and
-             (~~ (with_template [<extension> <reference> <comp>]
+             (,, (with_template [<extension> <reference> <comp>]
                    [(_.property <extension>
                       (|> {synthesis.#Extension <extension> (list (synthesis.f64 param)
                                                                   (synthesis.f64 subject))}
@@ -145,7 +145,7 @@
                    ["lux f64 /" f./ f.=]
                    ["lux f64 %" f.% f.=]
                    ))
-             (~~ (with_template [<extension> <text>]
+             (,, (with_template [<extension> <text>]
                    [(_.property <extension>
                       (|> {synthesis.#Extension <extension> (list (synthesis.f64 param)
                                                                   (synthesis.f64 subject))}
@@ -161,7 +161,7 @@
                    ["lux f64 =" f.=]
                    ["lux f64 <" f.<]
                    ))
-             (~~ (with_template [<extension> <reference>]
+             (,, (with_template [<extension> <reference>]
                    [(_.property <extension>
                       (|> {synthesis.#Extension <extension> (list)}
                           (run (..safe <extension>))
-- 
cgit v1.2.3