diff options
| author | Eduardo Julian | 2017-06-23 19:49:35 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-06-23 19:49:35 -0400 |
| commit | a282228247fd1c9c50a082f38d147a47804a905f (patch) | |
| tree | ea4059a950f8f91179dae5a9466891a6b510221d /stdlib/source | |
| parent | bed22d326d1a7555dbcfd589da51a592bfa9113b (diff) | |
- Added #compiler-name back to Compiler-Info.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux.lux | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 1a8d07922..c108428d8 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -597,17 +597,23 @@ default-def-meta-exported))) ## (type: Compiler-Info -## {#compiler-version Text +## {#compiler-name Text +## #compiler-version Text ## #compiler-mode Compiler-Mode}) (_lux_def Compiler-Info (#Named ["lux" "Compiler-Info"] - (#Product ## "lux;compiler-version" + (#Product + ## compiler-name Text - ## "lux;compiler-mode" - Compiler-Mode)) - (#Cons [["lux" "tags"] (#ListA (#Cons (#TextA "compiler-version") - (#Cons (#TextA "compiler-mode") - #Nil)))] + (#Product + ## compiler-version + Text + ## compiler-mode + Compiler-Mode))) + (#Cons [["lux" "tags"] (#ListA (#Cons (#TextA "compiler-name") + (#Cons (#TextA "compiler-version") + (#Cons (#TextA "compiler-mode") + #Nil))))] (#Cons [["lux" "doc"] (#TextA "Information about the current version and type of compiler that is running.")] default-def-meta-exported))) @@ -3530,8 +3536,8 @@ (#ExQ env body) (resolve-type-tags body) - - (#Named [module name] _) + + (#Named [module name] unnamed) (do Monad<Lux> [=module (find-module module) #let [{#module-hash _ #module-aliases _ #defs bindings #imports _ #tags tags #types types #module-anns _ #module-state _} =module]] @@ -3545,7 +3551,7 @@ (return #None)) _ - (return #None))) + (resolve-type-tags unnamed))) _ (return #None))) |