diff --git a/safe-io.rkt b/safe-io.rkt index e84f34f..2797c1a 100644 --- a/safe-io.rkt +++ b/safe-io.rkt @@ -2,7 +2,8 @@ (provide read-line-limited) -;; Uses Internet (CRLF) convention. +;; Uses Internet (CRLF) convention. Limit does not cover the CRLF +;; bytes. (define (read-line-limited port limit) (let collect-chars ((acc '()) (remaining limit))