diff options
Diffstat (limited to 'stdlib/source/lux/meta.lux')
| -rw-r--r-- | stdlib/source/lux/meta.lux | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/lux/meta.lux b/stdlib/source/lux/meta.lux index ec23805c5..1155eaf93 100644 --- a/stdlib/source/lux/meta.lux +++ b/stdlib/source/lux/meta.lux @@ -8,16 +8,18 @@ ["." try (#+ Try)]] [data ["." product] - ["." name ("#@." codec equivalence)] ["." maybe] + ["." text ("#@." monoid equivalence)] + ["." name ("#@." codec equivalence)] [number ["n" nat] ["i" int]] - ["." text ("#@." monoid equivalence)] [collection ["." list ("#@." monoid monad)]]] [macro - ["." code]]]) + ["." code]]] + [/ + ["." location]]) ## (type: (Meta a) ## (-> Lux (Try [Lux a]))) @@ -684,7 +686,7 @@ (do ..monad [location ..location output (<func> token) - #let [_ (log! ($_ text@compose (name@encode (name-of <macro>)) " @ " (.location-description location))) + #let [_ (log! ($_ text@compose (name@encode (name-of <macro>)) " @ " (location.format location))) _ (list@map (|>> code.to-text log!) output) _ (log! "")]] |