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

fixed with-output-to-file

Browse Source 
svn: r7948
This commit is contained in:
Eli Barzilay 2007-12-11 04:27:56 +00:00
parent ab6d333550
commit 29318f1be2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/uni-norm.ss
View File

@ -28,7 +28,7 @@
(get-pure-port (string->url (string-append base name)))]) (get-pure-port (string->url (string-append base name)))])
(with-output-to-file name (with-output-to-file name
(lambda () (copy-port (current-input-port) (current-output-port))) (lambda () (copy-port (current-input-port) (current-output-port)))
'truncate))) #:exists 'truncate)))
(or (existing) (or (existing)
(begin (get-it) (existing)) (begin (get-it) (existing))
(error "file not found: ~s" (string-append base name)))) (error "file not found: ~s" (string-append base name))))