Update module.rkt

pull/23/head
Matthew Butterick 4 years ago committed by GitHub
parent f0e2cb5b32
commit d75a344bee
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

@ -71,8 +71,8 @@
(define end (+ current-idx how-many))
(bytes-copy! bs 0 current-bs current-idx end)
(set! current-idx end)
(set! col (+ col how-many))
(set! pos (+ pos how-many))
(set! col (+ (or col 0) how-many))
(set! pos (+ (or pos 0) how-many))
(unless (< current-idx (bytes-length current-bs))
(consume-ss!))
how-many]

Loading…
Cancel
Save