diff options
| author | Eduardo Julian | 2022-10-23 19:10:49 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-10-23 19:10:49 -0400 |
| commit | 2fce6d44e0b4ada7ea270ff9a890504edbf8e3a3 (patch) | |
| tree | 7fa035dd99c38400a354d61afb866bca1f4f8a2c /stdlib/source/library/lux.lux | |
| parent | 8c63a525089597af1f9282c76daf97bf2b6058e0 (diff) | |
New Delay type with associated constants + compile-time warning for undefined computations.
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'))) |