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

close the input after reading

Browse Source 
svn: r12775
This commit is contained in:
Eli Barzilay 2008-12-11 18:00:43 +00:00
parent 251d15f800
commit baffbeeeb2
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/sandbox.ss
View File

@ -322,7 +322,9 @@
(cond [(and p (null? (cdr inps))) (cond [(and p (null? (cdr inps)))
(port-count-lines! p) (port-count-lines! p)
(parameterize ([current-input-port p]) (parameterize ([current-input-port p])
((sandbox-reader) source))] ((sandbox-reader) source)
;; close a port if we opened it
(unless (eq? p (car inps)) (close-input-port p)))]
[p (error 'input->code "ambiguous inputs: ~e" inps)] [p (error 'input->code "ambiguous inputs: ~e" inps)]
[else (let loop ([inps inps] [n n] [r '()]) [else (let loop ([inps inps] [n n] [r '()])
(if (null? inps) (if (null? inps)