Add missing kw arg of peeking-input-port

Closes issue #355
2016-05-16 12:00:54 -04:00 · 2016-05-16 12:00:54 -04:00 · 36610e6239
commit 36610e6239
parent 19e8efec0f
1 changed files with 3 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/base-env/base-env.rkt
+++ b/typed-racket-lib/typed-racket/base-env/base-env.rkt
@ -1955,7 +1955,9 @@

 [merge-input (->opt -Input-Port -Input-Port [(-opt -Nat)] -Input-Port)]
 [open-output-nowhere (-> -Output-Port)]
-[peeking-input-port (->opt -Input-Port [Univ -Nat] -Input-Port)]
+[peeking-input-port (->optkey -Input-Port [Univ -Nat]
+                              #:init-position -Nat #f
+                              -Input-Port)]

 [reencode-input-port
 (->opt -Input-Port -String (-opt -Bytes) [Univ Univ Univ (-> -String -Input-Port ManyUniv)] -Input-Port)]