From 36610e62397954115daa156e77bef30a84ad475a Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Mon, 16 May 2016 12:00:54 -0400 Subject: [PATCH] Add missing kw arg of peeking-input-port Closes issue #355 --- typed-racket-lib/typed-racket/base-env/base-env.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/typed-racket-lib/typed-racket/base-env/base-env.rkt b/typed-racket-lib/typed-racket/base-env/base-env.rkt index a159b18b..1e01d194 100644 --- 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)]