diff options
Diffstat (limited to 'luxc')
| -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] |