From 2b0465d2533b4cd638a524469d02a3cfa4d353a6 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Tue, 11 Aug 2009 20:44:45 +0000
Subject: [PATCH] add getenv and pretty-print etc.

svn: r15705

original commit: c27783830a1846857c82478e50c7380faa5f861b
---
 collects/typed-scheme/private/base-env.ss | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/collects/typed-scheme/private/base-env.ss b/collects/typed-scheme/private/base-env.ss
index 8c4e3f2c..d8f02a39 100644
--- a/collects/typed-scheme/private/base-env.ss
+++ b/collects/typed-scheme/private/base-env.ss
@@ -576,6 +576,8 @@
 [module->namespace (-> -Sexp -Namespace)]
 [current-namespace (-Param -Namespace -Namespace)]
 
+[getenv (-> -String (Un -String (-val #f)))]
+
 ;; syntax operations
 
 [expand (-> (-Syntax Univ) (-Syntax Univ))]
@@ -716,3 +718,15 @@
 [sinh (N . -> . N)]
 [cosh (N . -> . N)]
 [tanh (N . -> . N)]
+
+;; scheme/pretty
+
+[pretty-print
+ (cl->* (Univ . -> . -Void)
+        (Univ -Output-Port . -> . -Void))]
+[pretty-display
+ (cl->* (Univ . -> . -Void)
+        (Univ -Output-Port . -> . -Void))]
+[pretty-format
+ (cl->* (Univ . -> . -Void)
+        (Univ -Integer . -> . -Void))]
\ No newline at end of file