diff options
| author | Eduardo Julian | 2016-05-03 02:10:48 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2016-05-03 02:10:48 -0400 |
| commit | 7386dbd399d62e252c233c6f6a533848a9c18a0f (patch) | |
| tree | 4428fd096b5d57c77e1302c69951e1f968e3282b /src/lux/analyser/host.clj | |
| parent | a67cdf04aadb9876a995aab4331001e2f4e19e6c (diff) | |
- Simplified the Analysis type.
- Renamed _jvm_program to _lux_program.
Diffstat (limited to '')
| -rw-r--r-- | src/lux/analyser/host.clj | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj index 8b691ea67..c036c7d0c 100644 --- a/src/lux/analyser/host.clj +++ b/src/lux/analyser/host.clj @@ -1031,12 +1031,3 @@ ;; else (fail (str "[Analyser Error] Unknown host procedure: " [category proc])))) - -(let [input-type (&/$AppT &type/List &type/Text) - output-type (&/$AppT &type/IO &/$UnitT)] - (defn analyse-jvm-program [analyse compile-statement ?args ?body] - (|do [=body (&/with-scope "" - (&&env/with-local ?args input-type - (&&/analyse-1 analyse output-type ?body))) - _ (compile-statement (&&/$jvm-program =body))] - (return &/$Nil)))) |