From 530a14bfe7714f94babdb34c237b88321408a685 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 13 Nov 2017 23:45:12 -0400
Subject: - More refactoring.

---
 new-luxc/source/luxc/lang/analysis/structure.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'new-luxc/source/luxc/lang/analysis/structure.lux')

diff --git a/new-luxc/source/luxc/lang/analysis/structure.lux b/new-luxc/source/luxc/lang/analysis/structure.lux
index b7047e105..e1f4de1d7 100644
--- a/new-luxc/source/luxc/lang/analysis/structure.lux
+++ b/new-luxc/source/luxc/lang/analysis/structure.lux
@@ -217,7 +217,7 @@
       (do @
         [#let [case-size (list;size group)]
          inferenceT (&inference;variant idx case-size variantT)
-         [inferredT valueA+] (&inference;apply-function analyse inferenceT (list valueC))
+         [inferredT valueA+] (&inference;general analyse inferenceT (list valueC))
          temp &scope;next-local]
         (wrap (la;sum idx case-size temp (|> valueA+ list;head maybe;assume))))
 
@@ -303,7 +303,7 @@
       (#;Var _)
       (do @
         [inferenceT (&inference;record recordT)
-         [inferredT membersA] (&inference;apply-function analyse inferenceT membersC)]
+         [inferredT membersA] (&inference;general analyse inferenceT membersC)]
         (wrap (la;product membersA)))
 
       _
-- 
cgit v1.2.3