140's apps written with the frictions gone: inflate's and linebreak's lists declared together, linebreak's 0x2010 and 0x25CC (their modules the same), DNS's records = [] and 0xc000, HTTP's trailers, j = fields(...), RFC 6298's abs and tick.period (G written once), layout's lists together, its boxes and root as targets together, boxes = []; lines 121 to 120, 148 to 146, 176 to 169, 116 to 110; instructions within 0.2%

1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dns.aup b/examples/dns.aup
index 8f7239a..81e90db 100644
--- a/examples/dns.aup
+++ b/examples/dns.aup
@@ -67,7 +67,7 @@ fn data(d, i, size, type) {
 on read {
   let d = read.data
   require d.bytes >= 12
-  while records.count > 0 { records.remove(records.first) }
+  records = []
   let at = 12
   for section in 0 .. 4 {
     for k in 0 .. word(d, 4 + 2 * section) {
@@ -101,7 +101,7 @@ view wire {
     while !done && r.name[k] != 0 {
       for s in seen {
         if !done && s.name == r.name[k .. r.name.bytes] {
-          out = out + two(49152 + s.at)            # 0xc000: a pointer
+          out = out + two(0xc000 + s.at)           # a pointer
           done = true
         }
       }