From fc6605de48f3221efdbde1d363a202c336b2b919 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Mon, 20 May 2019 00:18:23 -0700
Subject: .

---
 subx/058stream-equal.subx | 1 +
 1 file changed, 1 insertion(+)

diff --git a/subx/058stream-equal.subx b/subx/058stream-equal.subx
index 9bb36cf9..64ea7d4c 100644
--- a/subx/058stream-equal.subx
+++ b/subx/058stream-equal.subx
@@ -33,6 +33,7 @@ stream-data-equal?:  # f : (address stream), s : (address string) -> EAX : boole
     # EDI = s
     8b/copy                         1/mod/*+disp8   5/rm32/EBP    .           .             .           7/r32/EDI   0xc/disp8       .                 # copy *(EBP+12) to EDI
     # if (f->write != s->length) return false
+$stream-data-equal?:compare-lengths:
     39/compare                      0/mod/indirect  7/rm32/EDI    .           .             .           0/r32/EAX   .               .                 # compare *EDI and EAX
     75/jump-if-not-equal  $stream-data-equal?:false/disp8
     # currs/EDI = s->data
-- 
cgit 1.4.1-2-gfad0