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

Reformat

Browse Source 
svn: r17988
This commit is contained in:
Eli Barzilay 2010-02-05 03:22:26 +00:00
parent 2cc4429c62
commit 0725ba7608
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/scheme/sandbox.ss
View File

@ -826,8 +826,7 @@
;; set up the IO context ;; set up the IO context
[current-input-port [current-input-port
(let ([inp (sandbox-input)]) (let ([inp (sandbox-input)])
(cond (cond [(not inp) null-input]
[(not inp) null-input]
[(input->port inp) => values] [(input->port inp) => values]
[(and (procedure? inp) (procedure-arity-includes? inp 0)) (inp)] [(and (procedure? inp) (procedure-arity-includes? inp 0)) (inp)]
[(eq? 'pipe inp) [(eq? 'pipe inp)