diff options
| author | Eduardo Julian | 2015-03-21 18:17:24 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-03-21 18:17:24 -0400 |
| commit | 4f35491020fba914b746b4109f4362de603288bc (patch) | |
| tree | 57e92b255af31340a05fd7a171b82161162d2fac /src/lux/analyser/base.clj | |
| parent | f8d9fae08d28cd4236c545798de48aba0aac028e (diff) | |
- Added module-name aliasing.
Diffstat (limited to 'src/lux/analyser/base.clj')
| -rw-r--r-- | src/lux/analyser/base.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lux/analyser/base.clj b/src/lux/analyser/base.clj index f67b7e281..827d0336e 100644 --- a/src/lux/analyser/base.clj +++ b/src/lux/analyser/base.clj @@ -20,7 +20,7 @@ (exec [output (analyse elem)] (do ;; (prn 'analyse-1 (aget output 0)) (matchv ::M/objects [output] - [["Cons" [x ["Nil" _]]]] + [["lux;Cons" [x ["lux;Nil" _]]]] (return x) [_] @@ -30,7 +30,7 @@ (exec [output (&/flat-map% analyse (&/|list el1 el2))] (do ;; (prn 'analyse-2 (aget output 0)) (matchv ::M/objects [output] - [["Cons" [x ["Cons" [y ["Nil" _]]]]]] + [["lux;Cons" [x ["lux;Cons" [y ["lux;Nil" _]]]]]] (return [x y]) [_] |