diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/debug.lux | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/stdlib/source/lux/debug.lux b/stdlib/source/lux/debug.lux index 4ddcd18dd..cb136f810 100644 --- a/stdlib/source/lux/debug.lux +++ b/stdlib/source/lux/debug.lux @@ -10,7 +10,8 @@ ["." try (#+ Try)] ["." exception (#+ exception:)] ["<>" parser - ["<.>" type (#+ Parser)]] + ["<.>" type (#+ Parser)] + ["<.>" code]] pipe] [data ["." text @@ -26,7 +27,9 @@ [duration (#+ Duration)] [date (#+ Date)]] [macro - ["." template]]]) + ["." template] + ["." syntax (#+ syntax:)] + ["." code]]]) (with-expansions [<jvm> (as-is (import: java/lang/String) @@ -289,3 +292,9 @@ (#try.Failure _) (exception.throw ..cannot-represent-value type))) + +(syntax: #export (private {definition <code>.identifier}) + (let [[module _] definition] + (wrap (list (` ("lux in-module" + (~ (code.text module)) + (~ (code.identifier definition)))))))) |