diff options
| author | Eduardo Julian | 2020-04-20 23:56:15 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-04-20 23:56:15 -0400 |
| commit | f6a2fe158979230dcf2d271981ff34be39c7bffc (patch) | |
| tree | 44e965c67bdf2b1bb9946fc3adcc123357c7b85f /stdlib/source/lux/host.old.lux | |
| parent | 4428345ab84ed065193b8186e86474f496975569 (diff) | |
Added some testing machinery to measure the code coverage of tests.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/host.old.lux | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/stdlib/source/lux/host.old.lux b/stdlib/source/lux/host.old.lux index e5a5b3624..2b62b01b0 100644 --- a/stdlib/source/lux/host.old.lux +++ b/stdlib/source/lux/host.old.lux @@ -369,19 +369,14 @@ (do macro.monad [current-module macro.current-module-name definitions (macro.definitions current-module)] - (wrap (list@fold (: (-> [Text Global] Class-Imports Class-Imports) - (function (_ [short-name constant] imports) - (case constant - (#.Left _) - imports - - (#.Right [_ _ meta _]) - (case (macro.get-text-ann (name-of #..jvm-class) meta) - (#.Some full-class-name) - (add-import [short-name full-class-name] imports) - - _ - imports)))) + (wrap (list@fold (: (-> [Text Definition] Class-Imports Class-Imports) + (function (_ [short-name [_ _ meta _]] imports) + (case (macro.get-text-ann (name-of #..jvm-class) meta) + (#.Some full-class-name) + (add-import [short-name full-class-name] imports) + + _ + imports))) empty-imports definitions))))) (#.Left _) |