suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add types for with-output-to-string, open-output-nowhere

Browse Source 
Fix time.ss test not to print

svn: r16790
This commit is contained in:
Sam Tobin-Hochstadt 2009-11-15 22:38:30 +00:00
parent fb29a2498e
commit 25f9bcfe03
2 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/typed-scheme/succeed/time.ss
View File

@ -1,6 +1,5 @@
#lang typed-scheme #lang typed-scheme
(require scheme/port)
(: foo : Number Number -> Number) (: foo : Number Number -> Number)
(define (foo x y) (define (foo x y)
@ -14,4 +13,6 @@
(loop (- n 1) (+ (foo c n) acc)) (loop (- n 1) (+ (foo c n) acc))
acc)) acc))
(loop 10000000 0)) (loop 10000000 0))
(time (bar 0)) (parameterize ([current-output-port (open-output-nowhere)])
(time (bar 0)))

3
collects/typed-scheme/private/base-env.ss
View File

@ -733,6 +733,9 @@
;; scheme/port ;; scheme/port
[port->lines (cl->* (-Input-Port . -> . (-lst -String)) [port->lines (cl->* (-Input-Port . -> . (-lst -String))
(-> (-lst -String)))] (-> (-lst -String)))]
[with-output-to-string
(-> (-> Univ) -String)]
[open-output-nowhere (-> -Output-Port)]
;; scheme/path ;; scheme/path