diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/type.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux index 950d71c63..ed808b8e9 100644 --- a/stdlib/source/library/lux/type.lux +++ b/stdlib/source/library/lux/type.lux @@ -245,12 +245,12 @@ _ #.None))) -(def: #export (to_code type) +(def: #export (code type) (-> Type Code) (case type (#.Primitive name params) (` (#.Primitive (~ (code.text name)) - (.list (~+ (list\map to_code params))))) + (.list (~+ (list\map code params))))) (^template [<tag>] [(<tag> idx) @@ -259,8 +259,8 @@ (^template [<tag>] [(<tag> left right) - (` (<tag> (~ (to_code left)) - (~ (to_code right))))]) + (` (<tag> (~ (code left)) + (~ (code right))))]) ([#.Sum] [#.Product] [#.Function] [#.Apply]) (#.Named name sub_type) @@ -268,8 +268,8 @@ (^template [<tag>] [(<tag> env body) - (` (<tag> (.list (~+ (list\map to_code env))) - (~ (to_code body))))]) + (` (<tag> (.list (~+ (list\map code env))) + (~ (code body))))]) ([#.UnivQ] [#.ExQ]) )) @@ -395,7 +395,7 @@ (do meta.monad [location meta.location valueT (meta.type valueN) - #let [_ ("lux io log" + .let [_ ("lux io log" ($_ text\compose (name\encode (name_of ..:log!)) " " (location.format location) text.new_line "Expression: " (case valueC |