From 34f2995ba2bc86fbd400587b89cc21461ace37fe Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 22 Feb 2017 17:51:28 -0400
Subject: - Now making sure custom analysis of per-platform procedures requires
 that the compiler is running for the correct host platform.

---
 luxc/src/lux/analyser.clj | 3 ++-
 luxc/src/lux/base.clj     | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/analyser.clj b/luxc/src/lux/analyser.clj
index 280085777..5f35d3c25 100644
--- a/luxc/src/lux/analyser.clj
+++ b/luxc/src/lux/analyser.clj
@@ -134,7 +134,8 @@
                                    (&/$Nil))) parameters]
             (&/with-analysis-meta cursor exo-type
               (case ?category
-                "jvm" (&&jvm/analyse-host analyse exo-type compilers ?proc ?args)
+                "jvm" (|do [_ &/jvm-host]
+                        (&&jvm/analyse-host analyse exo-type compilers ?proc ?args))
                 ;; "js"
                 ;; common
                 (&&common/analyse-proc analyse exo-type ?category ?proc ?args))
diff --git a/luxc/src/lux/base.clj b/luxc/src/lux/base.clj
index df4fb293f..27de43765 100644
--- a/luxc/src/lux/base.clj
+++ b/luxc/src/lux/base.clj
@@ -731,7 +731,7 @@
             (return* compiler host-data)
 
             _
-            (fail* "[Error] Wrong host."))))
+            ((fail-with-loc "[Error] Wrong host.") compiler))))
 
     (def <ask>
       (fn [compiler]
-- 
cgit v1.2.3