The three spec apps without their workarounds (Pure 140 after its decision point): inflate's code takes a bare list and its output is a bytes state, its block's tables built in the handler (lets' lists in inner blocks), 132 lines to 121; DNS's compression compares a suffix with == (bytes compared), 115 to 106; HTTP's left bytes a bytes state, names and codings compared as bytes, its field lines returned as a bare list, 159 to 148

1 files changed, 3 insertions, 12 deletions

diff --git a/examples/dns.aup b/examples/dns.aup
index fdc6722..8f7239a 100644
--- a/examples/dns.aup
+++ b/examples/dns.aup
@@ -100,18 +100,9 @@ view wire {
     let done = false
     while !done && r.name[k] != 0 {
       for s in seen {
-        if !done && s.name.bytes == r.name.bytes - k {
-          let same = true                        # bytes have no ==: compared a byte at a time
-          for b in 0 .. s.name.bytes {
-            if s.name[b] != r.name[k + b] {
-              same = false
-              break
-            }
-          }
-          if same {
-            out = out + two(49152 + s.at)          # 0xc000: a pointer
-            done = true
-          }
+        if !done && s.name == r.name[k .. r.name.bytes] {
+          out = out + two(49152 + s.at)            # 0xc000: a pointer
+          done = true
         }
       }
       if !done {