From a7cb1e8d06e62c710c3cdfc4b225e8b4a8c26205 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 2 Jul 2017 16:06:34 -0400
Subject: - Renamed "#Relative" to "#Variable" and "#Absolute" to
 "#Definition".

---
 new-luxc/source/luxc/synthesizer.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'new-luxc/source/luxc/synthesizer.lux')

diff --git a/new-luxc/source/luxc/synthesizer.lux b/new-luxc/source/luxc/synthesizer.lux
index 484864652..bd6220337 100644
--- a/new-luxc/source/luxc/synthesizer.lux
+++ b/new-luxc/source/luxc/synthesizer.lux
@@ -40,7 +40,7 @@
        [#la;Deg      #ls;Deg]
        [#la;Real     #ls;Real]
        [#la;Text     #ls;Text]
-       [#la;Absolute #ls;Definition])
+       [#la;Definition #ls;Definition])
 
       (#la;Product _)
       (#ls;Tuple (L/map (recur +0 resolver num-locals) (&&structure;unfold-tuple exprA)))
@@ -49,7 +49,7 @@
       (let [[tag last? value] (&&structure;unfold-variant choice)]
         (#ls;Variant tag last? (recur +0 resolver num-locals value)))
 
-      (#la;Relative ref)
+      (#la;Variable ref)
       (case ref
         (#;Local register)
         (if (&&function;nested? outer-arity)
@@ -68,7 +68,7 @@
       (let [inputS (recur +0 resolver num-locals inputA)]
         (case (list;reverse branchesA)
           (^multi (^ (list [(#la;BindP input-register)
-                            (#la;Relative (#;Local output-register))]))
+                            (#la;Variable (#;Local output-register))]))
                   (n.= input-register output-register))
           inputS
 
-- 
cgit v1.2.3