From 1e5cb7d603ff13ce47ad4e09dec9ada8f9bb46ac Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Wed, 12 Aug 2009 21:55:04 +0000 Subject: [PATCH] fix 9979 svn: r15721 --- collects/typed-scheme/private/base-env.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss index 3267d76524..099136e919 100644 --- a/collects/typed-scheme/private/base-env.ss +++ b/collects/typed-scheme/private/base-env.ss @@ -472,6 +472,7 @@ [round (N . -> . -Integer)] [seconds->date (-Integer . -> . (make-Name #'date))] [current-seconds (-> -Integer)] +[current-print (-Param (Univ . -> . Univ) (Univ . -> . Univ))] [path->string (-> -Path -String)] [link-exists? (-> -Pathlike B)]