From 064e3821221fdb22bf1a556337f2b00377a6186a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 20 Feb 2019 22:37:00 -0400
Subject: Removed statement machinery (has been superseded by common statement
 extensions).

---
 stdlib/source/lux/tool/compiler/phase/extension/statement.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'stdlib/source')

diff --git a/stdlib/source/lux/tool/compiler/phase/extension/statement.lux b/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
index c5ae87050..29602faf7 100644
--- a/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
+++ b/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
@@ -91,16 +91,17 @@
                          (//.lift macro.current-module-name))
          #let [full-name [current-module short-name]]
          [_ annotationsT annotationsV] (evaluate! Code annotationsC)
-         #let [annotationsV (:coerce Code annotationsV)]
+         #let [annotationsV (:coerce Code annotationsV)
+               type-definition? (macro.type? annotationsV)]
          [value//type valueT valueN valueV] (define! full-name
-                                                     (if (macro.type? annotationsV)
+                                                     (if type-definition?
                                                        (#.Some Type)
                                                        #.None)
                                                      valueC)
          _ (statement.lift-analysis
             (do @
               [_ (module.define short-name [value//type annotationsV valueV])]
-              (if (macro.type? annotationsV)
+              (if type-definition?
                 (case (macro.declared-tags annotationsV)
                   #.Nil
                   (wrap [])
-- 
cgit v1.2.3