diff options
Diffstat (limited to 'stdlib/source/library/lux.lux')
-rw-r--r-- | stdlib/source/library/lux.lux | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index e6aae9218..026b11544 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -5459,8 +5459,10 @@ [location location .let [[module line column] location location (all .text_composite# (text#encoded module) "," (nat#encoded line) "," (nat#encoded column)) - message (all .text_composite# "Undefined behavior @ " location)]] - (in (list (` (..panic! (, (text$ message))))))) + message (all .text_composite# "Undefined behavior at " location)]] + (exec + (.log# (all .text_composite# "WARNING: " message)) + (in (list (` (..panic! (, (text$ message)))))))) _ (failure (..wrong_syntax_error (symbol ..undefined))))))) @@ -5807,7 +5809,8 @@ g!dummy (generated_symbol "g!dummy")] (when body' (list body' labels) - (in (list (recursive_type g!self g!dummy name body') labels)) + (in (list (recursive_type g!self g!dummy name body') + labels)) (list body') (in (list (recursive_type g!self g!dummy name body'))) |