From 2fce6d44e0b4ada7ea270ff9a890504edbf8e3a3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 23 Oct 2022 19:10:49 -0400
Subject: New Delay type with associated constants + compile-time warning for
 undefined computations.

---
 stdlib/source/library/lux.lux | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/library/lux.lux')

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')))
-- 
cgit v1.2.3