suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: check for too-large file-position argument

Browse Source
This commit is contained in:
Matthew Flatt 2019-12-22 09:56:15 -07:00
parent 41cc442779
commit f95beb40ad
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/io/port/file-position.rkt
View File

@ -30,6 +30,11 @@
(lambda (p) (or (exact-nonnegative-integer? p) (eof-object? p))) (lambda (p) (or (exact-nonnegative-integer? p) (eof-object? p)))
#:contract "(or/c exact-nonnegative-integer? eof-object?)" #:contract "(or/c exact-nonnegative-integer? eof-object?)"
pos) pos)
(when (and (number? p) (pos . >= . (expt 2 63)))
(raise-arguments-error who
"new position is too large"
"port" p
"position" pos))
(let ([cp (cond (let ([cp (cond
[(input-port? p) (->core-input-port p)] [(input-port? p) (->core-input-port p)]
[else (->core-output-port p)])]) [else (->core-output-port p)])])