File tree Expand file tree Collapse file tree 2 files changed +9
-3
lines changed
typed-racket-lib/typed-racket/base-env
typed-racket-test/succeed Expand file tree Collapse file tree 2 files changed +9
-3
lines changed Original file line number Diff line number Diff line change 2165
2165
;read-bytes (in index)
2166
2166
2167
2167
;read-string! (in index)
2168
- [read-bytes! (->opt -Bytes [-Input-Port -Nat -Nat] (Un -PosInt (-val eof)))]
2169
- [read-bytes-avail! (->opt -Bytes [-Input-Port -Nat -Nat] (Un -PosInt (-val eof) (-> (-opt -PosInt) (-opt -Nat) (-opt -PosInt) (-opt -Nat) Univ)))]
2168
+ [read-bytes! (->opt -Bytes [-Input-Port -Nat -Nat] (Un -Nat (-val eof)))]
2169
+ [read-bytes-avail! (->opt -Bytes [-Input-Port -Nat -Nat] (Un -Nat (-val eof) (-> (-opt -PosInt) (-opt -Nat) (-opt -PosInt) (-opt -Nat) Univ)))]
2170
2170
[read-bytes-avail!* (->opt -Bytes [-Input-Port -Nat -Nat] (Un -Nat (-val eof) (-> (-opt -PosInt) (-opt -Nat) (-opt -PosInt) (-opt -Nat) Univ)))]
2171
- [read-bytes-avail!/enable-break (->opt -Bytes [-Input-Port -Nat -Nat] (Un -PosInt (-val eof) (-> (-opt -PosInt) (-opt -Nat) (-opt -PosInt) (-opt -Nat) Univ)))]
2171
+ [read-bytes-avail!/enable-break (->opt -Bytes [-Input-Port -Nat -Nat] (Un -Nat (-val eof) (-> (-opt -PosInt) (-opt -Nat) (-opt -PosInt) (-opt -Nat) Univ)))]
2172
2172
2173
2173
[peek-string (->opt -Nat -Nat [-Input-Port] (Un -String (-val eof)))]
2174
2174
[peek-bytes (->opt -Nat -Nat [-Input-Port] (Un -Bytes (-val eof)))]
Original file line number Diff line number Diff line change
1
+ #lang typed/racket
2
+ (define buffer (make-bytes 0 ))
3
+ (define ret-val (read-bytes-avail! buffer))
4
+ (cond [(eof-object? ret-val) 0 ]
5
+ [(exact-positive-integer? ret-val) 0 ]
6
+ [(procedure? ret-val) (ret-val 1 1 2 3 )])
You can’t perform that action at this time.
0 commit comments