diff options
author | Kartik Agaram <vc@akkartik.com> | 2019-03-19 22:41:34 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2019-03-20 17:31:38 -0700 |
commit | 3fcc2371ec0587d6ab793962bca51fbc8130b2b3 (patch) | |
tree | c59d12644f03138773513afa127937623dc62a4f /subx/058stream-equal.subx | |
parent | 938185b33ccf30aa8aa20bf8cc22073e140697bf (diff) | |
download | mu-3fcc2371ec0587d6ab793962bca51fbc8130b2b3.tar.gz |
5009
Diffstat (limited to 'subx/058stream-equal.subx')
-rw-r--r-- | subx/058stream-equal.subx | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/subx/058stream-equal.subx b/subx/058stream-equal.subx index 4716db39..27ecd10a 100644 --- a/subx/058stream-equal.subx +++ b/subx/058stream-equal.subx @@ -235,10 +235,10 @@ next-stream-line-equal?: # f : (address stream), s : (address string) -> EAX : # pseudocode: # currf = f->read # bound: f->write # currs = 0 # bound : s->length - # while true: - # if (currf >= f->write) + # while true + # if currf >= f->write # return currs >= s->length - # if (f[currf] == '\n') + # if f[currf] == '\n' # ++currf # return currs >= s->length # if (currs >= s->length) return false # the current line of f still has data to match @@ -249,7 +249,7 @@ next-stream-line-equal?: # f : (address stream), s : (address string) -> EAX : # collapsing the two branches that can return true: # currf = f->read # bound: f->write # currs = 0 # bound : s->length - # while true: + # while true # if (currf >= f->write) break # if (f[currf] == '\n') break # if (currs >= s->length) return false # the current line of f still has data to match |