Update module.rkt

4 years ago · d75a344bee
parent f0e2cb5b32
commit d75a344bee
1 changed files with 2 additions and 2 deletions
--- a/beautiful-racket-lib/br/module.rkt
+++ b/beautiful-racket-lib/br/module.rkt
@ -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! col (+ (or col 0) how-many))
-       (set! pos (+ pos how-many))
+       (set! pos (+ (or pos 0) how-many))
       (unless (< current-idx (bytes-length current-bs))
         (consume-ss!))
       how-many]