diff options
| author | Eduardo Julian | 2015-07-12 21:04:56 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-07-12 21:04:56 -0400 |
| commit | 658ff3e1e7d90ce72c8a02ef4cf7e177d8ac6f86 (patch) | |
| tree | 4ee6b9c0727a7619b1ebb2a50c9db17ada6a35c0 /src/lux/analyser/host.clj | |
| parent | e351122010b5eb5bf8793382a4a4ddcf5fb3a386 (diff) | |
- Added the beginnings of the standard library.
- Fixed several bugs.
Diffstat (limited to 'src/lux/analyser/host.clj')
| -rw-r--r-- | src/lux/analyser/host.clj | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/lux/analyser/host.clj b/src/lux/analyser/host.clj index b9361b8c3..3db4bd16d 100644 --- a/src/lux/analyser/host.clj +++ b/src/lux/analyser/host.clj @@ -352,7 +352,8 @@ ) (defn analyse-jvm-program [analyse ?args ?body] - (|do [=body (&/with-scope "" - (&&env/with-local ?args (&/V "lux;AppT" (&/T &type/List &type/Text)) - (&&/analyse-1 analyse (&/V "lux;AppT" (&/T &type/IO &type/Unit)) ?body)))] - (return (&/|list (&/V "jvm-program" =body))))) + (|let [[_module _name] ?args] + (|do [=body (&/with-scope "" + (&&env/with-local (str _module ";" _name) (&/V "lux;AppT" (&/T &type/List &type/Text)) + (&&/analyse-1 analyse (&/V "lux;AppT" (&/T &type/IO &type/Unit)) ?body)))] + (return (&/|list (&/V "jvm-program" =body)))))) |