add getenv and pretty-print etc.

svn: r15705
This commit is contained in:
Sam Tobin-Hochstadt 2009-08-11 20:44:45 +00:00
parent 28be0897c3
commit c27783830a

View File

@ -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))]