diff options
| author | Eduardo Julian | 2017-02-22 17:51:28 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-02-22 17:51:28 -0400 |
| commit | 34f2995ba2bc86fbd400587b89cc21461ace37fe (patch) | |
| tree | 9c0c2ca2606dec60746f6fb4aac460a8ed3a5b8f /luxc/src | |
| parent | b5783fba01f453f2c165baded5066637405baf2e (diff) | |
- Now making sure custom analysis of per-platform procedures requires that the compiler is running for the correct host platform.
Diffstat (limited to 'luxc/src')
| -rw-r--r-- | luxc/src/lux/analyser.clj | 3 | ||||
| -rw-r--r-- | luxc/src/lux/base.clj | 2 |
2 files changed, 3 insertions, 2 deletions
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] |