321 - before/after can now come anywhere

This pollutes our traces with all 'system software'. Too much trouble to
keep it out; just lump it for now. Who knows, might even be useful. Most
of the time convert* labels are easy to grep out when debugging.

1 files changed, 17 insertions, 0 deletions

diff --git a/mu.arc.t b/mu.arc.t
index a1f0c90e..542dbfc8 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -2785,9 +2785,26 @@
                 label1
               }
              ])))
+(freeze-functions)
 (if (~iso function*!f1
           '(label1
             ((1 integer) <- copy (0 literal))))
   (prn "F - before/after works inside blocks"))
 
+(reset)
+;? (new-trace "before-after-any-order")
+(add-code '((def f1 [
+              { begin
+                label1
+              }
+             ])
+            (after label1 [
+               ((1 integer) <- copy (0 literal))
+             ])))
+(freeze-functions)
+(if (~iso function*!f1
+          '(label1
+            ((1 integer) <- copy (0 literal))))
+  (prn "F - before/after can come after the function they need to modify"))
+
 (reset)  ; end file with this to persist the trace for the final test